in reply to Error message "Use of uninit"
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";
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Error message "Use of uninit"
by bluray (Sexton) on Nov 21, 2011 at 22:08 UTC |
In Section
Seekers of Perl Wisdom