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 19:30

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

This makes it sound like THENEWFILE isn't begin opened properly...maybe
bad file permissions or something.  You probably want to check the
return value of open and the contents of $! after the open call; e.g.,

> 	open(THENEWFILE, ">$file");
> 	print THENEWFILE $data or die "Cannot print!! $!\n";


    open(THENEWFILE, ">$file") || die "Can't open $file: $!\n";
    print THENEWFILE $data or die "Cannot print!! $!\n";

Now if the open fails, it should die and tell you what the problem was.



* Matt Roper <matt@mattrope.com>                *
* http://www.mattrope.com                       *
* PGP Key: http://www.mattrope.com/mattrope.asc *
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.