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

Brenner

2009-01-15 16:35

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

Ich habe mal versucht anzufangen, aber leider, wie erwartet, hats nicht geklappt.

Ich habe erstmal alles in ein Programm gepackt weil ich noch nicht weiß wie es hier mit der Übergabe ins Hautpprogramm aussieht.

Code (perl): (dl )

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