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 24 18:47

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)
Re: [vox-tech] Perl script help
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [vox-tech] Perl script help

On Wed, Mar 24, 2004 at 03:32:58PM -0800, Richard Crawford wrote:
> This script is supposed to remove everything between <form and reset>. 
> Yet, when I run it, it gives me this error:
> print() on closed filehandle THENEWFILE at boardclean.pl line 23.
> Cannot print!! Bad file number
> I cannot see my programming error.  Can anyone help?

You're not recursing right?

> ======================================================
> #!/usr/local/bin/perl
> 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 || !(-r $file));

> 	open(THEFILE, "$file");
> 	$tmprs = $/;
> 	undef $/;
> 	$data=<THEFILE>;
> 	close(THEFILE);
> 	$/ = $tmprs;
> 	$data =~ s|<form.*reset>|<!-- form action removed -->|gm;
> 	open(THENEWFILE, ">$file");
> 	print THENEWFILE $data or die "Cannot print!! $!\n";
> 	close (THENEWFILE);
> }
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.