Re: How to display first line of each record using the question code

TIMTOWTDI ... but this works for me:

use strict;
use warnings;

use feature 'say';

local $/="__data__\n";

while (my $record=<DATA>){
#  say "<$record>";
  my @lines = split /\n/, $record;
  say $lines[0];
}



__DATA__
1aaaaaaaaaa
aaaaaaaaaaa
aaaaaaaaaaa
__data__
1bbbbbbbbbb
bbbbbbbbbbb
bbbbbbbbbbb
__data__
1cccccccccc
ccccccccccc
ccccccccccc
__data__
[download]

output

1aaaaaaaaaa
1bbbbbbbbbb
1cccccccccc
[download]

> I need a solution that follows the code question...

what does this mean?

Cheers Rolf

( addicted to the Perl Programming Language)

Comment on Re: How to display first line of each record using the question code Select or Download Code

Replies are listed 'Best First'.
Re^2: How to display first line of each record using the question code by SatisfyMyStruggles (Initiate) on May 18, 2013 at 17:36 UTC
My problem is I can't get $/="__Data__\n" to work using my code	[reply]
Re^3: How to display first line of each record using the question code by LanX (Saint) on May 18, 2013 at 17:40 UTC
> I can't get $/="__Data__\n" to work My code works, so yours must be wrong! :) Try to trek down the problem by replacing the "code in question" bit by bit. Did you use double-quotes? Does "\n" really immediately follow "__Data__" in your data? Cheers Rolf ( addicted to the Perl Programming Language)	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.