Unzuverlässigkeit Net::FTP (solved) (Fragen zu Perl-Modulen)

[thread]19622[/thread]

Unzuverlässigkeit Net::FTP [solved]

Tags: perl5 Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+37 replies
bianca

2015-04-19 07:18
User since
2009-09-13
6922 articles
BenutzerIn
Seit ich bei FTP mit Net::FTP bei den Verbindungen mittels $ftp->starttls() SSL schalte habe ich ständig seltsame Verbindungsabbrüche. Kommentiere ich $ftp->starttls() aus ist alles in Ordnung wie früher.
- Strawberry perl 5, version 18, subversion 4 (v5.18.4) built for MSWin32-x64-multi-thread auf Win7
- Net::FTP 3.05
- IO::Socket::INET 1.36
- IO::Handle 1.34
- IO::Socket::SSL 2.012
Ich würde gern eine für andere nachvollziehbare Situation zeigen aber diese Verbindungen möchte ich nicht zeigen.
Gibt es sowas wie einen FTP Testserver bei dem man TLS verwenden und ein paar Dateien hoch und runter laden kann?
10 print "Hallo"
20 goto 10
- GwenDragon
  
  2015-04-19 11:37
  
  User since
  2005-01-17
  14422 articles
  Admin1
  
  PN ist unterwegs!
  
  Wenn nötig Kontakt mit Instantmessenger.
  Last edited: 2015-04-19 12:11:39 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +21 replies
- bianca
  
  2015-04-20 10:31
  User since
  2009-09-13
  6922 articles
  BenutzerIn
  Hab es Dank GwenDragon nachstellbar hinbekommen. Unterbricht bei mir jedesmal im 30. Durchgang.
  Gegenprobe ohne TLS läuft und läuft und läuft...
  Kann das jemand bei sich nachvollziehen? Arme GwenDragon springt hier immer ganz allein in die Bresche.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use v5.10; my $debug = defined; my $use_tls = defined; print "INC:\n".join("\n",@INC); print "\n\n"; print "Version Net::FTP::File: ".$Net::FTP::File::VERSION."\n"; print "Version Net::FTP: ".$Net::FTP::VERSION."\n"; print "Version IO::Socket::SSL: ".$IO::Socket::SSL::VERSION."\n"; print "Version IO::Socket::IP: ".$IO::Socket::IP::VERSION."\n"; print "Version IO::Handle: ".$IO::Handle::VERSION."\n"; print "Version Net::SSLeay: ".$Net::SSLeay::VERSION."\n"; use IO::Socket::SSL 2.012 qw(SSL_VERIFY_CLIENT_ONCE); if (defined $debug) {$IO::Socket::SSL::DEBUG = 3} use Net::FTP 3.05; use Net::FTP::File; my $ftp = Net::FTP->new( '*****', Debug => (defined $debug ? 1 : 0), Passive => 1, Timeout => 15, SSL_ca_file => 'test_ftp_zertifikat.pem', ) or die 'Fehler '.$@.' in '.__LINE__; if (defined $use_tls) { $ftp->starttls() or die "Fehler in ".__LINE__." wegen '$@'"; } $ftp->login('*****','*****') or die 'Fehler in '.__LINE__; if (!$ftp->isdir('/tmp')) { $ftp->mkdir('/tmp',1) or die 'Fehler in '.__LINE__; $ftp->site('CHMOD 0755 tmp') or die 'Fehler in '.__LINE__; } $ftp->cwd('/tmp') or die 'Fehler in '.__LINE__; my $hash_ref = $ftp->dir(); say "dir Ergebnis:\n".Dumper($hash_ref); $ftp->binary or die 'Fehler in '.__LINE__; for (my $z = 1; $z <= 40; $z ++) { say "\n\n\nDurchlauf $z:"; if ($ftp->isfile('testdatei.png')) { $ftp->delete('testdatei.png') or die 'Fehler in '.__LINE__; } if (!$ftp->isfile('testdatei.png')) { $ftp->put('test_ftp_datei.png','testdatei.png') or die 'Fehler in '.__LINE__; $ftp->site('CHMOD 0755 testdatei.png') or die 'Fehler in '.__LINE__; $hash_ref = $ftp->dir(); say "dir Ergebnis:\n".Dumper($hash_ref); $ftp->get('testdatei.png','test_ftp_datei.png') or die 'Fehler in '.__LINE__; say "dir Ergebnis:\n".Dumper($hash_ref); } else { say "Datei löschen fehlgeschlagen!"; } }
  
  Gekürzte Ausgabe:
  Quote
  #Durchlauf 30:
  #Net::FTP=GLOB(0x2b993a8)>>> SIZE testdatei.png
  #Net::FTP=GLOB(0x2b993a8)<<< 213 116770
  #Net::FTP=GLOB(0x2b993a8)>>> PWD
  #Net::FTP=GLOB(0x2b993a8)<<< 257 "/tmp" is the current directory
  #Net::FTP=GLOB(0x2b993a8)>>> CWD testdatei.png
  #Net::FTP=GLOB(0x2b993a8)<<< 550 testdatei.png: No such file or directory
  #Net::FTP=GLOB(0x2b993a8)>>> CWD /tmp
  #Net::FTP=GLOB(0x2b993a8)<<< 250 CWD command successful
  #Net::FTP=GLOB(0x2b993a8)>>> PWD
  #Net::FTP=GLOB(0x2b993a8)<<< 257 "/tmp" is the current directory
  #Net::FTP=GLOB(0x2b993a8)>>> DELE testdatei.png
  #Net::FTP=GLOB(0x2b993a8)<<< 250 DELE command successful
  #Net::FTP=GLOB(0x2b993a8)>>> SIZE testdatei.png
  #Net::FTP=GLOB(0x2b993a8)<<< 550 testdatei.png: No such file or directory
  #Net::FTP=GLOB(0x2b993a8)>>> PWD
  #Net::FTP=GLOB(0x2b993a8)<<< 257 "/tmp" is the current directory
  #Net::FTP=GLOB(0x2b993a8)>>> CWD testdatei.png
  #Net::FTP=GLOB(0x2b993a8)<<< 550 testdatei.png: No such file or directory
  #Net::FTP=GLOB(0x2b993a8)>>> CWD /tmp
  #Net::FTP=GLOB(0x2b993a8)<<< 250 CWD command successful
  #Net::FTP=GLOB(0x2b993a8)>>> PWD
  #Net::FTP=GLOB(0x2b993a8)<<< 257 "/tmp" is the current directory
  #Net::FTP=GLOB(0x2b993a8)>>> PASV
  #Net::FTP=GLOB(0x2b993a8)<<< 227 Entering Passive Mode (***,***,***,***,***,***).
  #Net::FTP=GLOB(0x2b993a8)>>> STOR testdatei.png
  #DEBUG: .../IO/Socket/SSL.pm:542: socket not yet connected
  #DEBUG: .../IO/Socket/SSL.pm:544: socket connected
  #DEBUG: .../IO/Socket/SSL.pm:566: ssl handshake not started
  #DEBUG: .../IO/Socket/SSL.pm:599: using SNI with hostname *****
  #DEBUG: .../IO/Socket/SSL.pm:634: request OCSP stapling
  #DEBUG: .../IO/Socket/SSL.pm:653: set socket to non-blocking to enforce timeout=15
  #DEBUG: .../IO/Socket/SSL.pm:667: Net::SSLeay::connect -> -1
  #DEBUG: .../IO/Socket/SSL.pm:677: ssl handshake in progress
  #DEBUG: .../IO/Socket/SSL.pm:687: waiting for fd to become ready: SSL wants a read first
  #DEBUG: .../IO/Socket/SSL.pm:707: socket ready, retrying connect
  #DEBUG: .../IO/Socket/SSL.pm:2505: did not get stapled OCSP response
  #DEBUG: .../IO/Socket/SSL.pm:667: Net::SSLeay::connect -> 1
  #DEBUG: .../IO/Socket/SSL.pm:722: ssl handshake done
  #Net::FTP=GLOB(0x2b993a8)<<< 150 Opening BINARY mode data connection for testdatei.png
  #DEBUG: .../IO/Socket/SSL.pm:1796: SSL read error
  #Net::FTP: Net::Cmd::getline(): unexpected EOF on command channel: Bad file descriptor at C:/strawberry/perl/lib/Net/FTP/dataconn.pm line 82.
  #Fehler in 52 at script.pl line 52.
  #DEBUG: .../IO/Socket/SSL.pm:2635: free ctx 38268448 open=38268448
  #DEBUG: .../IO/Socket/SSL.pm:2640: free ctx 38268448 callback
  #DEBUG: .../IO/Socket/SSL.pm:2647: OK free ctx 38268448
  
  Last edited: 2015-04-20 10:33:40 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - GwenDragon
    
    2015-04-20 12:35
    
    User since
    2005-01-17
    14422 articles
    Admin1
    
    Um wieviel Uhr war der Fehler? Ich schau mal in Log des FTP.
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +3 replies
    - bianca
      
      2015-04-20 12:58
      
      User since
      2009-09-13
      6922 articles
      BenutzerIn
      
      10:02 und 10:10 und 10:13 Uhr
      und relativ kurz danach nochmal mit Debug
      10 print "Hallo"
      20 goto 10
      - GwenDragon
        
        2015-04-20 14:22
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        ich kann heute nur sehen, dass die TLS-Verbindung neu gestartet wurde.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - GwenDragon
        
        2015-04-20 14:37
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        Wenn ich den Loglevel hoch gesetzt habe, kannst du nochmals den Lauf starten?
        Ich sage dir Bescheid, wenn so weit ist.
        
        //EDIT:
        Muss ich auf Morgen verschieben, weil ich weg muss bis später abends. Komme also noch nicht dazu.
        Ich werde morgen aber nochmals auch testen.
        Last edited: 2015-04-20 14:58:18 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +16 replies
  - GwenDragon
    
    2015-04-20 15:13
    
    User since
    2005-01-17
    14422 articles
    Admin1
    
    Ich habe jetzt 100 mal die Schleife laufen lassen und kein Problem mit Strawberry Perl x64 5.18.4.1 auf Win 7x64.
    
    Version Net::FTP::File: 0.06
    Version Net::FTP: 3.06
    Version IO::Socket::SSL: 2.012
    Version IO::Socket::IP: 0.37
    Version IO::Handle: 1.34
    Version Net::SSLeay: 1.68
    
    //EDIT:
    500 mal auch ohne Probleme.
    Last edited: 2015-04-20 15:43:28 +0200 (CEST)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +15 replies
    - bianca
      
      2015-04-20 16:10
      
      User since
      2009-09-13
      6922 articles
      BenutzerIn
      
      Du hast genau mein Script 100 bzw. 500 mal laufen lassen? Das muss ja eine halbe Ewigkeit gedauert haben. Bei mir läuft eine Schleife mit Debug ungefähr zwischen einer und zwei Sekunden. Ist das bei dir auch so?
      Läuft das bei dir intern im LAN oder über Internet?
      
      Module sind bei uns gleich, ich habe gerade noch ein Update für Net::SSLeay von 1.66 auf 1.68 gemacht, verhält sich aber gleich, immer beim 30. Durchlauf ist Ende.
      
      Du schreibst von Perl 5.18.4.1. Wo kann man die vierte Ziffer ablesen? Ich bekomme bei perl -v nur das angezeigt:
      
      Quote
      This is perl 5, version 18, subversion 4 (v5.18.4) built for MSWin32-x64-multi-thread
      
      Copyright 1987-2013, Larry Wall
      
      Perl may be copied only under the terms of either the Artistic License or the
      GNU General Public License, which may be found in the Perl 5 source kit.
      
      Complete documentation for Perl, including FAQ lists, should be found on
      this system using "man perl" or "perldoc perl". If you have access to the
      Internet, point your browser at http://www.perl.org/, the Perl Home Page.
      
      10 print "Hallo"
      20 goto 10
      - +14 replies
      - GwenDragon
        
        2015-04-20 18:13
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        Ja, übers Web. Dauert eben auch bei 2MBit/s.
        Ich teste es jetzt mal mit meinem lokalen Server übers LAN.
        
        Perl -V ist der Aufruf.
        
        //EDIT: mehrmals 20.000 Abläufe getätigt übers LAN.
        Kein Problem bei mir.
        
        Ist das ein interner FTP-Server bei dir im LAN?
        Last edited: 2015-04-20 19:06:25 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +10 replies
        
        bianca
        
        2015-04-20 19:21
        
        User since
        2009-09-13
        6922 articles
        BenutzerIn
        
        2015-04-20T16:13:32 GwenDragon
        Ist das ein interner FTP-Server bei dir im LAN?
        
        Deiner war das womit ich getestet habe.
        10 print "Hallo"
        20 goto 10
        
        +9 replies
        
        GwenDragon
        
        2015-04-20 19:40
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        Ich habe mit verschiedensten Dateigrößen getestet, mal 15 kB, mal 2 MByte.
        Auf LAN und WAN hatte ich keine Abbrüche.
        
        Sicher, dass nicht die Firewall des PC/Routers oder der Router da ab und an streikt?
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +8 replies
        
        bianca
        
        2015-04-21 06:31
        
        User since
        2009-09-13
        6922 articles
        BenutzerIn
        
        Es ist nicht zu glauben. Nachdem die Firewall aus war lief es durch bis 40. Jetzt schalte ich sie wieder an....und zack. Schluss bei 30.
        Das hätte ich im Leben nicht vermutet. Wie kommt eine Firewall darauf, Zugriffe auf das selbe Ziel nach 30 Stück zu sperren? Ich muss mal googeln, was da los ist.
        
        Vielen Dank nochmal an GwenDragon und alle anderen!
        
        Wenn ich schlauer bin melde ich mich wieder hier, setze den Haken dann erst, damit ich dran denke.
        10 print "Hallo"
        20 goto 10
        
        +7 replies
        
        GwenDragon
        
        2015-04-21 09:33
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        Meine Windows-Firewall sperrt da nix, da gehen auch schon mal 5000 Anfragen raus mit deinem Programm an meine lokalen und entfernten Server ohne Block.
        
        Was für eine benutzt du denn? Hast du da besondere Einstellungen?
        Vielleicht solltes du die Firewall mal zurücksetzen.
        WIndows-Menü -> Systemsteuerung -> System und Sicherheit -> Windows-Firewall -> Standard widerherstellen
        Last edited: 2015-04-21 09:35:51 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +6 replies
        
        bianca
        
        2015-04-21 10:21
        
        User since
        2009-09-13
        6922 articles
        BenutzerIn
        
        2015-04-21T07:33:56 GwenDragon
        Meine Windows-Firewall sperrt da nix, da gehen auch schon mal 5000 Anfragen raus mit deinem Programm an meine lokalen und entfernten Server ohne Block.
        
        Traumhaft
        
        2015-04-21T07:33:56 GwenDragon
        Was für eine benutzt du denn?
        
        Die von Windows 7. Hab da nichts dazu gekauft.
        
        2015-04-21T07:33:56 GwenDragon
        Hast du da besondere Einstellungen?
        
        Nö.
        
        2015-04-21T07:33:56 GwenDragon
        Vielleicht solltes du die Firewall mal zurücksetzen.
        
        Hab ich, jetzt läuft das Script zwar wesentlich schneller aber bei 30 ist trotzdem Schluss.
        
        Gerade fiel mir was ein: kann das mit dem installieren OpenSSL zu tun haben? Bei irgendeinem Perl Modul war mir das nämlich begegnet, dass man das Modul und OpenSSL mir einer gleichen Version von irgendwas kompilieren soll. Ich weiss jetzt nur nicht, wo ich das finden könnte. Ich werde das Script mal an einem anderen PC probieren und mich wieder melden.
        10 print "Hallo"
        20 goto 10
        
        +5 replies
        
        GwenDragon
        
        2015-04-21 10:35
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        Du solltest keine OpenSSL-Einträge in den Umgebungsvariablen haben!
        Wenn du ein eigenes OpenSSL installiert hast, ist es nicht sinnvoll, die OpenSSL-Bibliotheken unter Windows-Verzeichnis zu installieren sondern ins Openssl-bin, der Installer lässt das ja zu.
        Sonst bekommst du echt Probleme.
        
        Wenn es keine OpenSSL-Einträge unter Windows-Umgebungsvariablen gibt, nimmt Perl das eigene installierte.
        
        Um verschieden Perl-versionen mit diversen anderen externen programmen zu verwenden, benutze doch mein Batch aus AllgemeinesMultiPerlStrawberry
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +4 replies
        
        bianca
        
        2015-04-21 10:40
        
        User since
        2009-09-13
        6922 articles
        BenutzerIn
        
        Anderer Rechner, selbes Windows, gleiches Spiel. FW an: Stop bei 30, aus: läuft durch bis 40.
        OpenSSL hab ich selbst auf keinem der beiden installiert. Umgebungsvariablen sind sauber. Was könnte unsere Rechner noch unterscheiden, was ich checken kann?
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        GwenDragon
        
        2015-04-21 11:36
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        Netzwerkkarte?
        Netzwerktreiber?
        Router?
        Internetanbindung?
        
        Wie ist das bei dir genau?
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +2 replies
        
        bianca
        
        2015-04-21 11:47
        
        User since
        2009-09-13
        6922 articles
        BenutzerIn
        
        Netzwerkkarten sind an beiden Rechner vollkommen verschieden. Netzwerktreiber demnach auch. Router ist eine Fritzbox und Internet ist Telekom VDSL. Router und Anbindung sind auf beiden Rechnern gleich.
        
        Denkst du, das kann damit zu tun haben, obwohl wir als Schuldige ziemlich deutlich die FW nachgewiesen haben?
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2015-04-21 12:14
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        Kannst du denn die Fritzbox ausschließen?
        Steht da irgendwas in den Logs? Oder dass des Fritzchens Software nicht aktuell ist?
        
        Welches Windows 7 ist das genau? Version und SP?
        
        Kannst du nicht mal mittels VirtualBox dir ein sauberes, aktualisertes Windows 7 installieren. Dann kannst du sicher an dem virtuellen Windwos rumwurschteln!
        Und dort nur StrawberryPerl 5.18 installieren und nachsehen wo es hakt?
        Zudem ließe sich in VirtualBox in der DOS-Box mit
        netsh advfirewall set AllProfiles state off
        die Firewall komplett deaktivieren.
        Last edited: 2015-04-21 12:15:02 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +3 replies
        
        bianca
        
        2015-04-20 19:25
        
        User since
        2009-09-13
        6922 articles
        BenutzerIn
        
        2015-04-20T16:13:32 GwenDragon
        Perl -V ist der Aufruf.
        
        OK, dann hab ich die auch. Auf http://strawberryperl.com/releases.html gibt es ja bei 5.18 nur die 4.1
        Kannst du bitte mal ein Screenshot von perl -v zeigen von dir. Ich verstehe nicht, warum ich die 1 hinten nicht sehe.
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2015-04-20 19:38
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        perl -v zeigt nicht die ganze Versionsnummer.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
        
        U:\>perl -V Summary of my perl5 (revision 5 version 18 subversion 4) configuration: Platform: osname=MSWin32, osvers=6.3, archname=MSWin32-x64-multi-thread uname='Win32 strawberry-perl 5.18.4.1 #1 Thu Oct 2 07:49:26 2014 x64' config_args='undef' hint=recommended, useposix=true, d_sigaction=undef useithreads=define, usemultiplicity=define useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef use64bitint=define, use64bitall=undef, uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='gcc', ccflags =' -s -O2 -DWIN32 -DWIN64 -DCONSERVATIVE -DPERL_TEXTMODE_SCRIPTS -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PE RLIO -fno-strict-aliasing -mms-bitfields', optimize='-s -O2', cppflags='-DWIN32' ccversion='', gccversion='4.7.3', gccosandvers='' intsize=4, longsize=4, ptrsize=8, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='long long', lseeksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='g++', ldflags ='-s -L"C:\strawberry\perl\lib\CORE" -L"C:\strawberry\c\lib"' libpth=C:\strawberry\c\lib C:\strawberry\c\x86_64-w64-mingw32\lib C:\strawberry\c\lib\gcc\x86_64-w64-mingw32\4.7.3 libs=-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lm pr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32 perllibs=-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32 libc=, so=dll, useshrplib=true, libperl=libperl518.a gnulibc_version='' Dynamic Linking: dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' ' cccdlflags=' ', lddlflags='-mdll -s -L"C:\strawberry\perl\lib\CORE" -L"C:\strawberry\c\lib"' Characteristics of this binary (from libperl): Compile-time options: HAS_TIMES HAVE_INTERP_INTERN MULTIPLICITY PERLIO_LAYERS PERL_DONT_CREATE_GVSV PERL_HASH_FUNC_ONE_AT_A_TIME_HARD PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS PERL_MALLOC_WRAP PERL_PRESERVE_IVUV PERL_SAWAMPERSAND USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_LOCALE USE_LOCALE_COLLATE USE_LOCALE_CTYPE USE_LOCALE_NUMERIC USE_PERLIO USE_PERL_ATOF Built under MSWin32 Compiled at Oct 2 2014 07:58:36 %ENV: PERL_LWP_SSL_VERIFY_HOSTNAME="1" @INC: C:/strawberry/perl/site/lib C:/strawberry/perl/vendor/lib C:/strawberry/perl/lib .
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        U:\> perl -v This is perl 5, version 18, subversion 4 (v5.18.4) built for MSWin32-x64-multi-thread Copyright 1987-2013, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page.
        
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        bianca
        
        2015-04-21 05:49
        
        User since
        2009-09-13
        6922 articles
        BenutzerIn
        
        großes V. OK, danke, Versionen sind gleich bei uns.
        10 print "Hallo"
        20 goto 10
- +5 replies
- GwenDragon
  
  2015-04-22 16:29
  
  User since
  2005-01-17
  14422 articles
  Admin1
  
  Und wie gehts weiter?
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +4 replies
  - bianca
    
    2015-04-23 08:16
    
    User since
    2009-09-13
    6922 articles
    BenutzerIn
    
    Bin im Moment etwas im Druck. Möchte nachher schauen, ob ich das Problem bei mir auch nachvollziehen kann, dann kannst du deinen FTP Zugang wieder löschen.
    Bitte warte noch bis heute Mittag.
    Vielen Dank!
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - GwenDragon
      
      2015-04-23 08:55
      
      User since
      2005-01-17
      14422 articles
      Admin1
      
      Ja, ich mache den FTP noch nicht zu, wenn du noch testen willst.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +2 replies
      - bianca
        
        2015-04-23 12:08
        
        User since
        2009-09-13
        6922 articles
        BenutzerIn
        
        Kannst zu machen. Fehler kommt auf anderen Systemen auch. Ist ja auch logisch, weil es an meiner FW liegt. Aber wie ich weiter mache weiß ich noch nicht. Kostet schon wieder alles viel zu viel Zeit dieser Mist.
        
        Danke für die Hilfe, GwenDragon!
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2015-04-23 19:53
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        OK, FTP ist wieder zu.
        
        Aber warum deine Windows-Firewall so stört, kapier ich nicht.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +7 replies
- bianca
  
  2015-04-25 16:38
  
  User since
  2009-09-13
  6922 articles
  BenutzerIn
  
  Neuigkeit: Nachdem ich den Virenscanner MS Essentials enternt hatte lief es auch bis 40 durch. Das war auch eine Gemeinsamkeit mit dem anderen Rechner. Jetzt installiere ich mal Kaspersky und schaue mal.
  10 print "Hallo"
  20 goto 10
  - +6 replies
  - GwenDragon
    
    2015-04-25 18:03
    
    User since
    2005-01-17
    14422 articles
    Admin1
    
    Es ist zu oft die "Sicherheitssoftware" (Desktop-Firewall, Virenscan bei Netzwerken und lokalen Dateien) die dazwischen murkst.
    Hatte ich ja bei deinen früheren Fragen zu den Modulen LWP::* und **::FTPSSL erwähnt, dass sowas in Frage käme.
    Last edited: 2015-04-25 18:15:28 +0200 (CEST)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +5 replies
    - bianca
      
      2015-04-26 09:27
      
      User since
      2009-09-13
      6922 articles
      BenutzerIn
      
      Ja, ich weiß. Durch den Test mit der FW war ich so darauf konzentriert, dass ich den Virenscanner vergessen habe. War keine Absicht.
      Ich verstehe auch nach wie vor nicht, warum es klappt, wenn entweder der Virenscanner deinstalliert ODER die FW ausgeschaltet wird.
      Heißt das, beide funken da ein bisschen rein? Sonst würde ich erwarten, dass es nur klappt, wenn BEIDE aus dem Rennen sind aber nicht entweder oder.
      10 print "Hallo"
      20 goto 10
      - +4 replies
      - GwenDragon
        
        2015-04-26 09:49
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        Die Firewall kann es ja nicht sein, sonst würde die auch bei mir reinstören.
        Was MS Essentials da macht weiß ich nicht, da ich Kaspersky Antivirus verwende.
        Kann aber sein, dass der Virenscanner eben die FTP-Verbindung auch scannt und dann irgendwelche Probleme macht bei SSL über FTP-Ports oder er blockiert im falschen Moment bestimmte Dateien.
        Über MS Essentials finde ich auch nix bei MS, was Features angelangt.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +3 replies
        
        bianca
        
        2015-04-26 11:04
        
        User since
        2009-09-13
        6922 articles
        BenutzerIn
        
        2015-04-26T07:49:20 GwenDragon
        da ich Kaspersky Antivirus verwende
        
        Vertraust du den Russen so sehr oder arbeitest du auf den Kaspersky-Rechner mit nichts Sensitivem?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2015-04-26 11:09
        
        User since
        2005-01-17
        14422 articles
        Admin1
        
        Was wichtig ist, ist mit GPG verschlüsselt.
        
        Da habe ich vor den Einbruchslücken bei Windows eher Angst.
        Warum sollte Essentials sicherer/vertrauensvoller sein?
        
        Wer mir was klauen will, schiebt mir einen Keylogger unter. Entweder mein AV sperrt solche Bösewichte oder es ist eh sinnlos.
        
        Welche AV-Herstellern vertraust du?
        Last edited: 2015-04-26 11:11:18 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        bianca
        
        2015-04-26 11:27
        
        User since
        2009-09-13
        6922 articles
        BenutzerIn
        
        2015-04-26T09:09:34 GwenDragon
        Warum sollte Essentials sicherer/vertrauensvoller sein?
        
        Das will ich garnicht sagen, deshalb und vor allem wegen des sFTP Fehlers hab ich es runter geschmissen.
        
        2015-04-26T09:09:34 GwenDragon
        Welche AV-Herstellern vertraust du?
        
        Bin gerade auf der Suche.
        Weiß man was über F-Secure? Ist das nach dt. Recht programmiert?
        10 print "Hallo"
        20 goto 10
- +2 replies
- bianca
  
  2015-04-26 21:13
  
  User since
  2009-09-13
  6922 articles
  BenutzerIn
  
  Also, wie gesagt: Windows Security Essentials war hier störend. Damit vollkommen außerhalb von Perl gelöst.
  
  Nochmal Danke!
  10 print "Hallo"
  20 goto 10
  - deleted 2017-04-08 07:25

View all threads created 2015-04-19 07:18.