Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re: Splitting a Sentence

by Tux (Abbot)
on Jul 03, 2014 at 10:56 UTC ( #1092145=note: print w/replies, xml ) Need Help??

in reply to Splitting a Sentence

substitue the newlines with spaces, otherwise

this is line one rous is the first word of line two

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 .= " $_"; }

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

Replies are listed 'Best First'.
Re^2: Splitting a Sentence
by johngg (Abbot) 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 $

    I hope this is of interest.



Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1092145]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2018-02-24 12:44 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (310 votes). Check out past polls.