Opened by zieglerch at 2006-06-05 03:29
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Die von renee gezeigte Variante ist sicher die üblichste und wahrscheinlich auch sinnvollste. Hier noch eine Variante mit einer getrennten Funktion first_match:
...
Nachtrag: Bequemer kann man das ganze natürlich auch mit
List::Util haben.\n\n
<!--EDIT|Ronnie|1149500835-->
Code: (dl
)
1
2
3
4
5
6
sub first_match ($@) {
my ($regex, @data) = @_;
my $result;
for (@data) { $result = $1 and last if /$regex/ }
return $result;
}...
Code: (dl
)
my $max = first_match qr/Current Attainable Rate -\s*(\d+)/, @lines;
Nachtrag: Bequemer kann man das ganze natürlich auch mit
List::Util haben.\n\n<!--EDIT|Ronnie|1149500835-->