Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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 lurking in the Monastery: (7)
As of 2015-04-21 06:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who makes your decisions?







    Results (389 votes), past polls