2011-07-01から1ヶ月間の記事一覧
use strict; use warnings; my $i = 0; # ||||||||||||| my $j = -- $i - $i --; # \ / print "$j\n"; 途中で心折れた。
system()と``は似たようなものかと思っていたら、今日唐突にはまったのでメモ。 system()は出力をそのままにしてくれるけど、``は出力結果がreturnされる。 called.pl #!/usr/local/bin/perl print "called!!\n"; caller.pl #!/usr/local/bin/perl print "sy…
URIオブジェクト作るんだけど、プロパティとしても同じことができないかなんとかしたい。おお、何言ってるのか分からない。 package WWW::ImagePager; use Any::Moose; use URI; has 'basepage' => (is=>'rw', isa=>'URI'); sub BUILDARGS { my ($self, %arg…