Opened by BratHering at 2005-06-09 00:44
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
das ist keine harte referenz auf den handle, sondern ein glob... und das * brauchst du nicht wirklich
defined(fileno(FH)) muesste auch reichen; wenn dich die globs stoeren, dann schreib doch einfach:
aber ich sehe keinen sinn darin, den filehandle zu ueberpruefen, weil die Zahl, die da drinnensteht, was perl-internes ist, und du fehler darueber nicht mitbekommst... du bekommst darueber i.d.R. nur mit, wenn jemand den filehandle schliesst...
es hilft nur, beim open/print/close auf Fehler zu ueberpruefen...
siehe auch: perldoc -f fileno
<!--EDIT|Strat|1118321831-->
defined(fileno(FH)) muesste auch reichen; wenn dich die globs stoeren, dann schreib doch einfach:
Code: (dl
)
1
2
3
4
5
6
7
8
9
my $fh;
unless (open ($fh, "<", $file)) {
warn "Fehler: $!\n";
}
else {
unless (defined(fileno($fh)) {
die "Fehler...\n";
}
} # else
aber ich sehe keinen sinn darin, den filehandle zu ueberpruefen, weil die Zahl, die da drinnensteht, was perl-internes ist, und du fehler darueber nicht mitbekommst... du bekommst darueber i.d.R. nur mit, wenn jemand den filehandle schliesst...
es hilft nur, beim open/print/close auf Fehler zu ueberpruefen...
siehe auch: perldoc -f fileno
Quote\n\n(Filehandles connected to memory objects via new features of
"open" may return undefined even though they are open.)
<!--EDIT|Strat|1118321831-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/