open() liefert "Inappropriate ioctl for device" (gelöst) (Allgemeines zu Perl)

[thread]15572[/thread]

open() liefert "Inappropriate ioctl for device" [gelöst]

Leser: 22

Articles: hide open all | hide show old branches

+9 replies
toby

2010-10-26 17:37
User since
2006-04-14
66 Artikel
BenutzerIn
Hi Leute,

ich portiere gerade vom Ex-Kollegen ein paar seiner Perlscripte vom HP-UX auf Itanium zu Linux und wundere mich gerade. Folgendes Code:
Code: (dl )

1 2 3 4 5 6 7 8

open(IN,"/tmp/file.txt"); my $ret=$!; print "$ret\n"; if($ret){ print "NOK\n"; } else { print "OK\n"; }
Läuft auf der HP-UX-Büchse einwandfrei ($! ist leer). Auf einer Linux-Box bekomme ich folgendes:

Quote
$ perl open.pl
Inappropriate ioctl for device
NOK

Die perl-Versionen sind die gleichen (5.8.8). Kann das jemand erklären?

Wie sollte denn eine Platformunabhängige Returnwertabfrage mit Verzweigung für open() aussehen? Sowas wie 'open() ? yes() : no() '?

Danke!
Toby
Last edited: 2010-10-27 10:13:01 +0200 (CEST)
- pq
  
  2010-10-26 17:40
  User since
  2003-08-04
  12208 Artikel
  Admin1
  perldoc perlvar:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  $OS_ERROR $ERRNO $! 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(FH, $filename)) { # Here $! is meaningless. ... } else { # ONLY here is $! meaningful. ... # Already here $! might be meaningless. } # Since here we might have either success or failure, # here $! is meaningless.
  
  du musst den erfolg des open prüfen, nicht ob in $! was drinsteht. das geht klassischerweise mit
  open my $fh, "<", "file" or die $!;
  
  wenn das open glückt, dann kann im prinzip alles in $! stehen, aber dann sollte man es auch nicht abfragen.
  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
- bloonix
  
  2010-10-27 09:21
  
  User since
  2005-12-17
  1615 Artikel
  HausmeisterIn
  
  In Bezug auf das Bareword IN wäre folgender Link auch noch interessant für dich: Was ist ein lexikalischer Filehandle
  Last edited: 2010-10-27 09:34:50 +0200 (CEST)
  What is a good module? That's hard to say.
  What is good code? That's also hard to say.
  One man's Thing of Beauty is another's man's Evil Hack.
- +6 replies
- GwenDragon
  
  2010-10-27 09:58
  User since
  2005-01-17
  14603 Artikel
  Admin1
  In Perl liefern bei Fehler die meisten Funktionen/Methoden false und nur dann ist in den $...-Fehlervariablen ein korrekter Wert drin.
  Es ist unüblich (und manchmal auch fahrlässig), nicht zu überprüfen, ob der Aufruf einer Funktion/Methode misslang.
  
  Sollte dein Kollege das wirklich so programmiert haben wie du in deinem Startpost zeigst, hat er das Konzept von Funktionen (bei Perl und C), der Systemlibraries von Unix und der Unix-Systemvariablen nicht verstanden.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $ret = open(IN,"/tmp/file.txt"); if($ret){ print "OK\n"; } else { print "NOK [$!]\n"; }
  
  Last edited: 2010-10-27 10:02:54 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - toby
    
    2010-10-27 10:31
    User since
    2006-04-14
    66 Artikel
    BenutzerIn
    
    Hi Leute,
    
    Code: (dl )
    
    my $ret = open(IN,"/tmp/file.txt");
    
    Genau. Das Abfangen des Rückgabewertes der Funktion wäre die richtige Vorgehensweise, um die gewünschte Fallunterscheidung hinzubekommen. Danke!
    
    Hat noch jemand eine Idee, warum das "$!" bei open() unter Linux mit "Inappropriate ioctl for device" gefüllt wird? Die Datei kann doch ohne Probleme geöffnet werden...
    
    Gruß!
    Toby
    - +2 replies
    - Linuxer
      
      2010-10-27 10:33
      
      User since
      2006-01-27
      3878 Artikel
      HausmeisterIn
      
      Schau doch mal in die erste Antwort von pq... msg #142195
      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!
      - toby
        
        2010-10-27 11:29
        
        User since
        2006-04-14
        66 Artikel
        BenutzerIn
        
        2010-10-27T08:33:34 Linuxer
        Schau doch mal in die erste Antwort von pq... msg #142195
        
        Aaaaaa... beim ersten Durchlesen kam es bei mir nicht richtig an:
        
        Quote
        the value of $! is meaningful only immediately after a failure
        
        Das erklärt jetzt alles! Beim success ist die Belegung von "$!" zufällig vom vorigen failure und darf somit nicht für Fallunterscheidung benutzt werden.
        
        Danke Euch!
        Toby
        Last edited: 2010-10-27 11:34:10 +0200 (CEST)
    - +2 replies
    - GwenDragon
      
      2010-10-27 11:05
      
      User since
      2005-01-17
      14603 Artikel
      Admin1
      
      2010-10-27T08:31:10 toby
      Hi Leute,
      
      Hat noch jemand eine Idee, warum das "$!" bei open() unter Linux mit "Inappropriate ioctl for device" gefüllt wird? Die Datei kann doch ohne Probleme geöffnet werden...
      
      Da steht irgendein Wert drin, Zufall oder voreingestellt vom System? Keine Ahnung, warum.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - topeg
        
        2010-10-27 11:22
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Soweit ich mich erinnere holt sich perl die letzte Meldung vom System wenn "$!" aufgerufen wird. Irgend ein Programm in der Ausführungshierarchie unter Linux hat diese Meldung provoziert und Perl gibt sie einfach nur aus.

View all threads created 2010-10-26 17:37.