Hi!
I'm working my way through sams "Teach yourself perl in 21 days" and I'm
stuck.
This is the code that I'm having trouble with:
#!/perl/bin/
$wordcount = 0;
$line = ;
while ($line ne "")
{
chop ($line);
@array = split(/ /, $line);
$wordcount += @array;
$line = ;
}
print ("Total number
Hi!
I'm working my way through sams "Teach yourself perl in 21 days" and I'm stuck.
This is the code that I'm having trouble with:
#!/perl/bin/
$wordcount = 0;
$line = ;
while ($line ne "")
{
chop ($line);
@array = split(/ /, $line);
$wordcount += @array;
