encode_utf8せずに処理してしまうWide character in ...という警告がログに出力されるあれ以来、テストでSTDERRのチェックを行うようにしている。
あと、テストデータにマルチバイト文字列を忘れずに入れる。
my ($stdout, $stderr, $exit) = capture { MyApp->new->run(@argv) }; is $stderr, '', '標準エラー出力には何も出力されていない';
Path::Classで生成したオブジェクトは、ファイルはPath::Class::File、ディレクトリはPath::Class::Dirとなる。Path::TinyはどちらもPath::Tinyとなる。
# Path::Class $file = file($path); $dir = dir($path); # Path::Tiny $file = path($path); $dir = path($path);
# Path::Class $file = $dir->file($name); # Path::Tiny $file = $dir->child($name);
# Path::Class $dir = $dir->subdir($name); # Path::Tiny $dir = $dir->child($name);
# Path::Class $dir->rmtree; # Path::Tiny $dir->remove_tree;
# Path::Class $read = $file->openr; $read = $file->open('<:encoding(cp932)') or die "Can't read $file: $!"; $read = $file->open('<:utf8') or die "Can't read $file: $!"; # Path::Tiny $read = $file->openr; $read = $file->openr(':encoding(cp932)'); $read = $file->openr_utf8;
# Path::Class @lines = $file->slurp( chomp => 1 ); # Path::Tiny @lines = $file->lines( { chomp => 1 } );
# Path::Class $file->spew( iomode => ':utf8', $data ); # Path::Tiny $file->spew( { binmode => ':utf8' }, $data );
# Path::Class file($file->parent)->touch; # Path::Tiny $file->parent->touch;
# Path::Class $file->copy_to($path); # Path::Tiny $file->copy($path);
# Path::Class $file->move_to($file_path); # Path::Tiny $file->move($file_path);
Path::Tinyのmoveはrenameと同等の機能なので注意が必要。
# Path::Class $file->move_to($dir_path); # Path::Tiny use File::Copy 'move'; move $file, $dir_path;
# Path::Class $dir->recurse( callback => sub { my $file = shift; return unless -f $file; print $file, "\n"; }); # Path::Tiny my $iterator = $dir->iterator( { recurse => 1 } ); while( my $file = $iterator->() ) { next unless $file->is_file; print $file, "\n"; }
移動先のディレクトリ作成
find /from -type f -mtime +31 | xargs -I {} dirname {} | sort | uniq | sed 's!/from!/to!g' | xargs mkdir -pv
ファイルを移動
find /from -type f -mtime +31 | sed 's!\(/from\)\(.*\)!\1\2 /to\2!g' | xargs --max-args=2 mv -v
rsyncとか使ってコピーした後に削除とかやりたかったけど、n日以前のファイルコピー方法が分からなかった。
xargsが引数を複数取ることが出来るのを初めて知った。便利。
Perl 5.8.8で試してみた。
waniji@localhost:~$ plenv versions system 5.18.2 * 5.8.8 (set by /home/waniji/.plenv/version) waniji@localhost:~$ cpanm -lextlib File::Spec --> Working on File::Spec Fetching http://www.cpan.org/authors/id/S/SM/SMUELLER/PathTools-3.47.tar.gz ... OK Configuring PathTools-3.47 ... OK Building and testing PathTools-3.47 ... FAIL ! Installing File::Spec failed. See /home/waniji/.cpanm/work/1404224796.5765/build.log for details. Retry with --force to force install it.
File::Spec 3.40以降はTest::More 0.88以上に依存しているが、Makefile.PLにその記述がない。
Perlが5.10.0以前の場合はコアモジュールとして入ってるTest::Moreのバージョンが0.88より古いため、上記のようにテストに失敗してしまう。
File::Specをインストールする前に、Test::Moreを0.88以上にすれば良い。
waniji@localhost:~$ cpanm -lextlib Test::More --> Working on Test::More Fetching http://www.cpan.org/authors/id/E/EX/EXODIST/Test-Simple-1.001003.tar.gz ... OK Configuring Test-Simple-1.001003 ... OK Building and testing Test-Simple-1.001003 ... OK Successfully installed Test-Simple-1.001003 (upgraded from 0.62) 1 distribution installed waniji@localhost:~$ cpanm -lextlib File::Spec --> Working on File::Spec Fetching http://www.cpan.org/authors/id/S/SM/SMUELLER/PathTools-3.47.tar.gz ... OK Configuring PathTools-3.47 ... OK Building and testing PathTools-3.47 ... OK Successfully installed PathTools-3.47 (upgraded from 3.12) 1 distribution installed
この問題は既に報告されていた。
英語に自信が無いけど、多分、「"blead perl"では修正されているけど、安定版としてリリースされてないから、CPANのモジュールにはまだ適応されないよ！」って書いてる...はず。
最近、この修正が適応されたPerl 5.20.0がリリースされたから、CPANのモジュールもそろそろ修正されるんじゃないかなーと予想。
技術と関係ないことをまとめる場所
以下のドキュメントにCarpの詳細説明があるので、それを読めば挙動が分かります。
Carp - モジュールのための warn と die の代替
この記事では、実際に継承してるコードを例に出して説明しようと思います。
client.pl
#!/usr/bin/env perl use strict; use warnings; use Concrete; Concrete->new->run(@ARGV);
Concrete.pm(具象クラス)
package Concrete; use strict; use warnings; use Carp; use parent 'Abstract'; sub speak { my $self = shift; croak "ﾀﾞﾚｶﾀｽｹﾃｰ"; } 1;
Abstract.pm(抽象クラス)
package Abstract; use strict; use warnings; sub new { my $class = shift; bless {}, $class; } sub run { my $self = shift; $self->speak; } sub speak {} 1;
実行結果
$ ./client.pl ﾀﾞﾚｶﾀｽｹﾃｰ at ./client.pl line 6.
このコードを実装した際、呼び出し元がAbstract::runなので、
ﾀﾞﾚｶﾀｽｹﾃｰ at Abstract.pm line 12. と出るかと思ったら、
client.plの行数が出てしまいました。
これは何故かというと、継承関係にある呼び出し元は（具体的には@ISAに入っていれば）、
安全であると判断されスルーされます。
更に上位の呼び出し元はclient.plになるので、上記の実行結果となりました。
これだとエラーとしては分かり辛いなぁと思います。
dieを実行した行数とそのファイル名を返します。
$ ./client.pl ﾀﾞﾚｶﾀｽｹﾃｰ at Concrete.pm line 10.
confessはスタックトレースを伴うエラーを発生させます。
$ ./client.pl
ﾀﾞﾚｶﾀｽｹﾃｰ at Concrete.pm line 10.
Concrete::speak('Concrete=HASH(0x177b178)') called at Abstract.pm line 12
Abstract::run('Concrete=HASH(0x177b178)') called at ./client.pl line 6
全てのcroakをconfessに、carpをcluckにとして扱うようにします。
CPANからダウンロードして使用している外部モジュールなども対象となります。
$ perl -MCarp=verbose client.pl
ﾀﾞﾚｶﾀｽｹﾃｰ at Concrete.pm line 10.
Concrete::speak('Concrete=HASH(0x184b1a8)') called at Abstract.pm line 12
Abstract::run('Concrete=HASH(0x184b1a8)') called at client.pl line 6
Template Methodパターンで作ってたらこの問題にぶち当たりました。
CPANに公開しないモジュールであれば、confessを使っておくのが良いかなぁと思ってます。
（dieは情報が少ないし、Carp::verboseはやりすぎ感がある……）
evalで例外をキャッチするとこんな表示になります。
Abstract.pm（runを書き換え）
sub run { my $self = shift; eval { $self->speak }; if($@) { print "$@"; warn "ﾁｮｯﾄﾏｯﾃﾃｰ"; } }
実行結果
Use of uninitialized value $_ in string at Abstract.pm line 14.
ﾀﾞﾚｶﾀｽｹﾃｰ at Concrete.pm line 10.
Concrete::speak('Concrete=HASH(0x1ec0178)') called at Abstract.pm line 12
eval {...} called at Abstract.pm line 12
Abstract::run('Concrete=HASH(0x1ec0178)') called at ./client.pl line 6
ﾁｮｯﾄﾏｯﾃﾃｰ at Abstract.pm line 15.
eval {...} が追加されてますね！
やりたかっただけです！
carton bundleを実行すると、App::FatPackerを用いて、cartonを1ファイルのスクリプトにまとめてくれます。
このfatpacked cartonをCentOS5のsystem perl(5.8.8)で使用したかったのですが、carton bundleで生成されたfatpacked cartonを実行すると、エラーが発生して動きませんでした。
何とか動作させる方法を調べたので、エラーの原因と解消方法をまとめておこうと思います。
なお、carton bundleでのfatpacked carton生成は、"experimental feature"のようです。
https://github.com/miyagawa/carton/issues/141
また、fatpacked cartonが原因の課題が多いため、carton bundleではデフォルトで作成させず、別コマンドに切り離すIssueが作成されてます。
https://github.com/miyagawa/carton/issues/156
v1.0.12
CHECKブロックで%INCからfatpackするモジュール一覧を取り出すので、それまでにrequireされたモジュール(のはず）
Algorithm::C3がfatpackされていないという理由で怒られます。
この問題の原因はClass::C3です。
CartonとAlgrorithm::C3の関係は以下の通り。
Carton
\- Moo
\- MRO::Compat
\- Class::C3
\- Algorithm::C3
Class::C3はClass::C3::XSが存在する場合は、Algorithm::C3がrequireされません。
Class::C3::XSはPerlのバージョンが5.9.5より下であれば自動でインストールされるので、fatpackする時にXSが対象となり、Algorithm::C3はfatpackされません。
しかし、fatpacked cartonではXSモジュールのロードに失敗するので、Algrorithm::C3をrequireしようとしてエラーとなります。
(詳細はClass::C3のBEGINブロック参照)
対処法は、Class::C3::XSをuninstallすることです。
cpanm -U Class::C3::XS carton bunlde
因みに、Perl 5.10.0以上だとMRO::Compatのかわりにmroが使用されるので、この問題は発生しません。
(詳細はMoo/_mro.pmを参照)
List::Utilのバージョンが古いという理由で怒られます。
これは、CPAN::Metaの2.133380以降がList::Utilの1.33以上に依存していることが原因です。
CartonはCPAN::Metaの2.120921に依存していますが、Perl 5.8.8のコアモジュールにCPAN::Metaが入っていないため、CPANからインストールされます。
この時インストールされるバージョンは2.140640（2014/03/11時点）です。
このバージョンではList::Util 1.33以上に依存しているので、併せてList::Util 1.38(2014/03/11時点)がインストールされ、carton bundle時にfatpackされます。
しかし、List::UtilはXSモジュールなので、fatpacked cartonではロードに失敗します。
なので、コアのList::Utilが使われるのですが、バージョンが1.18と古いため、エラーが発生します。
対処法は、CPAN::MetaをuninstallしてCPAN::Metaの2.120921を入れ直せば良いです。
cpanm -U CPAN::Meta cpanm CPAN:Meta@2.120921 carton bundle
因みに、Perl 5.17.1以上だとコアモジュールにCPAN::Metaの2.120921が入っているので、この問題は発生しません。
以下のどれかを採用しましょう。
どうしてもPerl 5.8.8でfatpacked cartonを作りたければ、上記の方法で頑張ってつくろう。
