75fce475 IJ |
1 | #!/usr/bin/perl -n |
2 | |
00192d6a IJ |
3 | # strace -s70000 -ot w3m ./form.html |
4 | |
75fce475 IJ |
5 | next unless s{^write\(7, "}{}; |
6 | next unless m/^POST|GET/..0; |
7 | s{", \d+\)\s+= \d+\n}{}; |
8 | s{\\r}{\r}g; |
9 | s{\\n}{\n}g; |
10 | s{\\(.)}{$1}g; |
11 | print or die $!; |
12 | |