I have a file that I am spliting and parsing, if data starts with an N/n toos it (which works) but I want it to also see if the data is blank and toss it.

What I have does not toss the blank space for dduck????

here is the data file and code I have.....

efudd 7546
bbunny N0542
tdevil 6666
dduck
mmouse 8888

open OUTER_HANDLE,"userids" or die "$!:$?";
while (<OUTER_HANDLE>) {
        my @userData = split;
        # print "DEBUG: Start... Number is [ $userData[1] ]\n";
        if ( ! ($userData[1] =~ /[n|N]/)
        or ! ($userData[1] =~ /\s/) ) {
               # print "DEBUG: userData[0] : [$userData[0]]\n";
               # print "DEBUG: userData[1] : [$userData[1]]\n";
                ripItOut( $userData[0], $userData[1] );
        }
}

close OUTER_HANDLE;

Is this what your looking for?


=---START---=

open OUTER_HANDLE,"names.txt" or die "$!:$?";
while (<OUTER_HANDLE>) {
my @userData = split(/ +/, $_);
# print "DEBUG: Start... Number is [ $userData[1] ]\n";
if ( trim($userData[0]) !~ /Nn/ && trim($userData[1]) !~ /Nn/ && $userData[1] != "" ) {
# print "DEBUG: userData[0] : [$userData[0]]\n";
# print "DEBUG: userData[1] : [$userData[1]]\n";
print" $userData[0], $userData[1]\n";
}
}

close OUTER_HANDLE;



sub trim($) {
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}

=---END---=

Can you use the following logic?

> cat file99
efudd 7546
bbunny N0542
tdevil 6666
dduck
mmouse 8888
> cat file99 | grep [0-9][0-9] | grep -v [nN][0-9][0-9]
efudd 7546
tdevil 6666
mmouse 8888

Thanks for the replies,

I was able to get it to work with the following...

open OUTER_HANDLE,"userids" or die "$!:$?";
while (<OUTER_HANDLE>) {
        @userData = split;
                  $arraySize = @userData;
                  #print "DEBUG: Array size [$arraySize]\n";
                  if ( $arraySize == 2 ) {
                        # print "DEBUG: Start... Number is [$userData[1]]\n";
                        if ( ($userData[1] !~ /^N/) ) {
               #print "DEBUG: userData[0] : [$userData[0]]\n";
               #print "DEBUG: userData[1] : [$userData[1]]\n";
                ripItOut( $userData[0], $userData[1] );
                                }
        }
}

close OUTER_HANDLE;