I'm trying to solve a problem in Intermediate Perl.
Basically, I open a text file and read its
information. Here is some text from the file:
gilligan.crew.hut lovey.howell.hut 4721
thurston.howell.hut lovey.howell.hut 4046
professor.hut ginger.girl.hut 5768
gilligan.crew.hut laser3.copyroom.hut 9352
gilligan.crew.hut maryann.girl.hut 1180
Basically, the text shows the source of a data
transfer, the destination of that transfer, and the
number of byte's transferred.
Then I modify some code from the book to create a
printout that shows each source machine's total
output.
#!/usr/bin/perl -w
use strict;
my %total_bytes;
while (<>) {
unless (/^#/) {
my ($source, $destination, $bytes) = split;
$total_bytes{$source}{$destination} +=
$bytes;
}
}
my %sum;
for my $source(keys %total_bytes) {
for my $destination ( keys %{ $total_bytes{$source}
}) {
my $sum{$source} += my
$total_bytes{$source}{$destination};
}
}
I think my logic is solid, but I keep getting error
messages:
syntax error at ./sourceOutput.pl line 15, near
"$sum{"
syntax error at ./sourceOutput.pl line 15, near "+="
syntax error at ./sourceOutput.pl line 16, near "}"
Execution of ./sourceOutput.pl aborted due to
compilation errors.
Am I missing something?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
