エラーでハマっている為、use AutoLoaderする際の記述法と概

Question

エラーでハマっている為、use AutoLoaderする際の記述法と概念を知りたいです。
-----------------------------------------------
test.cgi

use lib '/var/www/lib';
unshift @INC, '/var/www/lib';
use AutoLoader 'AUTOLOAD';

RegistDataList();#ここで存在しない関数を呼び出す
-----------------------------------------------

●自作モジュール(UserEditCommon.pm)
-----------------------------------------------
package UserEditCommon;
BEGIN{
use Exporter();
@ISA = qw(Exporter);
@EXPORT_OK = qw(RegistDataList);
}
use utf8;
use open ":utf8";
use open ":std";
use AutoLoader 'AUTOLOAD';
1;
__END__
ここ以降に色々な関数が記述されていますが、元々ライブラリーだった為、OOP的なコンストラクタやデストラクタは記述していません。
----------------------------------------------

$ perl -e 'use AutoSplit; autosplit($ARGV[0], $ARGV[1], 0, , 1)' UserEditCommon.pm auto
上記を実行すると、auto/UserEditCommon/関数名.alファイルが沢山出来ました。
それを/var/www/lib/autoとしてUP

●下記を参考にしているのですが
http://perldoc.jp/docs/perl/5.8.0/AutoLoader.pod …
抜粋「B<AutoLoader>のAUTOLOADサブルーチンために、
明示的にそれをインポートI<しなければなりません>。」
とある為、
use AutoLoader 'AUTOLOAD';
と記述する際はtest.cgi内ではsub AUTOLOADが必要ないと解釈しています。

実行した際、
Can't locate auto/main/RegistDataL.al in @INC (@INC contains: /var/www/lib ...
となり、auto/main/のRegistDataList.alが呼ばれているはずなのに、なぜRegistDataL.alという名前でのエラーなのでしょうか

●またtest.cgi内で
use AutoLoader;
とした場合のsub AUTOLOAD内の記述をお教え願えませんでしょうか

sub AUTOLOAD {
#print "$AUTOLOAD は未定義です";
my $sub = $AUTOLOAD;
$sub =~ s/.*:://;
$AutoLoader::AUTOLOAD = $sub;
goto &AutoLoader::AUTOLOAD;
}

上記のようにしても、エラー内容が
Can't locate auto/AutoLoader/RegistDataL.al in @INC (@INC contains: /var/...
となってしまい、どうすればよいか途方にくれています。

_--_1l1_1_ · Accepted Answer

違いますよ。Exporter は 別モジュールで定義されている関数を、
"モジュール名::関数()" ではなくて、"関数()" で呼び出すために使っています。

-- Bar.pm
package Bar;
use strict;
use warnings;
use base qw(Exporter);

our @EXPORT_OK = qw(function1 function2);

sub function1 { print "call function1. EXPORT_OK
"; }
sub function2 { print "call function2. EXPORT_OK
"; }
sub function3 { print "call function3. No EXPORT
"; }

1;

-- test.pl
use strict;
use warnings;
use lib './';
use Bar qw(function1); # Bar::function1をインポートする

function1(); # call function1. EXPORT_OK
# function2(); # これはできない
Bar::function2(); # call function2. EXPORT_OK

# function3(); # これはできない
Bar::function3();# call function3. No EXPORT

_--_1l1_1_ · Answer

Foo.pm 内でAutoLoaderをuseしているので、test.pl では、FooだけuseすればOKです。

_--_1l1_1_ · Answer

使用する関数をexportするか、モジュール名::関数 で呼び出す必要があると思います。

# Foo.pm
package Foo;
use strict;
use warnings;
use AutoLoader 'AUTOLOAD';

use base qw(Exporter);
our @EXPORT_OK   = qw(function1);

1;
__END__

sub function1 {
    print "Foo::function1. EXPORT OK function
";
}

sub function2 {
    print "Foo::function2. No EXPORT function
";
}

# test.pl
use strict;
use warnings;
use lib './';
use Foo qw(function1);

function1();
Foo::function2();

$ perl -e 'use AutoSplit; autosplit($ARGV[0], $ARGV[1], 0, 1, 1)' Foo.pm ./auto
$ perl test.pl 
Foo::function1. EXPORT OK function
Foo::function2. No EXPORT function

エラーでハマっている為、use AutoLoaderする際の記述法と概

違いますよ。

Foo.pm 内でAutoLoaderをuseしているので、test.pl では、FooだけuseすればOKです。

使用する関数をexportするか、モジュール名::関数 で呼び出す必要があると思います。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

使用する関数をexportするか、モジュール名::関数で呼び出す必要があると思います。