hi,
I have a while statement that does a next if a match is made against a reg exprerssion
of some numbers.
data file:
Header
10
20
5201
8001
0
80
3802
#!/bin/perl
use strict;
use warnings;
while( ) { #read from stdin one line or record at a
time.
next if
On Apr 22, 2004, at 8:54 AM, rmck wrote:
hi,
I have a while statement that does a next if a match is made against a
reg exprerssion of some numbers.
data file:
Header
10
20
5201
8001
0
80
3802
#!/bin/perl
use strict;
use warnings;
while( ) { #read from stdin one
II [EMAIL PROTECTED]
Sent: Apr 22, 2004 6:59 AM
To: rmck [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: Re: next if question
On Apr 22, 2004, at 8:54 AM, rmck wrote:
hi,
I have a while statement that does a next if a match is made against a
reg exprerssion of some numbers.
data file
On Apr 22, rmck said:
bash-2.03$ ./clean.pl data.txt
10
5201
8001
0
3802
##The Rest##
Header
20
80
bash-2.03$
I thought I could do this:
#!/bin/perl
use strict;
use warnings;
while( ) { #read from stdin one line or record at a time
next if $_ =~ /(^20$|^80$|^Header$)/;
print ;
if