Das sammelt alles bis zum ersten "=" und alles danach...

Code :

1 2 3 4 5 6 7 8 9 10 11 12

#!/usr/bin/perl   use strict; use warnings;   my $pattern = '^([^\=]+)\=(.*)$';   my @texte = ('Key=Value', 'Hallo=Test', 'Dies=ist=ein=Test'); for(@texte){     my ($key,$value) = $_ =~ /$pattern/;     print "Key: $key -- Value: $value\n"; }

Code :

1 2 3 4

~/entwicklung 61> perl key_value.pl Key: Key -- Value: Value Key: Hallo -- Value: Test Key: Dies -- Value: ist=ein=Test

Aber um ehrlich zu sein, sollte man das besser mit split machen (schneller, speicherschonender, lesbarer)

Code :

1 2 3 4 5

my @texte = ('Key=Value', 'Hallo=Test', 'Dies=ist=ein=Test'); for(@texte){     my ($key,$value) = split /=/,$_,2; # teile am ersten "="     print "Key: $key -- Value: $value\n"; }

Wenn Du mal wieder eine RegEx erklärt haben möchtest und Du möchtest nicht erst auf Antwort warten, kannst Du auch das Modul YAPE::Regex::Explain verwenden...

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

The regular expression:   (?-imsx:^([^\=]+)\=(.*)$)   matches as follows:   NODE                     EXPLANATION ---------------------------------------------------------------------- (?-imsx:                 group, but do not capture (case-sensitive)                          (with ^ and $ matching normally) (with . not                          matching \n) (matching whitespace and #                          normally): ----------------------------------------------------------------------   ^                        the beginning of the string ----------------------------------------------------------------------   (                        group and capture to \1: ----------------------------------------------------------------------     [^\=]+                   any character except: '\=' (1 or more                              times (matching the most amount                              possible)) ----------------------------------------------------------------------   )                        end of \1 ----------------------------------------------------------------------   \=                       '=' ----------------------------------------------------------------------   (                        group and capture to \2: ----------------------------------------------------------------------     .*                       any character except \n (0 or more times                              (matching the most amount possible)) ----------------------------------------------------------------------   )                        end of \2 ----------------------------------------------------------------------   $                        before an optional \n, and the end of the                            string ---------------------------------------------------------------------- )                        end of grouping ----------------------------------------------------------------------

Vielen Dank für deine Hilfe, renee!

lg Dc