Opened by fliXR at 2009-12-20 23:19
User since
2009-12-19
4 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2009-12-19
4 Artikel
BenutzerIn
Hallo zusammen,
mache gerade meine ersten Erfahrungen mit Perl und probiere ein wenig herum.
Mit
kann ich mir in der for Schleife jedes einzelne Element ausgeben. Versuche ich allerdings explizit mittels
auf ein Key aus dem Hash zuzugreifen bekomme ich folgenden Fehler:
Use of uninitialized value $dirlist{"1"} in print at ./ftp.pl line 23.
Wäre nett, wenn mir jmd. erklären könnte womit das zusammenhängt?! Habe mir vorher auch $i ausgeben lassen und dann eine Zahl davon eingetragen. Hat aber nichts gebracht.
Vielen Dank schon mal
Gruß fliX
mache gerade meine ersten Erfahrungen mit Perl und probiere ein wenig herum.
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
#!/usr/bin/perl
use strict;
use warnings;
use Net::FTPSSL;
my @ret;
my %dirlist;
my $i = 0;
my $win_ftp = "192.168.0.3";
my $homeftp = Net::FTPSSL->new ("$win_ftp",
Port => 6500,
Encryption => CLR_CRYPT,
Croak => 1,
);
$homeftp->login('test','test');
@ret = $homeftp->nlst('','');
for (@ret) {
%dirlist = (
"$i" => "$_",
);
print $dirlist{$i};
$i++;
}
Mit
Code: (dl
)
print $dirlist{$i}; Code: (dl
)
print $dirlist{"5"}Use of uninitialized value $dirlist{"1"} in print at ./ftp.pl line 23.
Wäre nett, wenn mir jmd. erklären könnte womit das zusammenhängt?! Habe mir vorher auch $i ausgeben lassen und dann eine Zahl davon eingetragen. Hat aber nichts gebracht.
Vielen Dank schon mal
Gruß fliX