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

Brenner

2009-01-16 10:43

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

@Gast:

Danke, aber das wirft nur viele viele Fehler und hilft mir ohne Erklärung nicht wirklich.

Code: (dl )

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.

@FoolAck:
Die Fehlerliste wird sich noch sehr häufig ändern, aus diesem Grund habe ich das erst einmal so gelassen wie es ist.

Nach einem frischen Kaffe und Ruhe im Raum habe ich sogar eben einen Minierflog gehabt. Mir viel etwas von einer Onlinelektion von gestern ein und konnte es prompt umsetzen.

Jetzt sieht das Programm gerade so aus, ich weiß nur noch nicht wie ich im Hauptprogramm den Returnwert aus der subroutine übergeben. Ausserdem wird es sich doch jetzt mit den Objekten beißen (Wertübergabe) wenn ich einen Wert aus dem Hauptprogramm überliefere!?

Code (perl): (dl )

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