Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

2011-07-01から1ヶ月間の記事一覧

顔に見える計算式

use strict; use warnings; my $i = 0; # ||||||||||||| my $j = -- $i - $i --; # \ / print "$j\n"; 途中で心折れた。

system()とコマンド入力演算子(逆クオート演算子)の出力

system()と``は似たようなものかと思っていたら、今日唐突にはまったのでメモ。 system()は出力をそのままにしてくれるけど、``は出力結果がreturnされる。 called.pl #!/usr/local/bin/perl print "called!!\n"; caller.pl #!/usr/local/bin/perl print "sy…

MooseのBUILDARGSで

URIオブジェクト作るんだけど、プロパティとしても同じことができないかなんとかしたい。おお、何言ってるのか分からない。 package WWW::ImagePager; use Any::Moose; use URI; has 'basepage' => (is=>'rw', isa=>'URI'); sub BUILDARGS { my ($self, %arg…