#! /usr/bin/perl

package ERRORCODEOBJ;

use strict;
use warnings;

# bitte immer zusammen mit dem Klassennamen Blessen
# das ist sauberer
sub new
{
  my $class=shift;
  my $zeiger=[ ];
   bless($zeiger,$class);
}

sub errormap
{
        #use Data::Dumper;
    #print Dumper(\@_);
        
        my $self = shift;
        #$$line[0]=$_[0];
        # hier kannst du auch
        my $line=shift;
        # schreiben anstatt
        # my ($line) = @_;
        
        open( my $errormaplist, '<', 'errormap.txt' ) or die "Fehler: $!";
        my @lines = <$errormaplist>;
        close $errormaplist;
        
        # warum so enorm kmpliziert?!

        ##print $lines[ $linenr ];
        ##my $ausgabe = $$lines[$$line[0]];
        #my $ausgabe = \@lines;
        #print "ausgabe: ".$$ausgabe[$line];
        #my $wert = $$ausgabe[$line];
        #return $wert;

        # das ist doch viel einfacher
        return $lines[$line];
}

# bitte wieder in das paket "main" wechseln
package main;
my $obj=ERRORCODEOBJ->new();
# wenn du schon die funktion aufrufst,
# so kannst den Rückgabewert doch auch gleich Ausgeben
print "Error:".$obj->errormap(2)."\n";