source:
git/msg.pl
@
e073702
| Last change on this file since e073702 was 947a5c3, checked in by , 23 years ago | |
|---|---|
|
|
| File size: 158 bytes | |
| Line | |
|---|---|
| 1 | perl -ne while (m!/\*(.*?)\*/([1-9][0-9]*)\b!g) { printf "en:%3d ", $2; $l = $1; if ($l =~ /^\s/ || $l =~ /\s$/) {print "\"$l\"\n"; } else { print "$l\n"; }} |
Note: See TracBrowser
for help on using the repository browser.
