split operator with quoted strings

[arasu]

Hi,

#!/usr/local/bin/perl -w

use strict;

my $x = 'hello goat "world world world" "fox goat"';

my @x = split ( /\s+/, $x );

foreach ( @x )
{
print "$_\n";
}

======================

This splits on space, but expected output is
"string within quotes should not be split."

hello
goat
"world world world"
"fox goat"

 

[John W. Krahn]

#!/usr/local/bin/perl -w
use strict;

my $x = 'hello goat "world world world" "fox goat"';

my @x = split ( /\s+/, $x );

foreach ( @x )
{
print "$_\n";
}

======================

This splits on space, but expected output is
"string within quotes should not be split."

hello
goat
"world world world"
"fox goat"

$ perl -le'
my $x = q/hello goat "world world world" "fox goat"/;
@f = $x =~ /"[^"]+"|\S+/g;
print for @f;
'
hello
goat
"world world world"
"fox goat"



John

 

[Perusion hostmaster]

Hi,

#!/usr/local/bin/perl -w

use strict;

my $x = 'hello goat "world world world" "fox goat"';

my @x = split ( /\s+/, $x );

foreach ( @x )
{
print "$_\n";
}

======================

This splits on space, but expected output is
"string within quotes should not be split."

hello
goat
"world world world"
"fox goat"

Easy with a standard module:

use Text:arseWords qw/quotewords/;

my $x = 'hello goat "world world world" "fox goat"';

my @x = quotewords('\s+', 1, $x);

print join "\n", @x, '';

The second parameter to quotewords() tells it to keep the quotation
marks, set it to zero to not retain them.