Re: Splitting a Sentence

substitue the newlines with spaces, otherwise

this is line one
rous is the first word of line two
[download]

will become

this is line onerous is the first word of line two

which is not what you want

open my $fh, "<", "test" or die "test: $!"
while (<$fh>) {
    chomp;
    $s .= " $_";
    }
[download]

or shorter

my $s = join " " => split m/\n/ => do { local (@ARGV, $/) = "test"; <> };

Or even shorter

my ($s = do { local (@ARGV, $/) = "test"; <> }) =~ s/\n+/ /g;

Enjoy, Have FUN! H.Merijn

Comment on Re: Splitting a Sentence Select or Download Code

Replies are listed 'Best First'.
Re^2: Splitting a Sentence by johngg (Canon) on Jul 03, 2014 at 11:29 UTC
TIMTOWTDI - chomp in a map and join seems fairly concise yet readable. `$ perl -Mstrict -Mwarnings -E ' open my $inFH, q{<}, \ <<EOD or die $!; Line 1 Line 2 Line 3 EOD my $wholeText = join q{ }, map { chomp; $_ } <$inFH>; say $wholeText;' Line 1 Line 2 Line 3 $` [download] I hope this is of interest. Cheers, JohnGG	[reply] [d/l]