Hi lina,
Please check my suggestion below
On Wed, Mar 14, 2012 at 7:00 AM, lina <lina.lastn...@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-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
--
Tim
