Problem mit Hash - #129570 (Allgemeines zu Perl)

pktm

2009-12-20 23:58

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Mittels

Code: (dl )

1
2
3

%dirlist = (
  "$i" => "$_",
);

definierst du jeweils den gesamten Hash, nicht nur den Eintrag an der Stelle $i. Wenn du das tun willst, musst du schreiben:

Code: (dl )

$dirlist{$i} = "mein wert";

Eventuell hier ein Verbesserungsvorschlag für dein Skript (ungetestet):

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Net::FTPSSL;

my %dirlist = ();
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');
my @ret = $homeftp->nlst('','');

my $i = 0;
for my $val (@ret) {
    $dirlist{$i} = $val;
    print $dirlist{$i};
    $i++;
}

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )