Howto convert lines in stringified text into element of an array

monkfan has asked for the wisdom of the Perl Monks concerning the following question:

Hi,
Suppose I have the following free text (it can be anything, e.g html,xml also), which is stringified into a variable $file:

my $file = 'foo
bar
qux
foo foo foo
';
[download]

How can I convert it into array where each element contain each lines of the text above? into :

my $arry = [ 
'foo',
'bar',
'qux',
'foo foo foo'
];
[download]

Regards,
Edward

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

Replies are listed 'Best First'.
Re: Howto convert lines in stringified text into element of an array by ikegami (Patriarch) on Sep 04, 2007 at 03:33 UTC
Assuming you want the same result as `chomp( my @array = <FILE> );`, `chomp( my @array = $file =~ /\G(.\n\|.+)/g );` [download] or `my @array = $file =~ /\G(?=.)([^\n])\n?/sg;` [download] or `my @array = $file =~ /\G(.)(?:\n\|(?<=.))/g;` [download] or (This one allows you to easily use PerlIO layers) `open my $fh, '<', \$file; chomp( my @array = <$fh> );` [download] If you want a reference to that array, use `\`: `my $array = \@array;` [download] Update*: Added variants.	[reply] [d/l] [select]
Re: Howto convert lines in stringified text into element of an array by GrandFather (Saint) on Sep 04, 2007 at 03:48 UTC
`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	[reply] [d/l] [select]
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]


more useful options
	PerlMonks