Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl\monks>grep -c "xms;$" elide_lines.pl.bak
    2
    
    c:\@Work\Perl\monks>perl -ne "BEGIN { $AP = shift } $n++ if /$AP/; END
    + { print $n }"  "xms;$"  elide_lines.pl.bak
    2