post/http-filter

   1 #!/usr/bin/perl
   2 # Filter HTTP transactions
   3 # (c) 2003 Martin Mares <mj@ucw.cz>, GPL'ed
   4
   5 use strict;
   6 use warnings;
   7 use POSIX;
   8
   9 1 == @ARGV or die "Usage: http-filter <perl-expression>";
  10 eval '
  11 while (<STDIN>) {
  12         chomp;
  13         /^#/ && next;
  14         my ($t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
  15         if (' . $ARGV[0] . ') {
  16                 print $_, "\n";
  17         }
  18 }
  19 ';