[vox-tech] More Perl script help

[Richard Crawford]

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