|
|
| laziness, impatience, and hubris | |
| PerlMonks |
Re: Error message "Use of uninit"by Not_a_Number (Parson) |
| on Nov 21, 2011 at 19:33 UTC ( #939306=note: print w/ replies, xml ) | Need Help?? |
|
Since, at least in your posted snippet, you don't use the variables $tag or $freq, perhaps the best way of avoiding the warning would be to change the line my($header,$tag,$freq)=split(' ', $line);to: my ( $header, @rest ) = split ' ', $line;Update (thanks AnomalousMonk): And of course you would have to change your output line to: print $FILE2 "$header\t@rest\n";
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||