Opened by jason-duff at 2006-01-16 12:13
User since
2003-08-04
5867 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5867 Artikel
ModeratorIn
Wenn der Pfad immer gleich ist, würd ich den in einer extra Variablen speichern und aus dem Hash rauslassen.
Wenn ich Dich richtig verstehe:
Wie man sieht, wird $dir gar nicht gebraucht... wenn das tatsächlich so bleibt, geht das wesentlich einfacher :)\n\n
<!--EDIT|Crian|1137416047-->
Wenn ich Dich richtig verstehe:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $path = './space/dir/';
my %dirs = (
'traffic' => { array => 'Referenz', sub => \&traffic },
'packetloss' => { array => 'Referenz', sub => \&packetloss},
'JitterIN' => { array => 'Referenz', sub = \&iitter_in},
'jitterOUT' => { array => 'Referenz', sub = \&jitter_out },
'PacketLossIN' => { array => 'Referenz', sub => \&packet_loss_in },
'PacketLossOUT' => { array => 'Referenz', sub => \&packet_loss_out },
);
while (my ($dir, $value) = each %dirs) {
my @param = ($path, $value->{array});
$value->{sub}->(@param);
}
Wie man sieht, wird $dir gar nicht gebraucht... wenn das tatsächlich so bleibt, geht das wesentlich einfacher :)\n\n
<!--EDIT|Crian|1137416047-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite