Commit | Line | Data |
---|---|---|
1 | #!/usr/bin/perl -n | |
2 | ||
3 | # strace -s70000 -ot w3m ./form.html | |
4 | ||
5 | next unless | |
6 | (m/^connect\((\d+),.*AF_INET/ and $fd = $1) .. | |
7 | m/^close\($fd\)/; | |
8 | ||
9 | next unless s{^write\($fd, "}{}; | |
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 |