Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re^2: raffle_tickets_generator

by QuillMeantTen (Friar)
on Dec 03, 2015 at 11:57 UTC ( #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?

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (3)
As of 2022-05-29 12:07 GMT
Find Nodes?
    Voting Booth?
    Do you prefer to work remotely?

    Results (101 votes). Check out past polls.