Front page | perl.beginners |
Postings from February 2002
When I try to run the one-liners I get:
Can't open *.cpp: Invalid argument.
Can't open *.hpp: Invalid argument.
But when I do a dir command I get:
target_functions.cpp target_modules.cpp global_constants.hpp
global_header.hpp class_functions.cpp S2b_4.opt
Clearly these files are there . . . or am I just doing something silly . . .
tim
-----Original Message-----
From: Brett W. McCoy [mailto:bmccoy@chapelperilous.net]
Sent: Friday, February 01, 2002 9:47 AM
To: Booher Timothy B 1stLt AFRL/MNAC
Cc: beginners@perl.org
Subject: Re: change all files in directory
On Fri, 1 Feb 2002, Booher Timothy B 1stLt AFRL/MNAC wrote:
> 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/;}
> }
>
> but this just doesn't seem as efficient as it can be. I was trying to
think
> of regex that could do it all in one line but it seemed so much simpler to
> do it in three.
This can actually be done on the command-line:
perl -pi.bak -e 's/satellite/target/g' *.cpp *.hpp. *.asc
There's nothing wrong with doing it in three steps.
-- Brett
http://www.chapelperilous.net/
------------------------------------------------------------------------
"Trust me":
Translation of the Latin "caveat emptor."
Thread Previous
|
Thread Next