in reply to Re: Help - Counting text - Associative Array?
in thread Help - Counting text - Associative Array?
I guess I will have to research regex and see what I can do. Just for grins I've attached the code and result. To test it I had to create a file with the exe strings on their own lines.
Thanks again for the help.
Code:
open (FILE, "security2.txt"); print "\n"; %exe = ( "Catalog", 'C:\Program Files\Internet Explorer\IEXPLORE.EXE', + "Crime", 'D:\crime\Reader\AcroRd32.exe'); while (<FILE>) { chomp; foreach $value (values %exe) { $count{$_}++ if ($_ eq $value); } } foreach $value (values %exe) { print "Name:$value\t Count:$count{$value}\n"; } close(FILE);
Result:
Name: C:\Program Files\Internet Explorer\IEXPLORE.EXE Count: 2 Name: D:\crime\Reader\AcroRd32.exe Count: 1
|
|---|