Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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.
Comment on Re: A Strange print() predicament.
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://236864]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2016-05-30 22:28 GMT
Find Nodes?
    Voting Booth?