Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: Splitting a Sentence

by Tux (Monsignor)
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
Comment on Re: Splitting a Sentence
Select or Download Code
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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2016-05-26 17:25 GMT
Find Nodes?
    Voting Booth?