Opened by Duff at 2006-11-13 12:08
User since
2006-10-06
283 Artikel
BenutzerIn
2006-10-06
283 Artikel
BenutzerIn
Ok, habe es jetzt so gelöst (ist zwar nicht so besonders, aber es funktioniert dann wenigstens die match-Anweisung).
Und der reg. Ausdruck, der an die Subroutine übergeben werden soll, muss dann so auferufen werden:
./skript.pl -r "(<[^>]*?STRING[^>]*?>)(\d{10,15})<\/[^>]*?STRING[^>]*?>", so dass die beiden // und die Endungen im (sowie g) entfallen müssen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
sub ausgabe4 {
my ($uebergabe)=shift @_;
my ($arrayRef)=@_;
my $suchstring = qr/$uebergabe/im;
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);
}
}Und der reg. Ausdruck, der an die Subroutine übergeben werden soll, muss dann so auferufen werden:
./skript.pl -r "(<[^>]*?STRING[^>]*?>)(\d{10,15})<\/[^>]*?STRING[^>]*?>", so dass die beiden // und die Endungen im (sowie g) entfallen müssen.
D'OH
Daniel
Daniel