#!/usr/bin/env perl use strict; use warnings; use utf8; use Time::Local; sub timestamp2date { my $timestamp = shift; my ($sec, $min, $hour, $day, $mon, $year) = localtime($timestamp); return sprintf('%04d-%02d-%02d %02d:%02d:%02d', $year +…

WWW::Mechanizeは、通常の利用範囲ならば、メモリ消費量について問題にはならないと思う。 しかし、一回の実行で、数千回以上の URL アクセスを繰り返すようならば、WWW::Mechanize のメモリ消費量を考慮すべきである。考慮しないと、そのうちに Out of Memo…

Windows 版の ActivePerl は PPM(Perl Package Manager) から ImageMagick を利用できるようにすることができる。そのおかげで、単体で ImageMagick をインストールする必要がない。 1.まずは、DOS プロンプトから PPM を起動する DOS プロンプトが開いたら…

クラス化したモジュール内をインスタンス化し、インスタンス変数内の配列を初期化・再初期化する際の備忘録。 #!/usr/bin/env perl use strict; use warnings; use utf8; use Data::Dumper; { package Array::Test; use strict; use warnings; sub new { my …

備忘録。 制御構文内で配列のリファレンスを再初期化したいときに、思う通りに再初期化できないので、簡単な動作結果を確認する。 #!/usr/bin/env perl use strict; use warnings; use utf8; use Data::Dumper; # 配列のリファレンス用に変数を宣言する my $…

#!/usr/bin/env perl use strict; use warnings; use utf8; use Encode; # 外部から入力された文字ならば、decode して Perl の内部文字列にする my $hiragana = 'あいうえお'; my $hiragana_and_numeric = '01234と56789'; print encode('utf-8', "ひらがな…