Re: Diffs from CVS keyword expansion

From: Uwe Kleine-Koenig <zeisberg@informatik.uni-freiburg.de>
Date: Dec 6, 2006, 10:05 UTC
Message-ID: <20061206100514.GA7126@informatik.uni-freiburg.de>
In-Reply-To: <Pine.LNX.4.63.0612052048230.28348@wbgn013.biozentrum.uni-wuerzburg.de>

Hi,

Johannes Schindelin wrote:

Show 9 quoted lines

> On Tue, 5 Dec 2006, Randal L. Schwartz wrote:
> 
> > >>>>> "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:

I don't like that either, just because it's Perl :-)

Show 8 quoted lines

> >     #!/usr/bin/perl
> >     $^I = ""; # this is -i
> >     while (<>) {
> >       s/\$(Id|Revision):.*?\$/\$$1: \$/;
> >       print;
> >     }
> 
> Hey, that's better! All of a sudden, I understand everything!

I'm not fluent in Perl, and didn't know $^I. Actually, that's better, yes. (And my script is already rewritten.)

One thing I don't like about both scripts is, that the timestamp of a file changes with that, even if there are no changes. Anyone knows another predefined variable/trick that doesn't hurt performance (and readability) too much?

timtowtdi Uwe

-- 
Uwe Kleine-Koenig