Text::ParseWords

[howa]

Consider the codes:


#=====================
use Text:arseWords;
use Data:umper;

my $query =qq^"abc def" filetypedf def 'xyz 123' '^;
@new = parse_line(" ", 0, $query);
print Dumper @new;
#=====================

It cannot split the string,

But if ...

my $query =qq^"abc def" filetypedf def 'xyz 123' ''^;

Then it is ok, i.e.

$VAR1 = 'abc def';
$VAR2 = 'filetypedf';
$VAR3 = 'def';
$VAR4 = 'xyz 123';
$VAR5 = '';


Any comments?

 

[Darren Dunham]

Consider the codes:
#=====================
use Text:arseWords;
use Data:umper;

my $query =qq^"abc def" filetypedf def 'xyz 123' '^;

You have an item (the last one) with an unbalanced number of quotes.

But if ...

my $query =qq^"abc def" filetypedf def 'xyz 123' ''^;

Here you've balanced them.

Seems it is identical to :

parse_line(" ", 0, qq^'^);

It appears that parse_line returns false if the quotes do not balance.