Opened by -Sven- at 2003-10-22 11:20
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=-Sven-,22.10.2003, 09:20]@Server(google,google,google,web,gmx);
@Pfad(start,start,test,mail,sms);
@Datei(index,start,login,test,send);
So das wichtigste: $server[0] und $pfad[0] und $Datei[0] bilden ein Datensatz, -> $server [n],$pfad[n] und $Datei[n] ebenso;
[/quote]
Das sieht für mich danach aus, als würdest Du ein AoH brauchen, etwa so:
mit der Ausgabe
Ist es das, was Dir vorschwebt?\n\n
<!--EDIT|Crian|1066814908-->
@Pfad(start,start,test,mail,sms);
@Datei(index,start,login,test,send);
So das wichtigste: $server[0] und $pfad[0] und $Datei[0] bilden ein Datensatz, -> $server [n],$pfad[n] und $Datei[n] ebenso;
[/quote]
Das sieht für mich danach aus, als würdest Du ein AoH brauchen, etwa so:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
use strict;
my @Server = qw(google google google web gmx );
my @Pfad = qw(start start test mail sms );
my @Datei = qw(index start login test send);
my @AoH = ();
my $l = scalar @Server;
die "unterschiedlich große Arrays" if $l != scalar @Server or
$l != scalar @Pfad or
$l != scalar @Datei ;
for my $index (0..$l-1) {
push @AoH, {
server => $Server[$index],
pfad => $Pfad [$index],
datei => $Datei [$index],
}
}
use Data::Dumper;
print Dumper \@AoH;
mit der Ausgabe
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
$VAR1 = [
{
'pfad' => 'start',
'datei' => 'index',
'server' => 'google'
},
{
'pfad' => 'start',
'datei' => 'start',
'server' => 'google'
},
{
'pfad' => 'test',
'datei' => 'login',
'server' => 'google'
},
{
'pfad' => 'mail',
'datei' => 'test',
'server' => 'web'
},
{
'pfad' => 'sms',
'datei' => 'send',
'server' => 'gmx'
}
];
Ist es das, was Dir vorschwebt?\n\n
<!--EDIT|Crian|1066814908-->
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