l i n u x - u s e r s - g r o u p - o f - d a v i s
Next Meeting:
July 7: Social gathering
Next Installfest:
Latest News:
Jun. 14: June LUGOD meeting cancelled
Page last updated:
2004 Mar 25 11:06

The following is an archive of a post made to our 'vox-tech mailing list' by one of its subscribers.

Report this post as spam:

(Enter your email address)
[vox-tech] More Perl script help
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[vox-tech] More Perl script help

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.



use strict;

my $curdir = shift;
my $file = "";
my $tmprs = "";
my $data = "";


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 $/;
	$/ = $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";


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

LUGOD Group on LinkedIn
Sign up for LUGOD event announcements
Your email address:
LUGOD Group on Facebook
'Like' LUGOD on Facebook:

Hosting provided by:
Sunset Systems
Sunset Systems offers preconfigured Linux systems, remote system administration and custom software development.

LUGOD: Linux Users' Group of Davis
PO Box 2082, Davis, CA 95617
Contact Us

LUGOD is a 501(c)7 non-profit organization
based in Davis, California
and serving the Sacramento area.
"Linux" is a trademark of Linus Torvalds.

Sponsored in part by:
EDGE Tech Corp.
For donating some give-aways for our meetings.