merlyn@xxxxxxxxxxxxxx (Randal L. Schwartz) writes:
>>>>>> "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;
> }
That's kinda surprising coming from the resident Perl guru.
I am so used to the command line "-i -p" that I did not even
know what $^I does, and I would have lost without your "# this
is -i" comment. That alone makes the Uwe's one more readable
for me ;-).
-
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