chiark
/
gitweb
/
~ianmdlvl
/
vinegar-ip.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
46f112896b0041efc9398eda0317261eb6a1fdd9
[vinegar-ip.git]
/
tcpdump-nomultiline.pl
1
#!/usr/bin/perl -p
2
if (m/^\t\t\t 4[0-9a-f]{3}(?: [0-9a-f]{4}){7}/) {
3
s/^/\n/ if $glerk;
4
$glerk=0;
5
} elsif ($glerk) {
6
s,^, // ,; s/\n$//;
7
} elsif (m/^ ?[^ \t]/) {
8
s/\n$//; $glerk=1;
9
}