so i have to add $row =~ s/\s*$// after next if $row =~ /^\s*$/; and it will work? i cant really check from here since i am at home and would have to wait another 12 hoursopen (my ($fh2),$file2) or die $!; while (my $row = <$fh2>) { chomp $row; print "$row\n"; next if $row =~ /^\s*$/; my (@fields) = split(/\|/, $row);
In reply to Re^4: Filtering Output from two files
by vighneshmufc
in thread Filtering Output from two files
by vighneshmufc
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |