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; }

_______________
DamnDirtyApe
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

    Don't use a -p and a * like that unless you know what you are doing. See the discussion starting at Dangerous Diamonds! for an explanation.

    -sauoq
    "My two cents aren't worth a dime.";