#!/usr/bin/perl
# Extract data from HTTP transactions
# (c) 2003 Martin Mares <mj@ucw.cz>, GPL'ed

use strict;
use warnings;
use POSIX;

1 == @ARGV or die "Usage: http-extract <perl-expression>";
eval '
while (<STDIN>) {
	chomp;
	/^#/ && next;
	my ($id, $t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
	print ' . $ARGV[0] . ', "\n";
}
';
die "$ARGV[0]: $@" if $@;