Hallo,
ich habe folgende Struktur:
Hauptprogramm
ruft Subroutinen
Ende Hauptprogramm
Subroutine1
...
Subroutinen
$rc=isEmail($addr);
....
package CheckEMail;
use strict;
use vars qw($VERSION @ISA @EXPORT_OK $MailRegEx);
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(isEmail $MailRegEx);
........
sub isEmail($) {
my $mail = shift;
my $ergf= ($mail =~ /^$MailRegEx$/o);
return $mail =~ /^$MailRegEx$/o;
}
1;
Ich bekomme an der Aufrufstelle von isEmail folgenden Fehler in der log-Datei:
Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::C:/programmpfad/prog.pl::isEmail
Namen habe ich zig-mal überprüft auch Groß-Kleinschreibung.
Wer hat eine Idee, woran das liegen könnte?
Weitere Fragen:
Stellt man Subroutinen besser vor oder hinter das Hauptprogramm?
Wie stelle ich es an, das package als externe Datei einzubinden?
Danke für Eure Hilfe