Opened by cc at 2004-02-29 00:59
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Datei holen (aus der perldoc-Seite von dem von Dir verwendeten Net::FTP, kannte ich noch gar nicht, sieht aber nett aus und ist bei ActiveState per default dabei *freu*):
So, jetzt liegt die Datei vom Server lokal vor, mit dem angehängetn ".remotecopy" hinter dem Namen.
Jetzt kannst Du die beiden lokalen Dateien "that.file" und "that.file.remotecopy" vergleichen.
Wenn sie verschieden sind, lädst Du halt "that.file" hoch.
Code: (dl
)
1
2
3
4
5
$ftp = Net::FTP->new("some.host.name", Debug => 0);
$ftp->login("anonymous",'-anonymous@');
$ftp->cwd("/pub");
$ftp->get("that.file", "that.file.remotecopy");
$ftp->quit;So, jetzt liegt die Datei vom Server lokal vor, mit dem angehängetn ".remotecopy" hinter dem Namen.
Jetzt kannst Du die beiden lokalen Dateien "that.file" und "that.file.remotecopy" vergleichen.
Wenn sie verschieden sind, lädst Du halt "that.file" hoch.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite