chiark
/
gitweb
/
~ianmdlvl
/
vinegar-ip.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Summaries
[vinegar-ip.git]
/
blank-ttl-ipcsum.pl
1
#!/usr/bin/perl -p
2
if ($zonk) {
3
s/^(\s\s+4\w\w\w \w{4} \w{4} \w{4}) \w\w(\w\w) \w{4} (\w{4} \w{4})$/$1 ##$2 #### $3/ or die "$_ ?";
4
$zonk=0;
5
} elsif (m/^ ?[^ \t]/ && s/(\(ttl )\d+(, id \d+\))$/$1###$2/) {
6
$zonk=1;
7
}