[Net::FTP] Deep recursion on subroutine "Net::FTP::rmdir" at C:/strawberry/perl/lib/Net/FTP.pm line 681. (gelöst) (Fragen zu Perl-Modulen)

[thread]19768[/thread]

[Net::FTP] Deep recursion on subroutine "Net::FTP::rmdir" at C:/strawberry/perl/lib/Net/FTP.pm line 681. [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+9 replies
bianca

2015-08-24 19:15
User since
2009-09-13
7016 Artikel
BenutzerIn
Hallöchen!

Win 7 64 Bit, Strawberry 5.18.4
Wenn ich dieses Script laufen lasse
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl use strict; use warnings; require Net::FTP; # <- Version 3.05 my $ftp = Net::FTP->new('ftp.servername.de'); $ftp->login('user','pass'); $ftp->rmdir("/verzeichnis/1",1) or do { print "fail" }; $ftp->quit;
erhalte ich die Meldung
Quote
Deep recursion on subroutine "Net::FTP::rmdir" at C:/strawberry/perl/lib/Net/FTP.pm line 681.

Das Verzeichnis enthält keine Unterverzeichnisse und 123 Dateien.
Lasse ich das Script in der Eingabeaufforderung laufen, dauert es auch ein paar Sekunden bis die Meldung kommt. Und nach der Meldung kommt das Script auch nicht zurück, es muss mit STRG C abgewürgt werden.
Löschen tut das Script auf dem FTP Server leider garnichts.

Was kann ich da machen?
10 print "Hallo"
20 goto 10
- Raubtier
  
  2015-08-24 19:59
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  Hast du Rechte, die Dateien zu löschen?
  
  Ich habe mal eben in meinem Net::FTP nachgeguckt (ältere Version), dort findet sich:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  foreach $file (map { m,/, ? $_ : "$dir/$_" } @filelist) { next # successfully deleted the file if $ftp->delete($file); # Failed to delete it, assume its a directory # Recurse and ignore errors, the final rmdir() will # fail on any errors here return $ok unless $ok = $ftp->rmdir($file, 1); }
  
  D.h. wenn eine Datei nicht gelöscht werden kann, nimmt Net::FTP an, dass es sich um ein Verzeichnis handelt und ruft sich rekursiv auf. So könnte das vielleicht passieren (wenn sich der Code nicht groß geändert hat).
- GwenDragon
  
  2015-08-24 20:04
  
  User since
  2005-01-17
  14746 Artikel
  Admin1
  
  Versuche es mal ohne den / am Anfang des Verzeichnis.
  Und ein , Debug => 1 in new hilft mit Debugging Fehler finden.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- bianca
  
  2015-08-25 07:39
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  @Raubtier: Berechtigungen sind vorhanden, siehe folgendes Beispiel
  @GwenDragon: leider ändert das nichts, hab es jetzt auch mit cwd() versucht, siehe folgendes Beispiel:
  
  Zum Nachstellen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #!/usr/bin/perl use strict; use warnings; require Net::FTP; # <- Version 3.05 my $ftp = Net::FTP->new('ftp.servername.de',Debug => 1); $ftp->login('***user***','***pw***'); $ftp->cwd('/tmp'); my $path = $ftp->mkdir('raubtier'); $ftp->cwd($path); $ftp->put('test.pl'); $ftp->cwd('/tmp'); $ftp->rmdir("raubtier",1) or do { print "fail" }; $ftp->quit;
  
  Quote
  Net::FTP>>> Net::FTP(3.05)
  Net::FTP>>> Exporter(5.70)
  Net::FTP>>> Net::Cmd(3.05)
  Net::FTP>>> IO::Socket::SSL(2.012)
  Net::FTP>>> IO::Socket::IP(0.37)
  Net::FTP>>> IO::Socket(1.36)
  Net::FTP>>> IO::Handle(1.34)
  Net::FTP=GLOB(0x2c308e8)<<< 220 FTP server ready
  Net::FTP=GLOB(0x2c308e8)>>> USER ***user***
  Net::FTP=GLOB(0x2c308e8)<<< 331 Password required for ***user***
  Net::FTP=GLOB(0x2c308e8)>>> PASS ....
  Net::FTP=GLOB(0x2c308e8)<<< 230 User ***user*** logged in
  Net::FTP=GLOB(0x2c308e8)>>> CWD /tmp
  Net::FTP=GLOB(0x2c308e8)<<< 250 CWD command successful
  Net::FTP=GLOB(0x2c308e8)>>> MKD raubtier
  Net::FTP=GLOB(0x2c308e8)<<< 257 "/tmp/raubtier" - Directory successfully created
  Net::FTP=GLOB(0x2c308e8)>>> CWD raubtier
  Net::FTP=GLOB(0x2c308e8)<<< 250 CWD command successful
  Net::FTP=GLOB(0x2c308e8)>>> PASV
  Net::FTP=GLOB(0x2c308e8)<<< 227 Entering Passive Mode (***nummern***,210,159).
  Net::FTP=GLOB(0x2c308e8)>>> STOR test.pl
  Net::FTP=GLOB(0x2c308e8)<<< 150 Opening ASCII mode data connection for test.pl
  Net::FTP=GLOB(0x2c308e8)<<< 226 Transfer complete
  Net::FTP=GLOB(0x2c308e8)>>> CWD /tmp
  Net::FTP=GLOB(0x2c308e8)<<< 250 CWD command successful
  Net::FTP=GLOB(0x2c308e8)>>> RMD raubtier
  Net::FTP=GLOB(0x2c308e8)<<< 550 raubtier: Directory not empty
  Net::FTP=GLOB(0x2c308e8)>>> PASV
  Net::FTP=GLOB(0x2c308e8)<<< 227 Entering Passive Mode (***nummern***,71,82).
  Net::FTP=GLOB(0x2c308e8)>>> NLST raubtier
  Net::FTP=GLOB(0x2c308e8)<<< 150 Opening ASCII mode data connection for file list
  Net::FTP=GLOB(0x2c308e8)<<< 226 Transfer complete
  Net::FTP=GLOB(0x2c308e8)>>> DELE raubtier/.
  Net::FTP=GLOB(0x2c308e8)<<< 550 raubtier/.: Is a directory
  Net::FTP=GLOB(0x2c308e8)>>> RMD raubtier/.
  Net::FTP=GLOB(0x2c308e8)<<< 550 raubtier/.: Directory not empty
  Net::FTP=GLOB(0x2c308e8)>>> PASV
  Net::FTP=GLOB(0x2c308e8)<<< 227 Entering Passive Mode (***nummern***,243,155).
  Net::FTP=GLOB(0x2c308e8)>>> NLST raubtier/.
  Net::FTP=GLOB(0x2c308e8)<<< 150 Opening ASCII mode data connection for file list
  Net::FTP=GLOB(0x2c308e8)<<< 226 Transfer complete
  Net::FTP=GLOB(0x2c308e8)>>> DELE raubtier/.
  Net::FTP=GLOB(0x2c308e8)<<< 550 raubtier/.: Is a directory
  Net::FTP=GLOB(0x2c308e8)>>> RMD raubtier/.
  Net::FTP=GLOB(0x2c308e8)<<< 550 raubtier/.: Directory not empty
  Net::FTP=GLOB(0x2c308e8)>>> PASV
  Net::FTP=GLOB(0x2c308e8)<<< 227 Entering Passive Mode (***nummern***,63,113).
  Net::FTP=GLOB(0x2c308e8)>>> NLST raubtier/.
  Net::FTP=GLOB(0x2c308e8)<<< 150 Opening ASCII mode data connection for file list
  Net::FTP=GLOB(0x2c308e8)<<< 226 Transfer complete
  Net::FTP=GLOB(0x2c308e8)>>> DELE raubtier/.
  Net::FTP=GLOB(0x2c308e8)<<< 550 raubtier/.: Is a directory
  Net::FTP=GLOB(0x2c308e8)>>> RMD raubtier/.
  Net::FTP=GLOB(0x2c308e8)<<< 550 raubtier/.: Directory not empty
  Net::FTP=GLOB(0x2c308e8)>>> PASV
  Net::FTP=GLOB(0x2c308e8)<<< 227 Entering Passive Mode (***nummern***,150,176).
  Net::FTP=GLOB(0x2c308e8)>>> NLST raubtier/.
  Net::FTP=GLOB(0x2c308e8)<<< 150 Opening ASCII mode data connection for file list
  Net::FTP=GLOB(0x2c308e8)<<< 226 Transfer complete
  .
  .
  .
  ...usw. und wenn sie nicht mit STRG C gestorben sind, so läuft das script noch heute...
  
  Kann es sein, dass der FTP-Server einfach kein rmdir() auf nicht leere Verzeichnisse zulässt? Falls das so ist, sollte das Modul Net::FTP das rekursive Löschen dann nicht "manuell" erledigen?
  
  Ich hab das Script gegen zwei völlig unterschiedliche FTP-Server laufen lassen, das Bild ist dasselbe.
  Bug oder Feature?
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - Raubtier
    
    2015-08-25 09:50
    User since
    2012-05-04
    1075 Artikel
    BenutzerIn
    
    Hm... Habe leider aktuell kein FTP-Server zum Nachstellen da.
    
    Ab Version 3.07 wird allerdings MLSD statt LIST verwendet, um die Dateien aufzulisten. Das könntest du mal ausprobieren.
    
    Eigentlich dürfte das Modul gar nicht versuchen, dieses hier auszuführen: DELE raubtier/., denn in Zeile 666 (!) steht:
    
    Code (perl): (dl )
    
    my @filelist = grep { !/^\.{1,2}$/ } $ftp->ls($dir);
    
    . Wobei ich mich schon wundere: in Zeile 675:
    
    Code (perl): (dl )
    
    foreach my $file (map { m,/, ? $_ : "$dir/$_" } @filelist) {
    
    wird getestet, ob der Dateiname a/b ist. Also müsstest du Zeile 666 in
    
    Code (perl): (dl )
    
    my @filelist = grep { !/(^|/)\.{1,2}$/ } $ftp->ls($dir);
    
    ändern. (ungetestet)
    - +2 replies
    - bianca
      
      2015-09-15 08:53
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Hast du das beim Modul Ersteller eingereicht als Bug?
      10 print "Hallo"
      20 goto 10
      - Raubtier
        
        2015-09-15 10:07
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Da ich das ganze nicht getestet habe: nein.
- +2 replies
- bianca
  
  2015-08-25 09:13
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Mit leeren Verzeichnissen geht rmdir(). Hab mir jetzt erstmal meine eigene Rekursion gebaut, damit ich weiter komme.
  10 print "Hallo"
  20 goto 10
  - bianca
    
    2015-09-16 09:17
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Für mich ist das gelöst durch meine eigene rekursive Schleife.
    10 print "Hallo"
    20 goto 10

View all threads created 2015-08-24 19:15.