[Perl]
Perlの覚え書き
Net::SSLeay
- Net::SSLeayをインストールするためには以下のパッケージが必要
- openssl libssl-dev zlib1g-dev (debianの場合)
- Could not find OpenSSL If it's already installed, please set the OPENSSL_PREFIX environment variable accordingly
@INC
perl -e 'foreach $path (@INC) { print "$path\n"; }'
OOP
問題点
- Perlのオブジェクト指向は他の言語と比べていびつ
- どこからどこまでがクラスなのかわかりにくい
- blessとか面倒
- sub function_name の引数が shift で宣言しているのがわかりにくい
- ついでに言うと $self が必ず宣言されるが使われないことも多い
package plugin::access::AccessDays;
use strict;
#==============================================================================
# コンストラクタ
#==============================================================================
sub new {
my $class = shift;
my $self = {};
return bless $self,$class;
}
#==============================================================================
# パラグラフ関数
#==============================================================================
sub paragraph {
my $self = shift;
my $wiki = shift;
my $maxrank = shift;
my $maxdays = shift;
...
1;
解決策
- Simulating aspects of static-typing in a duck-typed language
- Moose, MooseX::Declareが提案されている
- 最新のPerlだとMoopsが良さそう