Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: raffle_tickets_generator

by QuillMeantTen (Friar)
on Dec 03, 2015 at 11:57 UTC ( [id://1149298]=note: print w/replies, xml ) Need Help??


in reply to Re: raffle_tickets_generator
in thread raffle_tickets_generator

It is the first time I hear about the DATA section, thanks for pointing this feature out! also that way to write loops is great, I'm going to correct that at once.

Replies are listed 'Best First'.
Re^3: raffle_tickets_generator
by GotToBTru (Prior) on Dec 04, 2015 at 14:01 UTC

    Good reference that talks about paragraph mode.

    use strict; use warnings; my ($first,$second,$third); { local $/ = ''; ($first, $second, $third) = <DATA>; } printf "First: %s", $first; printf "Second: %s", $second; printf "Third: %s", $third; __DATA__ this will go into the variable called first second here tail end charlie
    Dum Spiro Spero

      Just to be sure I get it, when you localise $/ as '' perl will see an empty line as the record separator? even if said empty line is actually just one '\n' character.

      I understand that making $/ equal '\n' you would have ended up with

      $first = "this will"; $second="go into the variable"; $third = "called first";

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2024-03-28 11:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found