Opened by toby at 2010-10-26 17:37
User since
2006-04-14
66 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
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:
Läuft auf der HP-UX-Büchse einwandfrei ($! ist leer). Auf einer Linux-Box bekomme ich folgendes:
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)
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)