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

Brenner

2009-01-15 17:33

User since
2009-01-13
87 Artikel
BenutzerIn
[default_avatar]

Hmmm,

bin jetzt wieder unsicherer als vorher. Ich verstehe 50% was du meinst und weiß kaum wie ich es umsetzen soll.

Hab einfach mal was versucht...

Code (perl): (dl )

#! /usr/bin/perl

package ERRORCODEOBJ;

use strict;
use warnings;


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

sub errormap
{
        
        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 = $$errormaplist[$$line[0]];
        return $ausgabe;
}

my $objekt3=ERRORCODEOBJ->new();
$objekt3->errormap(1);