Thread Per FTP Datei kopieren? (11 answers)
Opened by bianca at 2011-03-16 20:37

bianca
 2011-03-21 17:42
#146708 #146708
User since
2009-09-13
7016 Artikel
BenutzerIn

user image
2011-03-17T08:08:29 renee
Du könntest mit "Rename" arbeiten...

Diese Idee hab ich zuerst garnicht kapiert, weil ich doch ein Copy wollte. Aber da die Datei ja eh neu hochgeladen wird, geht natürlich auch rename.
Allerdings hat das eine komische Auswirkung bei mir.

Mache ich da was falsch?

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13

if($ftp -> supported("RNFR") && $ftp -> supported("RNTO")) {
    print "rename supported!\n";
    print "Es folgt RENAME\n";
    if ($ftp->command('RNFR', 'tmpdevelop/test_ftp.pl') && $ftp->command('RNTO','tmp/test.pl')) {
        print "Es folgt ISFILE\n";
        if ($ftp -> isfile ("tmp/test.pl")) {
            print "Erledigt!\n";
        }
    }
    else {
        print "Fehler >" . $ftp->message . "<\n";
    }
}

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
28
29
30
31
32
33
34
35
36
37
Net::FTP=GLOB(0x1d31744)>>> HELP RNFR
Net::FTP=GLOB(0x1d31744)<<< 214 Syntax: RNFR <sp> pathname
Net::FTP=GLOB(0x1d31744)>>> HELP RNTO
Net::FTP=GLOB(0x1d31744)<<< 214 Syntax: RNTO <sp> pathname
rename supported!
Es folgt RENAME
Net::FTP=GLOB(0x1d31744)>>> RNFR tmpdevelop/test_ftp.pl
Net::FTP=GLOB(0x1d31744)>>> RNTO tmp/test.pl
Es folgt ISFILE
Net::FTP=GLOB(0x1d31744)>>> HELP SIZE
Net::FTP=GLOB(0x1d31744)<<< 350 File or directory exists, ready for destination name
Net::FTP=GLOB(0x1d31744)>>> HELP STAT
Net::FTP=GLOB(0x1d31744)<<< 250 Rename successful
Net::FTP=GLOB(0x1d31744)>>> STAT tmp/test.pl
Net::FTP=GLOB(0x1d31744)<<< 214 Syntax: SIZE <sp> pathname
Net::FTP=GLOB(0x1d31744)>>> PWD
Net::FTP=GLOB(0x1d31744)<<< 214 Syntax: STAT [<sp> pathname]
Net::FTP=GLOB(0x1d31744)>>> CWD tmp/test.pl
Net::FTP=GLOB(0x1d31744)<<< 211-Status of tmp/test.pl:
Net::FTP=GLOB(0x1d31744)<<< 211--rw-r-----   1 [username] users        4907 Mar 21 17:34 tmp/test.pl
Net::FTP=GLOB(0x1d31744)<<< 211 End of status
Net::FTP=GLOB(0x1d31744)>>> CWD /
Net::FTP=GLOB(0x1d31744)<<< 257 "/" is the current directory
Net::FTP=GLOB(0x1d31744)>>> PWD
Net::FTP=GLOB(0x1d31744)<<< 550 tmp/test.pl: No such file or directory
Use of uninitialized value $c in string ne at C:/strawberry/perl/site/lib/Net/FTP/File.pm line 95.
Use of uninitialized value $e in string ne at C:/strawberry/perl/site/lib/Net/FTP/File.pm line 95.
Net::FTP=GLOB(0x1d31744)>>> PWD
Net::FTP=GLOB(0x1d31744)<<< 250 CWD command successful
Net::FTP=GLOB(0x1d31744)>>> CWD tmp/test.pl
Net::FTP=GLOB(0x1d31744)<<< 257 "/" is the current directory
Net::FTP=GLOB(0x1d31744)>>> CWD /
Net::FTP=GLOB(0x1d31744)<<< 257 "/" is the current directory
Net::FTP=GLOB(0x1d31744)>>> PWD
Net::FTP=GLOB(0x1d31744)<<< 550 tmp/test.pl: No such file or directory
Use of uninitialized value $c in string ne at C:/strawberry/perl/site/lib/Net/FTP/File.pm line 95.
Use of uninitialized value $e in string ne at C:/strawberry/perl/site/lib/Net/FTP/File.pm line 95.


Warum schmeißt das Modul bei isfile solche Fehler?
Vorheriges Umschalten auf binary bringt auch nichts.
10 print "Hallo"
20 goto 10

View full thread Per FTP Datei kopieren?