Opened by duerov at 2005-11-22 14:33
User since
2005-10-26
27 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-10-26
27 Artikel
BenutzerIn
Hallo,
nach längerer Zeit kann ich mich mal wieder perl widmen. Hab jetzt mal versucht das Net::FTP::Recursive zum Einsatz zu bringen. Sieht momentan bei mir so aus:
Hier bekomm ich immer die Fehlermeldung:
Schätze mal da ich auf einem Windowssystem bin kommt er mit dem Linux-ls nicht zurecht. Mein $cmd gibt momentan auch keinen Sinn, aber die Unterordner haben doch nicht immer den gleichen Namen..., check das nicht.
Falls jemand einen Tipp hat...
Gruß
duerov
PS. Bin nach der CPAN Seite vorgegangen.
CPAN
nach längerer Zeit kann ich mich mal wieder perl widmen. Hab jetzt mal versucht das Net::FTP::Recursive zum Einsatz zu bringen. Sieht momentan bei mir so aus:
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
#!D:/Programme/Perl
use strict;
use warnings;
use Net::FTP::Recursive;
print "Pfad (z.B. C:\\temp) : ";
my $path = <STDIN>;
chomp($path);
my $ftp = Net::FTP::Recursive->new("server", Debug => 0) or die "Konnte keine Verbindung aufbauen $!";
$ftp->login("user", "password") or die "Login failed: $!";
if(opendir(my $handle, $path)) {
while(my $file = readdir $handle)
{
next if $file =~ m#^\.\.?$#;
my $cmd;
$ftp->rput(\$path,$cmd,1,1);
}
closedir $handle;
}
$ftp->quit;
Hier bekomm ich immer die Fehlermeldung:
QuoteDer Befehl "ls" ist entweder falsch geschrieben oder
konnte nicht gefunden werden.
Schätze mal da ich auf einem Windowssystem bin kommt er mit dem Linux-ls nicht zurecht. Mein $cmd gibt momentan auch keinen Sinn, aber die Unterordner haben doch nicht immer den gleichen Namen..., check das nicht.
Falls jemand einen Tipp hat...
Gruß
duerov
PS. Bin nach der CPAN Seite vorgegangen.
CPAN