Re: String to array problem

[ToddAndMargo]

-----Original Message-----
From: ToddAndMargo [mailto:toddandma...@zoho.com]
Sent: Sunday, July 16, 2017 8:35 PM
To: perl6-users <perl6-us...@perl.org>
Subject: Re: String to array problem
On 07/16/2017 05:16 PM, Mark Devine wrote:
T,

my $x = 'ls -al "Program Files" "Moe Curly Larry"'; my @y = ~($x ~~
m:global/ [ '"' <-[ " ]> * '"' | \S+ ] /);

Mark Devine

-----Original Message-----
From: ToddAndMargo [mailto:toddandma...@zoho.com]
Sent: Sunday, July 16, 2017 7:41 PM
To: perl6-users <perl6-us...@perl.org>
Subject: String to array problem

Hi All,

I have been scratching my head trying to figure out how to turn a string with 
quotes in it into an array.

my $x='ls -al "Program Files" "Moe Curly Larry"';

Desired result:
my @y;
      $y[0] = 'ls';
      $y[1] = '-la';
      $y[2] = 'Program Files';
      $y[3] = 'Moe Curly Larry';

Any words of wisdom?

Many thanks,
-T



It kinda, sorta doesn't work:

<code>
$ cat ./QuoteArrayTest.pl6
#! /usr/bin/env perl6

use strict;

print "\n";
my $x = 'ls -al \"Program Files\" \"Moe Curly Larry\"'; my @y =~($x ~~ m:global/ [ '"' <-[ " 
]> * '"' | \S+ ] /); say "$x\n\@y:";

for @y.kv -> $index, $value { say "\$y[$index] = <$value>"; } print "\n"; 
</code>

ls -al \"Program Files\" \"Moe Curly Larry\"
@y:
$y[0] = <ls -al \"Program Files\" \"Moe Curly Larry\">


What did I do wrong?


On 07/16/2017 05:53 PM, Mark Devine wrote:
> T,
>
> This regex seems to work in both cases:	m:global/ [ \\? '"' <-[ " ]> 
* \\? '"' | \S+ ] /;
>
> #!/usr/bin/env perl6
> use v6;
>
> my ($x, @y);
>
> $x = 'ls -al "Program Files" "Moe Curly Larry"';
> @y = $x ~~ m:global/ [ \\? '"' <-[ " ]> * \\? '"' | \S+ ] /;
> for @y -> $match { say ~$match; }
>
> $x = 'ls -al \"Program Files\" \"Moe Curly Larry\"';
> @y = $x ~~ m:global/ [ \\? '"' <-[ " ]> * \\? '"' | \S+ ] /;
> for @y -> $match { say ~$match; }
>
> Mark
>


Brain teaser.  Thank you again!