Re: change all files in directory

From:           	Booher Timothy B 1stLt AFRL/MNAC <timothy.booher@eglin.af.mil>

> Hello, I am trying to change all files in a directory that contain the
> strings Satellite satellite and SATELLITE that I need to change to
> target, Target and TARGET. Because many of these are C++ source files
> I need to preserve the case. I was thinking of the following script:
> 
> #!/usr/bin/perl -w
> #UNTESTED
> 
> @FilesInDirectory = <*.cpp *.hpp *.asc>;
> foreach $FileName (@FilesInDirectory) {
>             open(IN, $FileName);
>             while<IN> {
> $_ =~ s/satellite/target/;
> $_ =~ s/Satellite/Target/;
> $_ =~ s/SATELLITE/TARGET/;}
> }


%replace = (
	satellite => 'target',
	Satellite => 'Target',
	SATELLITE => 'TARGET',
);
$re = join('|',keys %replace);
while (<IN>) {
	s/($re)/$replace{$1}/go;
}

Not sure if it'll be any quicker. If you keep your code do not forget 
to add the /g option, otherwise you'd only replace the first 
occurence on each line.

Jenda

=========== Jenda@Krynicky.cz == http://Jenda.Krynicky.cz ==========
There is a reason for living. There must be. I've seen it somewhere.
It's just that in the mess on my table ... and in my brain.
I can't find it.
					--- me

• change all files in directory by Booher Timothy B 1stLt AFRL/MNAC
• RE: change all files in directory by Hanson, Robert
• RE: change all files in directory by Hanson, Robert
• RE: change all files in directory by Hanson, Robert
• RE: change all files in directory by Booher Timothy B 1stLt AFRL/MNAC
• RE: change all files in directory by Brett W. McCoy
• RE: change all files in directory by Craig Williams
• Re: change all files in directory by Brett W. McCoy
• Re: change all files in directory by Jeff 'japhy' Pinyan
• Re: change all files in directory by Jenda Krynicky