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

coax

2004-03-06 19:53

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

Quote
Fri Mar 5 23:06:35 2004] ftp.cgi: "my" variable $f1 masks earlier declaration in same scope at ftp.cgi line 105.
[Fri Mar 5 23:06:35 2004] ftp.cgi: "my" variable $f2 masks earlier declaration in same scope at ftp.cgi line 105.

$f1 und $f2 sind schon einmal zuvor in deinen Script mit my deklariert wurden, wahrscheinlich hier

Code: (dl )

1
2

foreach my $f (@ren) {
my ($f1, $f2) = @$f;

Quote
[Fri Mar 5 23:06:35 2004] ftp.cgi: Scalar found where operator expected at ftp.cgi line 107, near "$f
[Fri Mar 5 23:06:35 2004] ftp.cgi: #...
[Fri Mar 5 23:06:35 2004] ftp.cgi: $ftp"
[Fri Mar 5 23:06:35 2004] ftp.cgi: (Missing semicolon on previous line?)
[Fri Mar 5 23:06:35 2004] ftp.cgi: syntax error at ftp.cgi line 107, near "$f

weil hier das Semikolon am Ende fehlt

Code: (dl )

1
2

# change remote directory
my ($f1, $f2, $ftp_upload_location) = @$f

in deinen Codeschnipsel hattest das dann aber geaendert, nur die Doppeldeklarierung der Variablen waren noch da...

Code: (dl )

# change remote directory
my ($f1, $f2, $ftp_upload_location) = @$f;
$ren[0]->[2] = "/DE/IN";
$ren[1]->[2] = "/DE/OUT";
$ftp->cwd ($ftp_upload_location);

Quote
von cc:
und ich verstehe deine antworten zu punkt 2 nicht,
was deiner meinung falsch ist.

Wenn ich Kabel da richtig verstanden habe, kannst du dich auf den Rueckgabewert von put() und somit auch nicht auf die Ausfuehrung von last bei

Code: (dl )

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

verlassen. Du solltest also anders pruefen ob put erfolgreich war.
Hab ich das richtig verstanden ???

,,Das perlt aber heute wieder...'' -- Dittsche