selecting few lines in perl

vinaytp · 06-19-2009, 08:24 AM

hi all....

In a file following are the contents........

(
etc,
ls,
/sbin/usr
.....
...
...
)
command
dksal
.......

I know how to match a pattern in a single line and get it in $1 but
here i want to select the lines between two braces ( and ) how can i accomplish this in perl

can anyone please help me.......
Thanks in advance......

bigearsbilly · 06-19-2009, 02:21 PM

owzthat?

Code:

#!/usr/bin/perl

local $/ = undef;  # slurp mode

$slurp = <>;    # read whole file
($lines) = ($slurp =~ /\((.*)\)/s);    # 
print $lines;

ghostdog74 · 06-19-2009, 06:21 PM

Quote:

Originally Posted by vinaytp

but
here i want to select the lines between two braces ( and ) how can i accomplish this in perl

when the line match ")", remove flag
when the line match "(" , set a flag
if flag is set, print line

Tinkster · 06-19-2009, 07:08 PM

Code:

while (<>) {
    print if /\(/ .. /\)/;
}

vinaytp · 06-20-2009, 04:31 AM

Quote:

Originally Posted by bigearsbilly

owzthat?

Code:

#!/usr/bin/perl

local $/ = undef;  # slurp mode

$slurp = <>;    # read whole file
($lines) = ($slurp =~ /\((.*)\)/s);    # 
print $lines;

helped me a lot really great .......thanks a lot to everyone.......