Front page | perl.fwp |
Postings from December 2001
> On Fri, Dec 07, 2001 at 10:01:05AM +1100, Andrew.Savige@ir.com wrote: >> --- mid.pl --------------------------------------------- >> #!/usr/bin/perl -p0 >> $_=$1while/.^(.+)^/ms > Someone want to explain why this works? It repeatedly keeps everything but the first and last line of the file, thus removing the first and last line. The first . prevents the ^ from matching at the beginning of the string, making it match at the beginning of the second line instead. The trailing ^ stops the (.+) from matching everything, keeping the last line out of the match. - KarstenThread Previous | Thread Next