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

Brenner

2009-01-14 13:19

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

So, meine Dateien heißen nun:

...\test02\MODUL\ERRORCODE.pm
...\test02\PRG\errorhandling.pl
...\test02\PRG\errormap.txt

Inhalt der errormap.txt ist wie gehabt.

ERRORCODE.pm

Code (perl): (dl )

package MODUL::ERRORCODE;

use strict;
use warnings;


sub errormap
{
        open( my $errormaplist, '<', 'errormap.txt' ) or die "Fehler: $!";
        close $errormaplist;
}
1;

errorhandling.pl

Code (perl): (dl )

#! /usr/bin/perl

use strict;
use warnings;

# include MODUL in module search path
BEGIN { push(@INC,"Z:/work/errorhandling/test02"); }

use MODUL::ERRORCODE;

Soweit läuft das schon Mal ohne Fehlermeldungen durch. Ich habe mal Testweise die errormap.txt gelöscht, aber es werden dann trotzdem keine Fehler ausgegeben.

Stimmt die Syntax dann soweit schon Mal?

@Linuxer

Code: (dl )

Modul:
- Methode new():
- - Array mit Meldungen füllen, referenzieren, zum Objekt machen und Referenzen zurückliefern.
- Methode get_msg():
- - Nimmt Fehlernummer entgegen und liefert die entsprechende Meldung aus dem Array oder Leerstring/undef falls Nummer nicht existiert/definiert.

Skript:
- Modul mit use einbinden;
- Objekt erstellen; Schema: my $foo = Bar->new();
- Objekt nutzen: $foo->get_msg( 2 );

Jaaa, ähmmm, das klingt ganz gut, aber ich habe keine Ahnung wie das umsetzen soll. Die oberen Links werden bei mir leider nicht geladen. Weißt du wo es dazu ein Beispiel gibt?