モジュール

Perl

もうひととおりモジュールについて説明したけど、改めてモジュールを作ってみる。

Perlモジュール徹底解説 - Perlプログラミング入門ゼミ - Perlでテキスト処理・Linuxサーバー管理・Webシステム開発

今回は、モジュールを置くディレクトリを掘って、その中にモジュールファイルを置く。

[bg1@dti-vps-srv93 module]$ mkdir CustomDirectory
[bg1@dti-vps-srv93 module]$ cd CustomDirectory
[bg1@dti-vps-srv93 CustomDirectory]$ vi CustomModule.pm

で、モジュールを書く。

# Exporter
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw/func/;

# BEGIN
BEGIN{
  print "This is BEGIN.\n";
}

# END
END{
  print "This is END.\n";
}

# func.
sub func{
  print "func.\n";
}

1; # これがないとエラーメッセージ.

パッケージ名を付けてない。

[bg1@dti-vps-srv93 CustomDirectory]$ cd ..
[bg1@dti-vps-srv93 module]$ vi module.pl

上がってmodule.plを書く。

パッケージ名を付けてなくても、ディレクトリ名::モジュールファイル名(拡張子なしでもいい)で使える。

[bg1@dti-vps-srv93 module]$ perl module.pl
This is BEGIN.
func.
This is END.
[bg1@dti-vps-srv93 module]$

呼べるね。

としても、

[bg1@dti-vps-srv93 module]$ perl module.pl
This is BEGIN.
func.
This is END.
[bg1@dti-vps-srv93 module]$

もちろん呼べる。

Sample/perl/module/module/src/module at master · bg1bgst333/Sample · GitHub