Re: how to extract one block out

Hi lina,
  Please check my suggestion below
On Wed, Mar 14, 2012 at 7:00 AM, lina <lina.lastname@gmail.com> wrote:

> Hi,
>
> Here I have
>
> ...some blocks ...
>
>  @article{Bi07_chen,
>   author = {Chen, J. P. and Zhang, X. and Fernandez, A.},
>   journal = BIOINFOR,
>   volume = {23},
>   number = {5},
>   pages = {563-572},
>   year = {2007}
> }
>
> @article{MP08_Crespo,
>   author = {Crespo, A. and Fernandez, A.},
>   journal = MOLPHARM,
>   volume = {5},
>   number = {3},
>   pages = {430-437},
>   year = {2008}
> }
>
> I only wanted to extract this bolck out
>
>
> @article{Bi07_chen,
>   author = {Chen, J. P. and Zhang, X. and Fernandez, A.},
>   journal = BIOINFOR,
>   volume = {23},
>   number = {5},
>   pages = {563-572},
>   year = {2007}
> }
>
> using
>
> if ($line =~ /Bi07\_chen/..$line =~ /^\}$/){
>                        print $line;
>                                        }
>
> use:
   if($line=~/.+?_chen/..$line=~/\}(?=\n)/){
       print $line;
    }

> but it expanded to the final }
>
> Thanks ahead for your suggestions,
>
> Best regards,
>
> --
> To unsubscribe, e-mail: beginners-unsubscribe@perl.org
> For additional commands, e-mail: beginners-help@perl.org
> http://learn.perl.org/
>
>
>


-- 
Tim

• how to extract one block out by lina
• Re: how to extract one block out by timothy adigun