[CGI/Perl] split string array met quotes

[Daniel304]

Ik ben al het het 2 dagen bezig met het zoeken naar de beste manier om een zoek string in een array te zetten.. alle losse worden in een apart array element en alles wat tussen quotes staat ook in een array element. let niet op de string zelf het is maar een voobeeld .

code:

$string = "perl \"split string\" met \"array quotes\"";
$string =~ s/(\")(.*)(\")//;
$quotes = $1;
@array = split(" ", $string);
push(@array,$all_quotes);

Dit is op zich niet fout maar doet niet wat ik wil uiteindelijke uitvoer wil ik

code:

$array[0] = "perl";
$array[1] = "split array";
$array[2] = "met";
$array[3] = "array quotes";

[ Voor 10% gewijzigd door Daniel304 op 19-01-2004 11:54 ]

[Juup]

Wat vind je van zo'n oplossing:

Perl:

while ($string =~ m/(\w+)/g)
{
  push(@array, $1);
}

Let op! code is untested.

edit oh nee je wilt die dingen tussen quotes in z'n geheel.

[ Voor 21% gewijzigd door Juup op 19-01-2004 12:06 ]

[Juup]

En zo:

Perl:

### \b is een word boundary in regexps. dit matcht tussen een non-word en een word in
### (bv tussen spatie en letter)

while ($string =~ m/("|\b)(\w+)(\1)/g)
{
  push (@array, $2);
  #print $2, "\n";
}

[ Voor 24% gewijzigd door Juup op 19-01-2004 12:14 ]

[Daniel304]

helaas werkt deze code niet zoals ik het wil (mijn reactie is traag maar ben er niet meer aan toe gekomen...

de originele string

code:

mail problemen "outlook expres"

moet een array produceren

code:

array[0]="mail"
array[1]="problemen"
array[2]="outlook expres"

de code van Jaaap zal alsnog elk woord in een apart element van de array zetten

[ Voor 11% gewijzigd door Daniel304 op 29-01-2004 11:06 ]

[D2k]

met die code van jaap moet het lukken toch?

\b{0,}"([a-zA-Z0-9,spatie,enz(of wildcard oplossing]){0,}"

zoiets.

[ Voor 29% gewijzigd door D2k op 29-01-2004 11:10 ]

[Daniel304]

ik heb de print functie geuncomment en wat ik krijg is

code:

array[0]="mail"
array[1]="problemen"
array[2]="outlook"
array[3]="expres"

hij matched ook op spaties binnen de quotes dit zou hij dus neit moeten doen tot de quote is afgelopen getest door een string op te geven

code:

mail probleem"outlook express"

[ Voor 63% gewijzigd door Daniel304 op 29-01-2004 11:31 ]

[Daniel304]

ik heb de oplossing gevonden.. hij zal best mooier kunnen mar hij werkt

code:

   while ($vraag =~ m/(")([\w|\s]+)(")/g)
   {
      push (@array, $2);
      print $2, "-\n";
   }