Conditional RegExp - #133401 (Allgemeines zu Perl)

betterworld

2010-02-21 11:57

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Ich haette es jetzt auch so gemacht, dass ich einfach zwei regulaere Ausdruecke hinschreibe: Einen fuer hund und einen fuer katze. Man kann sie dann auch mit "|" einfach verbinden:

Code (perl): (dl )

use strict;
use warnings;
use Data::Dumper;


my $blub = "hund:bello,12,w";
my $blab = "katze:mini,m";

for ($blub, $blab) {
    if (/^ (?<t>hund)  : (?<n>[^,]*) , (?<g>\d+) , (?<s>m|w)  $ |
         ^ (?<t>katze) : (?<n>[^,]*) ,             (?<s>m|w)  $  /x) {

         print Dumper \%+;
    }
}

Ausgabe:

Code: (dl )

$VAR1 = {
          'n' => 'bello',
          'g' => '12',
          's' => 'w',
          't' => 'hund'
        };
$VAR1 = {
          'n' => 'mini',
          's' => 'm',
          't' => 'katze'
        };

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class