FindBin in Modulen - #115482 (Allgemeines zu Perl)

Linuxer

2008-10-14 00:08

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Hi,

Code: (dl )

1
2
3

/mylib/a/b.pm 
/mylib/c/d.pm
/script.pl

innerhalb von script.pl sollte doch ausreichen:

Code: (dl )

1
2

use lib '/mylib';
use c::d;

dann sollte innerhalb von /mylib/c/d.pm das hier ausreichen:

Code: (dl )

use a::b;

Oder seh ich da was falsch?

Nachtrag:
Beispiel:

Code: (dl )

~/a.pl:
---8<--
#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;
use lib '/tmp';
use bar::foo;

bar::foo->hello();
__END__
---8<--

/tmp/foo/bar.pm:
---8<--
package foo::bar;

sub world {
	return "world!";
}

1;
__END__
---8<--


/tmp/bar/foo.pm:
---8<--
package bar::foo;
use foo::bar;

sub hello {
	print "hello ", foo::bar::world(), $/;
}

1;
__END__
---8<--

~$ perl ~/a.pl 
hello world!
~$

Edit: Nachtrag angepasst; OO aus bar::foo entfernt.

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!