Re: Diffs from CVS keyword expansion

Hi,

Johannes Schindelin wrote:

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

quoted

quoted

quoted

quoted

quoted

quoted

"Uwe" == Uwe Kleine-Koenig [off-list ref] 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 :-)

quoted

    #!/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