perl -i.bak -pe's/old text/new text/g' directory/*.ext
[download]

Or if you want to do that inside your Perl program:

@ARGV == 2 or die "usage: $0 directory extention\n";

my ( $dir, $ext ) = splice @ARGV;

( $^I, @ARGV ) = ( '.bak', <$dir*.$ext> );

while ( <> ) {
    s/old text/new text/g;
    print;
    }
[download]

You say that you know how to open and edit one file; so you can just put that code in a loop:

# Read in all the file names:
my @files = <*.$fileex>;

# Go through files one at a time
foreach my $file (@files) {
    # Open $file
    # edit file
    # close $file
}
[download]

Let us know if this doesn't solve your problem.

jarich

$ cd $1
$ perl -i -w script.pl *.$2
[download]

Here is a Tk script that almost does what you want. See ztksearch. Just start it in the directory you desire, and enter the search word. You can modify it to take the dir and word on the commandline, and you could add a save function by using Tk::TextEdit instead of the Text widget.

use Tk::TextEdit;
....
$text = $f2->Scrolled('TextEdit',-scrollbars=>'se',....);
$text->SetGUICallbacks([sub {}]);  #prevents warnings
.........
[download]