Hi All,
Hello,
I'm having trouble w/ my script... I can open the dir, read the dir and even get the s/// to work.... I just don't know how to write the new file to a new dir. .... or the same dir for that matter... If someone could point me in the right direction I would really appreciate it. Maybe a page in the Lama book... :~)
What you are looking for is the "in-place edit" variable/command line switch. The variable is described in the perlvar.pod document and the command line switch is described in the perlrun.pod document.
perldoc perlrun perldoc perlvar
#!/usr/local/bin/perl
use strict;
use warnings;
my $dir = "C:/brian/test_html";
opendir (HTML, $dir) or die "Can't open $dir: $!";
#my $newdir ="C:/brian/test_html_1";
# opendir (HTML1, $newdir) or die "Can't open $newdir: $!";
# load @ARGV for <> operator below @ARGV = map { "$dir/$_" } grep { !/^\./ } readdir HTML;
$^I = "$newdir/*";
while (<>) {
chomp;
s/31990/31720/g;
print; }
closedir (HTML);
John -- use Perl; program fulfillment
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
