in reply to please help on subsituting a pattern in a file
This can be done from the command line:
perl -p -i.bak -e 's:CLASSATTRIBUTES:classattributes:g' *
...though I'm not sure whether that's an option for you or not.
Update: Ah yes, please read the excellent comments below. If you're doing this from within a script, this works:
my @files = qw( foobar zoot ); for my $file ( @files ) { ## Read the contents of the file open FILE, "<$file"; my $contents; do { local $/; $contents = <FILE>; }; close FILE; ## Make your changes $contents =~ s:CLASSATTRIBUTES:classattributes:g; ## Write the modified contents back to the file open FILE, ">$file"; print FILE $contents; close FILE; }
Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
--Friedrich Nietzsche
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: please help on subsituting a pattern in a file
by sauoq (Abbot) on Jun 05, 2003 at 20:30 UTC |