perldoc perlboot

use lib qw(
  Z:/work/errorhandling/test02
);

test(3);

sub test {
    my ($parameter) = @_;
    print "Mir wurde der Index 3 uebergeben\n";
}

$line = $errormaplist[$parameter];
print $line;

package MODUL::ERRORCODE;

use strict;
use warnings;


sub errormap
{
        open( my $errormaplist, '<', 'errormap.txt' ) or die "Fehler: $!";
        #while( my $line = <$errormaplist> )
        #{
        #       print $line;
        #}
        my ($parameter) = @_;
        print "Index: ".$parameter."\n";
        $line = $errormaplist[$parameter];
        print $line;
        close $errormaplist;
}
1;

sub errorcode {
    my ($linenr) = @_;

    open my $errormap, '<', 'errormap.txt' or die $!;
    while( my $line = <$errormap> ){
        # in $. steht die Zeilennummer (siehe perldoc perlvar)
        if( $. == $linenr ){
            print $line;
            last; # springe aus der Schleife raus
        }
    }
    close $errormap;
}

sub errorcode {
    my ($linenr) = @_;

    open my $errormap, '<', 'errormap.txt' or die $!;
    my @lines = <$errormap>;
    close $errormap;

    print $lines[ $linenr-1 ];
}

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;