note
zakzebrowski
Aside, I've tried to re-write your code in a way I like it (which is slightly different than other ppl...<BR>
<CODE>
open (IN,"<" . "c:/tmp.txt") or die "Doh: $!"; # Use ()'s, and added or die... sometimes that comes in hand when debugging.
while(<IN>){ # $_ is set to each line for each file.
my $line = $_; # Take raw form of line
$line =~ chomp $line; # chomp the line.
if (length($line)){ # does line have non zero length? (Sorta what you're doing.)
print "$line\n";
}
}
close IN; # Clean up.
</code>
$.02
<div class="pmsig">
<div class="pmsig-38800">
<BR><BR>----<BR>
Zak - [http://www.bbc.co.uk/comedy/theoffice|the office]
</div></div>
334246
334246