Rückgabewert von select() (gelöst) (Allgemeines zu Perl)

[thread]21393[/thread]

Rückgabewert von select() [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

+9 replies
bianca

2022-02-08 10:26
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!

Gibt es eine Möglichkeit abzufragen, ob ein select() funktioniert hat?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl use strict; use warnings; open my $fh,'>',"test.txt"; close $fh; my $ret = select $fh; select STDOUT; say "'$ret'";
Dieser Code wirft mit Strawberry 5.30.2 auf Win 10:
Quote
'main::STDOUT'

Und zwar egal ob ich das Filehandle vorher schließe oder nicht. Ist das erwartbares Verhalten oder ein "Bug"?
10 print "Hallo"
20 goto 10
- +7 replies
- GwenDragon
  
  2022-02-08 12:17
  
  User since
  2005-01-17
  14758 Artikel
  Admin1
  
  Quote
  On error, select behaves just like select(2): it returns -1 and sets $!.
  
  https://perldoc.perl.org/functions/select
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - bianca
    
    2022-02-08 12:59
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Ja das kenne ich. Beantwortet die Frage aber nicht. Warum liefert das Beispiel nicht -1?
    10 print "Hallo"
    20 goto 10
    - Linuxer
      
      2022-02-08 13:34
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Kann hier auch nur vermuten:
      
      Weil $fh wohl immer noch einen gültigen Handle enthält; auch wenn es dieser bereits geschlossen ist:
      
      Testcase überarbeitet:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
      
      #! /usr/bin/env perl use strict; use warnings; use 5.010; open my $fh,'>',"test.txt"; warn "FH: $fh"; close $fh; warn "FH: $fh"; my $ret = select $fh; say "Test to \$fh"; select STDOUT; warn "'$ret'";
      
      Resultat:
      
      Code: (dl )
      
      1 2 3 4 5
      
      FH: GLOB(0x93d5818) at t.pl line 7. FH: GLOB(0x93d5818) at t.pl line 10. say() on closed filehandle $fh at t.pl line 14. 'main::STDOUT' at t.pl line 18. /code]
      
      Last edited: 2022-02-08 14:06:07 +0100 (CET)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - +2 replies
    - GwenDragon
      
      2022-02-08 14:00
      
      User since
      2005-01-17
      14758 Artikel
      Admin1
      
      Weil $fh noch einen güligen Wert für ein Dateihandle hat.
      Ob/wann die Garbage Collection von Perl sowas später aufräumt, weiß ich nicht.
      
      Im Grunde genommen sollte man sich nicht drauf verlassen, dass ein Dateihandle, welches von einer geschlossen Datei her rührt, noch gültig ist.
      Last edited: 2022-02-08 16:02:09 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - haj
        
        2022-02-08 16:32
        
        User since
        2015-01-07
        557 Artikel
        BenutzerIn
        
        2022-02-08T13:00:54 GwenDragon
        Ob/wann die Garbage Collection von Perl sowas später aufräumt, weiß ich nicht.
        
        Die Garbage Collection ist ganz normal: Sie schlägt zu, wenn die Variable $fh ungültig wird. Bis dahin merkt sich Perl den Zustand des Handle, um bei Warnungen zwischen einem "unopened" und einem "closed" Handle zu unterscheiden.
    - +2 replies
    - haj
      
      2022-02-08 16:26
      
      User since
      2015-01-07
      557 Artikel
      BenutzerIn
      
      Das ganze ist ein bisschen schräg wegen der Doppelfunktion von select. Die -1 als Rückgabewert (und einen Wert in $!) bekommst Du nur von der Aufrufvariante select RBITS,WBITS,EBITS,TIMEOUT. Nur in dieser Variante wird nämlich die C-Funktion select verwendet (und in dem Abschnitt taucht es auch in der Dokumentation auf).
      
      Verblüffenderweise kannst Du in Perl mit select FILEHANDLE ein Handle auch zuerst selektieren und danach aufmachen.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      #! /usr/bin/env perl use 5.010; use strict; use warnings; use autodie; my $fh; my $old = select($fh); say 'Ist noch gar nicht offen!'; # say on unopened filehandle $fh open ($fh,'>','test.txt'); say 'Aber jetzt!'; close $fh; say 'Und schon wieder zu.'; # say() on closed filehandle $fh
      
      Um herauszufinden, ob ein Filehandle gerade offen ist, nimmst Du perlfunc fileno.
      - GwenDragon
        
        2022-02-08 16:55
        
        User since
        2005-01-17
        14758 Artikel
        Admin1
        
        @haj Oh, dann ist die Doku mir nicht eindeutig unterscheidbar gewesen.
        Manchmal ist die perldoc nicht gut gemacht.
        Und wenn eine Interna nicht kennt, stolpert eine drüber.
        
        @bianca Tut mir leid, dich in die falsche Richtung gelotst zu haben.
        Last edited: 2022-02-08 17:18:59 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- bianca
  
  2022-02-09 00:13
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Danke euch allen!
  Ich gehe jetzt erst mal davon aus, dass select klappt, wenn das open fehlerfrei war.
  Erst mal.
  10 print "Hallo"
  20 goto 10

View all threads created 2022-02-08 10:26.