Re: Diffs from CVS keyword expansion

From: Johannes Schindelin <johannes.schindelin@gmx.de>
Date: Dec 5, 2006, 19:48 UTC
Message-ID: <Pine.LNX.4.63.0612052048230.28348@wbgn013.biozentrum.uni-wuerzburg.de>
In-Reply-To: <86k616m8i9.fsf@blue.stonehenge.com>

Hi,

On Tue, 5 Dec 2006, Randal L. Schwartz wrote:

Show 14 quoted lines

> >>>>> "Uwe" == Uwe Kleine-Koenig <zeisberg@informatik.uni-freiburg.de> 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;
>     }

Hey, that's better! All of a sudden, I understand everything!

Not, Dscho