tcpdump-nomultiline.pl

   1 #!/usr/bin/perl -p
   2 if (m/^\t\t\t 4[0-9a-f]{3}(?: [0-9a-f]{4}){7}/) {
   3     s/^/\n/ if $glerk;
   4     $glerk=0;
   5 } elsif ($glerk) {
   6     s,^, // ,; s/\n$//;
   7 } elsif (m/^ ?[^ \t]/) {
   8     s/\n$//; $glerk=1;
   9 }
  10 # $Id$