«

Hi experts,

It has been a long time I fiddled with perl scripts.

I want to exclude all the lines that start with 0 and print only the
lines starting with non-zeroes.

Here is the script and I am not sure what is wrong here. Can some one
help me in correcting the syntax error here? Or even a short-cut like
one liner?

+++++++++++++++++++++
while(<DATA>)
{
if (^$_ == 0)
{
next;
print;
}
}

__DATA__
0 x.txt
0 y.txt
0 z.txt
101 z.txt
203 a:txt
303 l.txt

Rider <> wrote:
>I want to exclude all the lines that start with 0 and print only the
>lines starting with non-zeroes.
>
>Here is the script and I am not sure what is wrong here. Can some one
>help me in correcting the syntax error here? Or even a short-cut like
>one liner?
>
>+++++++++++++++++++++
>while(<DATA>)
> {
> if (^$_ == 0)

What is
^$_
supposed to do? Even if you meant to write a RE, it still doesn't make
much sense to numerically compare it to 0.

> {
> next;
> print;
> }
>}

while (<>){
print unless /^0/;
}

while (<>){
print unless substr($_, 0, 1) eq '0';
}

I'm sure there are many more possible ways.

jue

On 2010-09-26 03:50, Rider wrote:

> I want to exclude all the lines that start with 0 and print only the
> lines starting with non-zeroes.

perl -ne '/^0/ or print' file

perl -ne '/^0/||print' file

perl -pe 's/^0.*//s' file

--
Ruud