tsung-filter.pl

#!/usr/bin/perl
use strict;
use warnings;

print "Processing ${ARGV[0]}, filtering domain ${ARGV[1]}\n";
open INPUT, ${ARGV[0]} or die $!;
open OUTPUT, ">${ARGV[0]}.filtered.xml" or die $!;

my $skip = 0;
while (my $line = <INPUT>) {
        if ($line =~ /<request>/) {
                if ($line =~ /http:\/\/(.*?)\//) {
                        if (!($1 eq ${ARGV[1]})) {
                                print "Skipping $1\n";
                                $skip = 1;
                        } else {
                                print OUTPUT $line;
                                $skip = 0;
                        }
                } else {
                        if ($skip == 0) {
                                print OUTPUT $line;
                        } else {
#                               print "Skipping...\n"
                        }
                }
        } else {
                print OUTPUT $line;
        }
}