Opened by dax42 at 2004-07-09 12:20
User since
2004-06-16
24 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-06-16
24 Artikel
BenutzerIn
So, ich hab das Problem jetzt folgendermaßen gelöst (falls es jemanden interessiert). Ist wahrscheinlich nicht gerade die effizienteste Lösung, aber wenigstens ist es überhaupt gelöst.
Erst hole ich mir in ein array alle Zeilen, die mit BS beginnen. Dann mache ich das Array wieder zu einem String und extrahiere mir dann aus dem alle Rs und Ts.
Erst hole ich mir in ein array alle Zeilen, die mit BS beginnen. Dann mache ich das Array wieder zu einem String und extrahiere mir dann aus dem alle Rs und Ts.
Code: (dl
)
1
2
3
my @resultset = $c =~ /<A[^>]+>BS<\/A>(.*)\n/g;
my $result = join '',@resultset;
my @data = $result =~ /<A[^>]+>([RT][0-9]+)<\/A>/g;