Commit | Line | Data |
---|---|---|
75fce475 IJ |
1 | #!/usr/bin/perl -n |
2 | ||
00192d6a IJ |
3 | # strace -s70000 -ot w3m ./form.html |
4 | ||
31bad769 IJ |
5 | next unless |
6 | (m/^connect\((\d+),.*AF_INET/ and $fd = $1) .. | |
7 | m/^close\($fd\)/; | |
8 | ||
9 | next unless s{^write\($fd, "}{}; | |
75fce475 IJ |
10 | s{", \d+\)\s+= \d+\n}{}; |
11 | s{\\r}{\r}g; | |
12 | s{\\n}{\n}g; | |
13 | s{\\(.)}{$1}g; | |
14 | print or die $!; | |
15 |