Community  »  Perl: Allgemeines Forum

substr und split Fragen	Seitenanfang
Moin Comuity... ich habe ein kleinen IRC Bot geschrieben, nun kommt mein Problem er soll aus diesem String: Angreifer: (ETA5) 13:10 - 25:1 - 69:4 - 69:5 - 241:5 - 273:3 mir die 13:10 25:1 usw ausgeben aber nur diese Teile... und von dem hier: Angreifer: (ETA7) 51:10,(ETA8) 114:6 das gleiche.. allerdings kann es sein das er immer anders ist aber in einem dieser formate ist er. Bis jetzt habe ich es so gelöst: $text =~ s/[a-z]| //gi; $text =~ s/-/\n /g; $text =~ s/[.?\!\"\;_] //g; my @Adresse = split(/,/,$text); my $eta; # my $inc = $Adresse[2]; my $i = 0; # my $ii = 0; for(@Adresse) { if ($i == 0) { $eta = substr($Adresse[0],4,50); main::irc_say($remotenick,$eta); } else { $eta = substr($Adresse[$i],3,50); main::irc_say($remotenick,$eta); } $i++; } Allerdings bekomme ich bei diesem Code nur dieses gesplittet so wie ich es brauch: Angreifer: (ETA7) 51:10,(ETA8) 51:10 Wäre Super wenn mir einer dabei helfen könnte.. MfG Waterball Datum: 17.08.2006-21:05
re: substr und split Fragen	Seitenanfang
Hallo Waterball, evtl. helfen dir diese Zeilen weiter: my $text = "(ETA5) 13:10 - 25:1 - 69:4 - 69:5 - 241:5 - 273:3"; $text =~ /^\s*[^\)]*\)\s*(\d+:\d+)(\s+-|,\([^\)]*\))\s(\d+:\d+).*/; print "$1 $3\n"; Gruß Thomas Datum: 19.08.2006-21:51