aus string extrahieren - #74238 (Allgemeines zu Perl)

GoodFella

2007-02-12 07:17

User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]

Bitte etwas mehr Info, was du machen möchtest. Ansonsten hier mal eine Quick n Dirty Lösung für ein Problem, dass aus sehr viel Eigeninterpretation deiner Beschreibung entstanden ist:

Code (perl): (dl )

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

my $content = 'foto1=8&foto2=40&';
my (%hash, $skip, $old);
map { $skip++; $hash{$old} = $_ unless($skip == 1); $skip = 0 if ($skip == 2); $old = $_; } ($content =~ /foto(.)=([0-9]+)&/g);
print "Foto '$_' hat den Wert '$hash{$_}'\n" for (keys(%hash));

ergibt:

Code: (dl )

1
2

Foto '1' hat den Wert '8'
Foto '2' hat den Wert '40'

hth\n\n