Thread Net::FTP kopieren mit Zeitstempel (17 answers)
Opened by bianca at 2011-02-22 09:45

GwenDragon
 2011-02-23 16:07
#145945 #145945
User since
2005-01-17
14784 Artikel
Admin1
[Homepage]
user image
Klappt site UTIME nicht?

Dann eben MFMT.
quot ist laut Source nur ein Synonym für
Code (perl): (dl )
1
2

$ftp->command(uc $cmd, @_);
$ftp->response();


Schau (login ausgersternt):
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/perl

use strict;
use warnings;

use Net::FTP;

my $server   = "ftp.********";
my $user     = "******";
my $password = '****************';

my $ftp = Net::FTP->new( $server, Debug => 1 ) or die "Cannot connect to $server: $@";
$ftp->login( $user, $password ) or die "Cannot login ", $ftp->message;

$ftp->cwd("/prv") or die "Cannot change working directory ", $ftp->message;

$ftp->put("test.test") or die "get failed ", $ftp->message;

$ftp->quot( "MFMT", "19990101010101", "test.test" ) or die "get failed ", $ftp->message;

$ftp->quit;


Geht bei mir laut Net::FTP-Debug:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Net::FTP=GLOB(0x24eae30)<<< 220 ******* FTP server ready
Net::FTP=GLOB(0x24eae30)>>> USER ************
Net::FTP=GLOB(0x24eae30)<<< 331 Password required for *******
Net::FTP=GLOB(0x24eae30)>>> PASS ....
Net::FTP=GLOB(0x24eae30)<<< 230 User ******** logged in
Net::FTP=GLOB(0x24eae30)>>> CWD /prv
Net::FTP=GLOB(0x24eae30)<<< 250 CWD command successful
Net::FTP=GLOB(0x24eae30)>>> PASV
Net::FTP=GLOB(0x24eae30)<<< 227 Entering Passive Mode (********).
Net::FTP=GLOB(0x24eae30)>>> STOR test.test
Net::FTP=GLOB(0x24eae30)<<< 150 Opening BINARY mode data connection for test.test
Net::FTP=GLOB(0x24eae30)<<< 226 Transfer complete
Net::FTP=GLOB(0x24eae30)>>> MFMT 19990101010101 test.test
Net::FTP=GLOB(0x24eae30)<<< 213 Modify=19990101010101; test.test
Net::FTP=GLOB(0x24eae30)>>> QUIT
Net::FTP=GLOB(0x24eae30)<<< 221 Goodbye.


Code: (dl )
1
2
3
4
5
6
7
8
9
10
[root@***** prv]# stat test.test
  File: `test.test'
  Size: 0               Blocks: 0          IO Block: 4096   regular empty file
Device: 2ah/42d Inode: 206152378   Links: 1
Access: (0644/-rw-r--r--)  Uid: (****/*****)   Gid: (  ****/  *****)
Access: 1999-01-01 02:01:01.000000000 +0100
Modify: 1999-01-01 02:01:01.000000000 +0100
Change: 2011-02-23 15:58:02.000000000 +0100

[root@**** prv]#
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread Net::FTP kopieren mit Zeitstempel