Do you mean like

        unless($_ =~ /^\s*\d+\s*$/){
           print $_;
        }
        
?


-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, February 22, 2006 2:36 PM
To: beginners@perl.org
Subject: whitespace beginning and end

Perlers

I need to remove any line that begins with \d+ yet end with \s*
Here is the data

_BEGIN_DATA_

<snip>

_END_DATA_


Here is what I came up with and it works but any other ideas b/c I am
unsure for every line with  "2006/01/16 10:14  215 100%  -il-o-b---U-
sf
F02059"
for example will have a length of 62 or more.
thank you!



<snip code>



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to