blank-ttl-ipcsum.pl

   1 #!/usr/bin/perl -p
   2 if ($zonk) {
   3     s/^(\t\t\t 4\w\w\w \w{4} \w{4} \w{4}) \w\w(\w\w) \w{4} (\w{4} \w{4})$/$1 ##$2 #### $3/ or die "$_ ?";
   4     $zonk=0;
   5 } elsif (m/^ ?[^ \t]/ && s/(\(ttl )\d+(, id \d+\))$/$1###$2/) {
   6     $zonk=1;
   7 }
   8 # $Id$