Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Readline() on closed filehandle

by Tuna (Friar)
on Aug 17, 2001 at 01:29 UTC ( [id://105531]=perlquestion: print w/replies, xml ) Need Help??

Tuna has asked for the wisdom of the Perl Monks concerning the following question:

Below is a snippet from a tool I am working on. What I am trying to do is, loop through an array of files. If it matches a particular string of characters, pass it as an argument ot a subroutine. If it matches a different string, I want to open the file and read each line into an array. Same thing with yet another string.

The problem is, that when I run my program, I get the following error:

readline() on closed filehandle main::TS at ./ + line 900.

Can someone shed some light on this for me?

foreach $file ( @filelist ) { if ($file =~ /remap.config$/) { &check_remap ($file); } if ($file =~ /remap.config.hosts$/) { open TS, "$file" or die "Cannot open $file: $!\n"; while ($TSline = <TS>) { print "getting clusters and files: $file\n"; if ($TSline =~ /(cluster\d+)(ssaca\d+)/) { print "1 = $1\2 = $2\n\n"; chomp $TSline; push @TShosts, $TSline; } } } elsif ($file =~ /origin.db.hosts$/) { open SADNS, "$file" or die "Cannot open $file: $!\n"; while ($SADNSline = <TS>) { if ($SADNSline =~ /ssansa\d+/) { chomp $SADNSline; push @SADNShosts, $SADNSline; } } } }

Replies are listed 'Best First'.
Re: Readline() on closed filehandle
by Tuna (Friar) on Aug 17, 2001 at 01:39 UTC
    Just ignore this post. I had a typo in my code at while ($SADNSline = <TS>)

    just move along.....there's nothing to see here.....

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://105531]
Approved by root
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2024-05-18 03:49 GMT
Find Nodes?
    Voting Booth?

    No recent polls found