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