"or die $!" bei Funktionsaufruf - #66273 (Allgemeines zu Perl)

bloonix

2006-05-18 16:42

User since
2005-12-17
1615 Artikel
HausmeisterIn

Hallo Leute,

folgendes Problem habe ich...

test111.pl

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;
use lib '.';
use test111;

test111->do_open() or die $!;

test111.pm

Code: (dl )

package test111;

sub do_open {
   # ./datei gibt es nicht
   open my $FH,'<','./datei' or return;
}

1;

Datei oder Verzeichnis nicht gefunden at ./test111.pl line 7.

Leider erhalte ich nicht die Fehlermeldung, die ich erwarten
würde und zwar, dass das open in Zeile 4 von test111.pm
fehlgeschlagen ist. Was muss ich tun, damit ich den genauen
Ort des Fehlers feststellen kann?

Ich möchte das "die" nicht nach dem "open" in der Funktion
auslösen, da der Aufrufer selbst darüber entscheiden soll.

Viele Grüße,
opi\n\n

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.