I apologize for breaking the threading.
I've revised my Perl script as below, and also double-checked my file
permissions so that the files it's working on are 777. However, when I
run the script, the desired effect does not happen: the changes that
should occur with the regexp do not happen, even though the timestamp on
the files after I run the script show the time that I ran it.
Any help would be greatly appreciated.
===================================================
#!/usr/local/bin/perl
use strict;
my $curdir = shift;
my $file = "";
my $tmprs = "";
my $data = "";
chdir($curdir);
opendir(DIR, $curdir) or die "Cannot open directory $curdir: $!";
while (defined ($file = readdir(DIR))) {
# skip directories and non-readable files
next if (-d $file);
# if (!(-d $file)) { print $file."\n"; }
open(THEFILE, "$file") or die "Can't open $file for reading: $!\n";
$tmprs = $/;
undef $/;
$data=<THEFILE>;
close(THEFILE);
$/ = $tmprs;
$data =~ s|<form.*reset>|<!-- form action removed -->|g;
open(THEFILE, ">$file") || die "Can't open $file for writing: $!\n";
print THEFILE $data or die "Cannot print to $file $!\n";
close (THEFILE);
print "Did $file\n";
}
===================================================
--
Sl�inte,
Richard S. Crawford (AIM: Buffalo2K)
http://www.mossroot.com http://www.stonegoose.com/catseyeview
"It is only with our heart that we can see clearly. What is essential is
invisible to the eye." --Antoine de Saint Exupery
_______________________________________________
vox-tech mailing list
[EMAIL PROTECTED]
http://lists.lugod.org/mailman/listinfo/vox-tech
