>>>>> "Uwe" == Uwe Kleine-Koenig <zeisberg@xxxxxxxxxxxxxxxxxxxxxxxxxx> writes:
Uwe> #! /bin/sh
Uwe> exec perl -i -p -e 's/\$(Id|Revision):.*?\$/\$$1: \$/' "$@";
Ow. My eyes hurt from that. How about we rewrite that as a native Perl
script:
#!/usr/bin/perl
$^I = ""; # this is -i
while (<>) {
s/\$(Id|Revision):.*?\$/\$$1: \$/;
print;
}
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@xxxxxxxxxxxxxx> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
-
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html