how do take out some lines !! 1

[rao12]

i have a file with contents like

<<< file1: abcd.c
>>> file2: abcd.cx
--------[after 12]-----|-----------[inserted 67-80]------
---------[deleted 67-89]---|---------[after 56]----------
<<< file1: def.c

how do i select only lines that come in between >>> and
<<<

ie.,

--------[after 12]-----|-----------[inserted 67-80]------
---------[deleted 67-89]---|---------[after 56]----------

and from this i would like to take out the

12 67-80
67-89 56

If anyone can help me it would be very good.

Thanks
Rao

 

[goBoating]

I have not run this, but it should be pretty close. Inside the inner most 'while', do what ever you like with the numbers.

open(IPF,&quot;<inputFile&quot or die &quot;Failed to open inputFile, $!\n&quot;;
while (<IPF>) { $buffer .= $_; }
close IPF;

# while matching stuff between >>> and <<<
while ($buffer =~ />>>(.*?)<<</gs)
{
# catch matched strings in $chunk
$chunk = $1;
{
while ($chunk =~ /\[\w+ (.*?)\]/gs) { $numbers = $1; }
}
}

'hope this helps


keep the rudder amid ship and beware the odd typo