Werte in Subroutine und zurück mit Modulen - #117975 (Allgemeines zu Perl)

murphy

2009-01-14 16:39

User since
2004-07-19
1776 Artikel
HausmeisterIn

@Brenner: Mir scheint, in Deiner Subroutine greifst Du auf @errormaplist zu, ohne jemals diese Variable zu deklarieren, geschweige denn etwas darin zu speichern.

Es ist ja loeblich, dass Du use strict; use warnings; verwendest. Aber wenn Du auch noch die Warnungen und Kompilerfehler lesen und beheben wuerdest, waer's noch besser ;-)

Spass beiseite, ich wuerde das wohl so machen:

Code (perl): (dl )

package Modul::Errorcode;

use strict;
use warnings;

use Tie::File;
use Fcntl qw/O_RDONLY/;

use Exporter qw/import/;
our @EXPORT = qw/errormap/;


sub errormap ($) {
        my ($parameter) = @_;

        tie
                my @errormaplist, 'Tie::File' => 'errormap.txt',
                mode => O_RDONLY or
                die "Konnte Fehlerbeschreibungen nicht laden: $!";

        return $errormaplist[$parameter] || 'Unbekannter Fehler';
}

1;

When C++ is your hammer, every problem looks like your thumb.