Could you help me...
With the code below (see attached) I tried to do following:
Read from STDIN,
splits the input in whitespace,
and prints the frequency of terms, with each term printed next to its frequency on
STDOUT.
--- Begin Message ---
Why does my code not write the splitted words to STDOUT?
#!/usr/bin/perl -w
open (OUTPUT, ">ex92.out")||die;
my %freq;
while (my $line = <STDIN>) {
foreach my $w ( split( /\s+/, $line ) ){
if( exists $freq{$w} ){
$freq{$w}++;
}else{
$freq{$w} = 1;
}
}
print "\n";
exit if $line eq "q\n";
}
foreach my $k ( keys( %freq ) ){
print OUTPUT "$k $freq{$k}\n";
}
close (OUTPUT);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--- End Message ---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
