Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

LeGo's scratchpad

by LeGo (Chaplain)
on Jun 02, 2004 at 00:55 UTC ( #358926=scratchpad: print w/ replies, xml ) Need Help??

it has been a while but getting back into perl I have created the following to parse IM messages and the like for a bit of info on the users.
@input = ( "M/C: blah blah blah", "C/M: wah wah wah", "C/M: wah wah ,wah", "C/M: wah wah, wah what then", "F/S: wah stfu you stupid moron", "S/F: ahahahaha ? hahaha", "S/F: ahahahaha ? hahaha", "C/M: count son" ); foreach (@input) { ($name,$text) = split(":",$_); $masterhash{$name}++; @words = split(/\W+/, $text); foreach (@words){ if($_ ne / /){ $anotherhash{ $name }{ $_ }++; } } } foreach $name (sort(keys %masterhash)){ print $name . ' = ' . $masterhash{$name} . " \n"; foreach $word (sort (keys %{ $anotherhash{ $name }} )){ print "\t$word = $anotherhash{$name}{$word} \n"; } }
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (8)
As of 2014-07-11 08:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (222 votes), past polls