Re: Howto convert lines in stringified text into element of an array

use warnings;
use strict;

my $file = <<'FILE';
foo
bar
qux
foo foo foo
FILE

my @lines = split $/, $file;

print "$_\n" for @lines;
[download]

Prints:

foo
bar
qux
foo foo foo
[download]

DWIM is Perl's answer to Gödel

Comment on Re: Howto convert lines in stringified text into element of an array Select or Download Code

Replies are listed 'Best First'.
Re^2: Howto convert lines in stringified text into element of an array by ikegami (Patriarch) on Sep 04, 2007 at 03:55 UTC
Your solution truncates all trailing blank lines. That might be acceptable, but I'm mentioning it to let the OP (and other readers who might use this code) decide. `my $file; my @data_lines; while (<DATA>) { $file .= $_; chomp; push @data_lines, $_; } my @split_lines = split $/, $file; print(scalar(@data_lines), "\n"); # 3 print(scalar(@split_lines), "\n"); # 2 __DATA__ foo bar` [download]	[reply] [d/l]