#! /usr/bin/perl
use strict;
use warnings;


package ERRORCODEOBJ;

sub new
{
  my $class=shift;
  my $file = shift or 'errormap.txt';

  my $self={};
  $self->{file_name}=$file;
  $self->{ERRORS}=[];

  bless($self,$class);

  $self->load();

  return $self;
}

sub load
{
  my $self=shift;
  my $filename=$self->{filename};

  open( my $errormaplist, '<', $filename ) or die "error open $filename : $!";
  my @lines = <$errormaplist>;
  close $errormaplist;

  chomp(@lines);

  $self->{ERRORS}=\@lines;
}

sub errormap
{
  my $self = shift;
  my $line =shift;

  if($line < @{$self->{ERRORS}} and $line >= 0)
  {
    return $self->{ERRORS}->[$line];
  }

  return undef;
}

package main;

my $objekt=ERRORCODEOBJ->new();
print $objekt->errormap(1)."\n";

# statt:
#my $objekt3=ERRORCODEOBJ->new();
#$objekt3->errormap(1);
# einfach:
my $obj = ERRORCODEOBJ->new();
print $obj->errormap(1);

Z:\work\errorhandling\test02\MODUL>perl ERRORCODEOBJ2.pl
syntax error at ERRORCODEOBJ2.pm line 2, near "02:"
"use" not allowed in expression at ERRORCODEOBJ2.pm line 2, near ": "
"use" not allowed in expression at ERRORCODEOBJ2.pm line 3, near ": "
Illegal octal digit '8' at ERRORCODEOBJ2.pm line 8, at end of line
Illegal declaration of subroutine main::new at ERRORCODEOBJ2.pm line 9.

#! /usr/bin/perl

package ERRORCODEOBJ;

use strict;
use warnings;


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

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

my $obj=ERRORCODEOBJ->new();
$obj->errormap(2);

#! /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";

#! /usr/bin/perl
use strict;
use warnings;

# vom paket "main" in das Paket "ERRORCODEOBJ" wechseln
package ERRORCODEOBJ;

sub new
{
  # wenn Opjekt mit "xyz->new()" erzeugt wird,
  # ist das erste übergebene Argument der Klassenname.
  # in diesem Fall "ERRORCODEOBJ"
  my $class=shift;
  # mögliche übergabe des dateinamens,
  # in der die die errors gespeichert sind.
  # wenn das shift (auch bekannt als "shift(@_)" ) nicht funktioniert,
  # dann soll "errormap.txt" in der Variable stehen;
  my $file = shift || 'errormap.txt';

  # üblich ist eine hashreferenz
  my $self={};

  # hier wird der Dateiname der zu lesenden Datei gespeichert
  $self->{file_name}=$file;
  # Platz fpr die liste der Errors.
  $self->{ERRORS}=[];

  # zusammen mit dem Klassennamen
  # machen wir aus der referenz ein Objekt
  bless($self,$class);

  # wir liefern das Objekt zurück
  return $self;
}

sub load
{
  my $self=shift;
  my $filename=$self->{file_name};

  open( my $errormaplist, '<', $filename ) or die "error open $filename : $!";
  my @lines = <$errormaplist>;
  close $errormaplist;

  # zeilenunbrüche entferenen;
  chomp(@lines);
  
  # die Referenz von @lines 
  # in der Objektvariable "ERRORS"
  # speichern
  $self->{ERRORS}=\@lines;
}

sub errormap
{
  my $self = shift;
  my $line =shift;
  
  # Liste aktuell halten
  $self->load();

  # abgrage,
  # ob die zeilennummer überhaupt innerhalb der Größe der Errorliste ist
  if($line < @{$self->{ERRORS}} and $line >= 0)
  {
    # wenn es der hall ist,
    # dann gib die Fehlermeldung an der Stelle zurück
    return $self->{ERRORS}->[$line];
  }
  # ansonsten gib "undef" zurück.
  return undef;
}

# wir wechsln wieder nach "main"
package main;

# es wird das Objekt gebildet;
my $objekt=ERRORCODEOBJ->new();
# wir machen eine Abfrage
print $objekt->errormap(1)."\n";