Help for this page

Select Code to Download

Select or download this

while (<errorlog>)
{
    $logins{$1}++ if /Login succeeded\. User: ([^,]+)/;
}
print map { "$_: $logins{$_}\n" } sort keys %logins;

Select or download this
```
abc: 1
qwr: 1
sa: 6
xyz: 1
```