Re: [PERL] Erstatte en linie med en fil

[Peter Makholm <sslug@sslug>]

Jacob Sparre Andersen <sslug@sslug> writes:

> Jeg har brug for at erstatte en linie der svarer til et
> bestemt regulært udtryk ('^[ ]*[\]bibliography[{].+[}][
> ]*$', hvis der er nogen der er nysgerrige) med en hel fil
> ('artikel.bbl' i dette tilfælde). Hvordan gør man det?

Øv, twoliner:

$ perl -p 'BEGIN { open FH, 'artikel.bbl'; $file = join "\n", <FH> }
           $_ = $file if /^[ ]*[\]bibliography[{].+[}][ ]*$/ '

-- 
 Peter Makholm     |    According to the hacker ethic, the meaning of life
 sslug@sslug |            is not Friday, but it is not Sunday either
 http://hacking.dk |                                      -- Peeka Himanen