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

Brenner

2009-01-14 10:50

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

Hallo und danke für die Mühe. Ich erkläre es doch mal ausführlicher.

Ich habe drei Dateien.
-errormap.txt
-errorhandling.pl
-test.pm

Die errormap.txt ist so gefüllt:

Code: (dl )

1
2
3

00 Fehlermeldung 00
01 Fehlermeldung 01
02 Fehlermeldung 02

und so weiter.

Die test.pm sieht bisher so aus:

Code (perl): (dl )

package test;

use strict;
use warnings;
use IPC::Open2;


sub errormap
{
        my $errormaplist=shift;
        #print $errormaplist."\n";
        open (DATEI, "errormap.txt");
        @errormaplist=<DATEI>;
        close (DATEI);
}
1;

Hier habe ich versucht das array mit den Daten der Tabelle zu befüllen was auch klappt wenn man das array ausgibt.

Tja und in der errorhandling.pl ist noch nicht viel bis auf viele Zeilen Tests diverser Versuche die inzwischen auskommentiert sind.:

Code (perl): (dl )

#! /usr/bin/perl

use strict;
use warnings;

use <PfadzumModul>::test;

Ich möchte in der *.pl z.B.

print "Gib mir die Fehlernummer: ";
chomp($text = <STDIN>;

und dann eben irgendwie diese Fehlernummer ausgegeben haben die ich im Array in der *.pm eingelesen habe.

Vielleicht ist das von mir auch ein völlig falscher Ansatz, aber ich soll das ganze möglichst modular mit schlanken Hauptprogramm aufbauen, dazu noch objektorientiert.