Bad file descriptor (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-30 23:02:28
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
3 Gäste

[thread]16389[/thread]

submit to reddit

Bad file descriptor [gelöst]

[gelöst]

Tags: perl5 $! Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+23 replies
rosti

2011-06-04 18:42
User since
2011-03-19
3476 Artikel
BenutzerIn
hi,

s. Thema, tritt auf in
Code (perl): (dl )

1 2 3

my $fh = undef; open $fh, "|/usr/sbin/sendmail.bat -t" or die "Fehler: $!"; print $!;
d.h., ein die() ist nicht, aber das print $! gibt den Fehler aus. Das verstehe ich nicht so ganz, was geht hier!?

Weitere Angaben: OS is WinXP, 'sendmail.bat' ist eine ganz normale Batch-Datei, dient bei mir als Fledermaus-Emulation und ruft 'sendmail.pl' auf, was die Mail sendet. Das Senden funktioniert auch mit o.g. Fehlermaldung.

modedit Editiert von pq: tag hinzugefuegt und thread auf geloest gesetzt
Last edited: 2011-06-04 19:03:24 +0200 (CEST)
- +2 replies
- renee
  
  2011-06-04 18:50
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Wenn kein Fehler aufgetreten ist, ist der Inhalt von $! nichtssagend... Schau Dir perldoc perlvar diesbezüglich an:
  
  Quote
  This means that the value of $! is meaningful only immediately after a failure
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - rosti
    
    2011-06-04 18:56
    
    User since
    2011-03-19
    3476 Artikel
    BenutzerIn
    
    Na, das ist ja lustig ;)
    
    Vielen Dank Reneé!!!
    
    (das Mail-Dingens ist mittlerweile online und tut einwandfrei)
    
    Grüße an Alle,
    Schönes Wochenende,
    Rosti
- +16 replies
- pq
  
  2011-06-04 18:53
  User since
  2003-08-04
  12208 Artikel
  Admin1
  $! ist nur zu benutzen nach einem fehlgeschlagenen aufruf von open (z.b.).
  andernfalls enthaelt es den vorherigen fehler. perldoc perlvar:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  $! If used numerically, yields the current value of the C "errno" variable, or in other words, if a system or library call fails, it sets this variable. This means that the value of $! is meaningful only immediately after a failure: if (open my $fh, "<", $filename) { # Here $! is meaningless. ... } else { # ONLY here is $! meaningful. ... # Already here $! might be meaningless. }
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +15 replies
  - rosti
    
    2011-06-04 19:08
    User since
    2011-03-19
    3476 Artikel
    BenutzerIn
    
    Danke auch Dir!
    
    Das hats aber in sich, guck mal:
    
    Code (perl): (dl )
    
    1 2 3
    
    my $fh = undef; open $fh, "|/usr/sbin/sendmehl -t" or die "Fehler: $!"; print "Weiter gehts..."; # komischerweise gehts auch weiter!
    
    Kein die()!!! Statdessen funkt mir das OS in mein Script auf deutsch:
    
    Quote
    Der Befehl "/usr/sbin/sendmehl" ist entweder falsch geschrieben oder
    konnte nicht gefunden werden.
    
    Aber das Script läuft weiter. Jetzt bin ich verunsichert, das darf gar nicht sein. Ne Idee, das sicherer zu machen???
    - +7 replies
    - pq
      
      2011-06-04 19:23
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      das ist dann ein bug in perl. bei mir
      
      This is perl, v5.10.1 (*) built for i486-linux-gnu-thread-multi
      This is perl 5, version 12, subversion 1 (v5.12.1) built for i686-linux
      
      wird das die() ausgefuehrt.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +2 replies
      - rosti
        
        2011-06-04 19:38
        
        User since
        2011-03-19
        3476 Artikel
        BenutzerIn
        
        Ok, alles klar, Thread kann zu ;)
        
        Hintergrund: hab schon lange keine Pipe mehr aufgemacht mit Perl. Normalerweise nehme ich Net::SMTP zum Senden von Mails, aber die FW-Infrastruktur (Secure Policy) bei meinem Provider lässt das nicht zu.
        
        Viele Grüße,
        Rosti
        
        pq
        
        2011-06-04 19:40
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        bitte melde den bug mittels `perlbug` (bzw. teste ggfs. noch vorher, ob er bei dir in einer neueren version auftritt).
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - GwenDragon
        
        2011-06-04 20:47
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Wie testest du da eine Windows-Umgebung? In einem Emulator?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        pq
        
        2011-06-04 20:56
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2011-06-04T18:47:55 GwenDragon
        Wie testest du da eine Windows-Umgebung? In einem Emulator?
        
        wer hat gesagt, dass ich unter windows teste?
        ich sagte nur, dass das die() bei meinen perl-versionen unter linux ausgefuehrt wird.
        wenn das unter windows nicht der fall ist, muesste das ein bug sein. es sei denn, es ist dokumentiert, dass sowas in windows anders laeuft. da habe ich jetzt nicht nachgeschaut.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        GwenDragon
        
        2011-06-04 20:58
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ach so.
        Ich hatte angenommen, dass du das unter Wine prüfst, da rosti ja unter Windows eine Pipe Batchdatei verwendet.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - pq
        
        2011-06-05 19:34
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wie sich im bugreport gezeigt hat, ist das tatsächlich nicht immer der fall:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        $ perl -wE' open my $fh, q{|/usr/bin/foobar "test"} or die "Could not open"; say "opened"; close $fh or die "Could not close: $?" ' opened sh: /usr/bin/foobar: not found Could not close: 32512 at -e line 4.
        
        also auch immer close() abfragen, wie ich weiter unten schrieb.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +7 replies
    - GwenDragon
      
      2011-06-04 21:03
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Bei mir unter Windows 7 mit Perl 5.8.9 hängt Perl und stirbt auch nicht.
      Schau:
      X:\>perl -e"open $fh,qq(|blah) or die qq(OHA)" X:\>Der Befehl "blah" ist entweder falsch geschrieben oder konnte nicht gefunden werden. _
      
      Seltsamer Effekt.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +6 replies
      - pq
        
        2011-06-05 00:27
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        in perldoc perlport finde ich nichts spezifisches, jedoch wird erwaehnt, dass IPC (und genannt wird '"open" with a "|"') generell nicht unbedingt portabel ist. ich haette jedoch erwartet, dass ein open zumindest fehlschlaegt bei einem nicht gefundenen kommando.
        evtl. liefert ja dann das close den fehler. wuerde ich auf jeden fall mal ausprobieren. bei close kann zusaetzlich zu $? auch $! abgefragt werden.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +5 replies
        
        GwenDragon
        
        2011-06-06 11:00
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ja, das close schlägt fehl.
        
        C:\>perl -e"open $fh,qq(|notepd) or die qq(OHA);close($fh) or die $!" Der Befehl "notepd" ist entweder falsch geschrieben oder konnte nicht gefunden werden. No such file or directory at -e line 1.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        rosti
        
        2011-06-06 11:11
        
        User since
        2011-03-19
        3476 Artikel
        BenutzerIn
        
        Ja, das wird komisch ;)
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        if(defined $fh){ # gehe davon aus, dass $fh definiert ist # schreibe Text in das Handle close $fh; # und hier schlägt's dreizehn ;) }
        
        Viele Grüße!
        
        +3 replies
        
        topeg
        
        2011-06-06 11:30
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das ganze hängt damit zusammen das viele Betriebssysteme bei einer Pipe die Daten, die übertragen werden sollen puffert. Das bedeutet, dass das Programm hinter der Pipe erste gestartet wird, wenn schon Daten übertragen wurden, oder die Pipe geschlossen wird.
        Das bedeutet open funktioniert meistens. Es kann weiterhin sein, dass die ersten prints keinen Fehler zurückgeben, erst wenn eine gewisse Datenmenge übertragen wurde, würden weitere prints einen Fehler melden. Endgültig schlägt dann close fehl.
        
        rosti
        
        2011-06-06 15:20
        
        User since
        2011-03-19
        3476 Artikel
        BenutzerIn
        
        Hallo,
        
        Quote
        Das ganze hängt damit zusammen das viele Betriebssysteme bei einer Pipe die Daten, die übertragen werden sollen puffert. Das bedeutet, dass das Programm hinter der Pipe erste gestartet wird, wenn schon Daten übertragen wurden, oder die Pipe geschlossen wird.
        
        Nein, das ist in meinem Fall nicht der Fall; das Programm wird sofort gestartet, in meinem Fall sind das sendmail.bat und sendmail.pl. In sendmail.pl habe ich daher eine Kontrollstruktur, die prüft, ob STDIN Daten enthält.
        
        --Rosti
        
        bianca
        
        2011-06-06 17:43
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-06-06T09:30:18 topeg
        Das ganze hängt damit zusammen das viele Betriebssysteme bei einer Pipe die Daten, die übertragen werden sollen puffert.
        
        Könnte man denn darauf keinen Einfluss mit autoflush nehmen?
        10 print "Hallo"
        20 goto 10
- +4 replies
- GwenDragon
  
  2011-06-04 20:47
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Welchen Grund hat es, dass du unter Windows kein Laufwerk für den Pfad auf die Batchdatei verwendest?
  Last edited: 2011-06-04 20:50:56 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - rosti
    
    2011-06-04 21:06
    
    User since
    2011-03-19
    3476 Artikel
    BenutzerIn
    
    2011-06-04T18:47:04 GwenDragon
    Welchen Grund hat es, dass du unter Windows kein Laufwerk für den Pfad auf die Batchdatei verwendest?
    
    Die Frage geht wohl an mich ;)
    
    A: Ich habe eine Umgebung auf XP, die mit meinen Scripts, die zum Provider sollen, dasselbe Ergebnis liefert, ohne dass ich den Code umschreiben muss.
    
    Statt einem normalen "/usr/sbin/sendmail" habe ich auf dem gleichen LW, auf dem das Script ist, eine "/usr/sbin/sendmail"-Batch-Datei.
    
    In der Batch-Datei wird dann ein Perl-Script aufgerufen, was die Maildatei aus STDIN bekommt und entweder nur speichert zur Kontrolle oder auch mit Net::SMTP sendet; das ist alles.
    
    LW-Buchstaben können also immer dann entfallen, wenn sich alles auf dem gleichen LW abspielt, das habe ich schon immer so gehandhabt und das funktioniert einwandfrei.
    
    @PQ: perlbug ist raus, mal sehen, was draus wird ;)
    - +2 replies
    - GwenDragon
      
      2011-06-04 21:10
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Ah so.
      Auch wenn Windows und Linux an manchen Stellen inkompatibel sind wie bei sleep, Named Pipes, Unfähigkeiten bei fork etc.
      
      Mutig, aber wenn so läuft.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - rosti
        
        2011-06-04 21:25
        
        User since
        2011-03-19
        3476 Artikel
        BenutzerIn
        
        Ach was, das hat nichts mit Mut zu tun, es geht nur um eine Emulation von sendmail. Die Idee, das so zu machen, ist übrigens fast 10 Jahre alt, da lief das auch unter Win95, nur damals habe ich vieleicht nicht ganz so genau hingeschaut ;)

View all threads created 2011-06-04 18:42.