Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

RE: Load file into a scalar without File::Slurp

by turnstep (Parson)
on Jul 17, 2000 at 04:23 UTC ( [id://22800]=note: print w/replies, xml ) Need Help??


in reply to Load file into a scalar without File::Slurp

Or the semi-obfuscated version: as long as you just emptied out $/, why not use it? :)

{ local $/; $/ .= $_ while <STDIN>; }

P.S. In general, you want to make changes to global variables a temporary condition, as in merlyn's do loop above, and the more general form:

{ local $/; ## This is already undef, no need to set it ## Read in the file, etc... } ## $/ is now back where it was

Replies are listed 'Best First'.
(chromatic) RE: RE: Load file into a scalar without File::Slurp
by chromatic (Archbishop) on Jul 17, 2000 at 08:09 UTC
    Here's a shorter version of that. I feel dirty:
    { local $/ = <STDIN>; }
    Note to anyone who has to look at $/ to understand this -- do not use this code. It's a seriously ugly thing.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (2)
As of 2024-04-16 23:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found