Hello List,
I'm stumped on this one.
I'm getting this error:
Use of uninitialized value in length at ./DBSR.pl line 21, <> line 6.
Use of uninitialized value in length at ./DBSR.pl line 21, <> line 8.
Use of uninitialized value in length at ./DBSR.pl line 21, <> line 10.
Use of uninitialized value in length at ./DBSR.pl line 21, <> line 13.
Use of uninitialized value in length at ./DBSR.pl line 21, <> line 16.
Use of uninitialized value in length at ./DBSR.pl line 21, <> line 23.
Use of uninitialized value in length at ./DBSR.pl line 21, <> line 25.
I just want to skip to the next line of input data if any of the
array elements have no value (0 in length).
#!/usr/bin/perl
use warnings;
use strict;
use POSIX;
use Data::Dumper;
my $fileOut = "testOut.txt";
open my $fin, '<', $fileIn or die "ERROR opening $fileIn: $!";
open my $out, '>', $fileOut or die "ERROR opening $fileOut: $!";
my @fields;
while( <> ) {
next unless /;/;
chomp;
my @data = split /;/;
my($Icell,$Isect,$Ichan,$cfc,$cfcq,$rtd) = @data[9,10,27,36,37,40];
next if(length($Icell) == 0);
next if(length($Isect) == 0);
next if(length($cfc) == 0);
next if(length($cfcq) == 0);
next if(length($rtd) == 0);
$rtd = sprintf "%.2f", $rtd/8/6.6/2;
push(@fields, $Icell,$Isect,$Ichan,$cfc,$cfcq,$rtd);
}
print Dumper \@fields;
Thank you,
Chris
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
