Not tested

While (<file>){
        my @record = split /\|/;
        next unless ($record[6]);  # go to next line if all 7 fields are
not populated
        .....
}


Unless I am misunderstanding what you are trying to do that should work.

I don't get why you would want to skip the first and second lines
though. 
However if they are not records the code above will have them skipped.

-----Original Message-----
From: LoneWolf [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, September 10, 2003 5:04 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: CUt first and last line from a file (DATA)


GARNOR|09/10/03
GARNOR|141023|BUDDY|Y54321|[EMAIL PROTECTED]|Y|Y
GARNOR|141033|BUDD|Y5432|[EMAIL PROTECTED]|Y|Y
GARNOR|141043|BUD|Y5432|[EMAIL PROTECTED]|Y|Y
GARNOR|141053|BU|Y54|[EMAIL PROTECTED]|Y|Y


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to