Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: A Strange print() predicament.

by BigLug (Chaplain)
on Feb 19, 2003 at 22:44 UTC ( #236864=note: print w/replies, xml ) Need Help??


in reply to A Strange print() predicament.

Previous solutions have suggested redirecting STDOUT, which would work, but consider using the built in one-argument select statement:
$oldFH = select(NOTHING); do "filename.txt"; print "Won't Print\n"; select($oldFH); print "Will Print\n";
The select statement will change the default filehandle for all manner of things, including $| and print. It also means that if a called module does something like:
print STDOUT "This will print";
... then it will print. However I'd be surprised if any module actually does this. It also gives you an 'out' if you want to force something to print while you have the select redirected.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://236864]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2016-12-08 08:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (136 votes). Check out past polls.