Eine Perlfrage
Frank Matthieß
Frank.Matthiess at microdata-pos.de
Tue Apr 4 13:30:13 CEST 2000
Hallo,
ich habe ein Problem mit Erstellen eines Moduls bzw. Objekts.
---schnipp---
switch-form.pl: Can't locate auto/Addressbook/Forms/new.al in
@INC (@INC contains: /home/frank/develop/perl/modules
/usr/lib/perl5/5.005/i386-linux /usr/lib/perl5/5.005
/usr/local/lib/site_perl/i386-linux /usr/local/lib/site_perl
/usr/lib/perl5 .) at ./switch-form.pl line 14
---schnapp---
Ich habe mit "h2xs -A -X -n Addressbook::Forms" ein Modulskelett
erzeugt.
Das binde ich folgendermaßen ein:
---schnipp---
#!/usr/bin/perl -w
BEGIN {unshift @INC, "/home/frank/develop/perl/modules";}
use strict;
use CGI::Form;
use CGI::Carp qw(fatalsToBrowser);
use Net::LDAP;
use Addressbook::Forms;
package main;
my $f = new Addressbook::Forms;
---schnapp---
Meine Frage(n):
Can't locate auto/Addressbook/Forms/new.al
Wieso sucht Perl in "auto/..." ?
Wieso sucht Perl new.al?
Die Struktur Addressbook/Form liegt in
/home/frank/develop/perl/modules.
---schnipp---
package Addressbook::Forms;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
@ISA = qw(Exporter AutoLoader);
# Items to export into callers namespace by default. Note: do not
export
# names by default without a very good reason. Use EXPORT_OK
instead.
# Do not simply export all your public
functions/methods/constants.
@EXPORT = qw(
);
@EXPORT_OK = qw(
);
$VERSION = '0.01';
# Preloaded methods go here.
# Autoload methods go after =cut, and are processed by the
autosplit program.
1;
__END__
my %param = (
Titel=>undef,
addscript=>undef,
searchscript=>undef,
removescript=>undef,
BreiteFeldnamen=>undef,
BreiteFelder=>undef
);
sub new {
my $that = shift;
my $class = ref($that) || $that;
my $self = {%param};
$self->BreiteFeldnamen=100;
$self->BreiteFelder=100;
bless $self, $class;
return $self;
}
---schnapp---
Unabhängig davon das sicher noch syntaktische Macken vorhanden
sind, verstehe ich nicht warum er "falsche" Pfade und nicht
vorhandene Dateien sucht.
--
Frank Matthieß
Frank.Matthiess at microdata-pos.de
Support / Netzwerkadministration
Am Wellbach 4
D 33605 Bielefeld +49 521 97 22 6-12
-
Hinweise zur Benutzung dieser (und anderer Mailing-Listen) bitte beachten:
--> http://lug-owl.de/mailinglist_hints.html <--
More information about the Linux
mailing list