http://qs321.pair.com?node_id=1149384


in reply to Re^2: raffle_tickets_generator
in thread raffle_tickets_generator

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

[download]
Dum Spiro Spero

Replies are listed 'Best First'.
Re^4: raffle_tickets_generator
by QuillMeantTen (Friar) on Dec 05, 2015 at 10:18 UTC

    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";

    [download]

[reply]
[d/l]

In Section Cool Uses for Perl