Help for this page
while (<errorlog>) { $logins{$1}++ if /Login succeeded\. User: ([^,]+)/; } print map { "$_: $logins{$_}\n" } sort keys %logins;
abc: 1 qwr: 1 sa: 6 xyz: 1
www.com | www.net | www.org
No recent polls found