manchmal ist es NICHT einfach ! - #80527 (Allgemeines zu Perl)

kabel

2004-03-04 21:23

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

zu 1)
dazu musst du die einträge im feld @ren erweitern; und zwar kommt als drittes die ftp-location dazu. der punkt ist: woher bekommst du diese information? weisst du das schon vorher oder steht das im info-file? ich gehe mal von ersterem aus:

Code: (dl )

1
2

$ren[0]->[2] = "/DE/IN";
$ren[1]->[2] = "/DE/OUT";

und dann entsprechend:

Code: (dl )

my ($f1, $f2, $ftp_upload_location) = @$f
#...
$ftp->cwd ($ftp_upload_location);
#...

zu 2)

Code: (dl )

$ftp->put ($f2) and last; # Success

bist du dir sicher, dass die put methode wirklich genau so arbeitet?

wenn ich die doku lese, weiss ich das nicht wirklich:

Quote
Returns "REMOTE_FILE", or the generated remote file-
name if "REMOTE_FILE" is not given.

NOTE: If for some reason the transfer does not com-
plete and an error is returned then the contents that
had been transfered will not be remove automatically.

das sagt genau gar nix darüber aus. (ja, ich kenne den absatz über true und false, aber hier wird ja offensichtlich von dieser regel abgewichen!)

hier noch mal der ganze code zum durchlesen:
(ok, doch net)
AARRGGHH der perl/code etc. parser schmeisst whitespaces am anfang raus! meine armen augen ...

Code: (dl )

1
2

# change remote directory for the first file
$ftp->cwd("/DE/IN");

@cc: sieht komisch aus, ne? ;)

Code: (dl )

while(<FILE>) { $content .=$_; }

das perl idiom sieht so aus:

Code: (dl )

{ local $/; $content = <FILE>; }

frag doch auch mal bei den monks.
da gibts auch noch mehr idiomatisches perl (tutorials section, AFAIK)

HTH

-- stefan