RE: How to conditionally substitute in files?

Thanks John!
I to edit it a little but it works!

Can someone explain to why I have to remove the $ from $IN and $OUT and remove the "my" in "my $IN" and "my $OUT" to make it work?
Thanks,
Siegfried

-----Original Message-----
From: John W. Krahn [mailto:[email protected]]
Sent: Thursday, June 12, 2008 1:08 PM
To: Perl Beginners
Subject: Re: How to conditionally substitute in files?

Siegfried Heintze (Aditi) wrote:
> This works:
>
> perl -i.bak -ple "s/class/xybpublicabc/g" Migration.cs
>
> However, when there are no matches, it still creates a new .bak file.
>
> How can we not change the date time on a file if there are no substitutions make?

You have to code it that way explicitly yourself, something like (UNTESTED):


my $file = 'Migration.cs';

open my $IN,  '<', $file       or die "Cannot open '$file' $!";
open my $OUT, '>', "$file.new" or die "Cannot open '$file.new' $!";

my $changed;
while ( <$IN> ) {
     $changed += s/class/xybpublicabc/g;
     print $OUT;
     }

close $OUT;
close $IN;

if ( $changed ) {
     rename $file, "$file.bak" or die "Cannot rename '$file' $!";
     rename "$file.new", $file or die "Cannot rename '$file.new' $!";
else {
     unlink "$file.new" or die "Cannot unlink '$file.new' $!";
     }

__END__



John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order.                            -- Larry Wall

--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/