#! /usr/bin/perl

package ERRORCODEOBJ;

use strict;
use warnings;


sub new
{
  my $zeiger=[ ];
   bless($zeiger);
}

sub errormap
{
	#my ($linenr) = @_;
	my $line=shift;
	$$line[0]=$_[1];
	
	open( my $errormaplist, '<', 'errormap.txt' ) or die "Fehler: $!";
	my @lines = <$errormaplist>;
	close $errormaplist;
	
	#print $lines[ $linenr ];
	print $$errormaplist[$$line[0]];
}

my $objekt3=ERRORCODEOBJ->new();

#Hier versuche ich die Zahl 1 zu übergeben damit sie im Sub genutzt wird um die passende Meldung auszugeben.
$objekt3->errormap(1);