chiark / gitweb /
wip debug
[hippotat.git] / w3mstracetodump
1 #!/usr/bin/perl -n
2
3 next unless s{^write\(7, "}{};
4 next unless m/^POST|GET/..0;
5 s{", \d+\)\s+= \d+\n}{};
6 s{\\r}{\r}g;
7 s{\\n}{\n}g;
8 s{\\(.)}{$1}g;
9 print or die $!;
10