Opened by Duff at 2006-11-13 12:08
User since
2006-10-06
283 Artikel
BenutzerIn
2006-10-06
283 Artikel
BenutzerIn
Mmh... und schon gibt es das nächste Problem.
Möchte die ganze Subroutine nun mit zwei Parametern realisieren, so dass der erste übergebene Parameter der reg. Ausdruck sein soll.
Habe es so probiert, bekomme aber kein Ergebnis beim match-Aufruf:
Es folgen noch die beiden Ausgaben des reg. Ausdrucks.
Einmal, die Ausgabe der eingegebenen Variable des reg. Audrucks und zum Anderen die Ausgabe der print-Anweisung der Variablen $suchstring.
Möchte die ganze Subroutine nun mit zwei Parametern realisieren, so dass der erste übergebene Parameter der reg. Ausdruck sein soll.
Habe es so probiert, bekomme aber kein Ergebnis beim match-Aufruf:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
sub ausgabe {
my ($uebergabe)=shift @_;
my ($arrayRef)=@_;
my $suchstring = qr($uebergabe);
print "-- $suchstring -- \n";
foreach my $array ( @{$arrayRef} ) {
my @result=();
while ($array->[1] =~ /$suchstring/g) {
push @result, $1. " --> " .$2. "\t";
}
printf "%-90s : %-s\n", $array->[0], join(" ",@result);
}
}Es folgen noch die beiden Ausgaben des reg. Ausdrucks.
Einmal, die Ausgabe der eingegebenen Variable des reg. Audrucks und zum Anderen die Ausgabe der print-Anweisung der Variablen $suchstring.
Code: (dl
)
1
2
/(<[^>]*?STRING[^>]*?>)(\d{10,15})<\/[^>]*?STRING[^>]*?>/im
-- (?-xism:/(<[^>]*?STRING[^>]*?>)(\d{10,15})<\/[^>]*?STRING[^>]*?>/im) --D'OH
Daniel
Daniel