sslug-teknik team mailing list archive

[Peter Makholm <peter@xxxxxxxxxxx>]

Peter Makholm <peter@xxxxxxxxxxx> writes:

> perl -pi -e 'BEGIN{@l = (undef) x 5} push @l, $_; shift; END{print @l}' filnavn 

Nope. Filen bliver lukket før END-blokken bliver udført. Følgende
virker:

perl -ni -e 'BEGIN{@l=(undef)x5} push @l, $_;shift @l;print;(print @l),@l=(undef)x5 if eof;'

Noget lettere hvis jeg måtte antage at alle filer er mere end 5 linjer
lange så ville det næsten kunne have ladet sig gøre på en rigtig
linje.

-- 
 Peter Makholm     |     Have you ever felt trapped inside a Klein bottle?
 peter@xxxxxxxxxxx |                                                      
 http://hacking.dk |