perl、 MySQL、オープンソース系、ウェブ系ネタ。なぜか鯖管メモがほとんどを占めている…
Date::Calc - search.cpan.org 基本 use Date::Calc qw(:all); # 今日 my ($yyyy,$mm,$dd) = Today(); print "$yyyy/$mm/$dd"; # 実行結果 2011/1/21 昨日の日付（日付計算） use Date::Calc; my ($yyyy,$mm,$dd) = Date::Calc::Today(); @y = Date::Calc::Add_Delta_Days($yyyy, $mm, $dd, -1); my $yeste […]
今更ながらまた波ダッシュ問題で悩まされた。 波ダッシュ「〜」と全角マイナス「−」で文字化けが発生する。 これまた、Windowsの問題なわけで、マカーである自分にはなかなか気が付かない罠。 で、 perlの波ダッシュの文字コード変換のまとめ - (ﾟ∀ﾟ)o彡 sasata299's blog を読むと、UTF-8<=>SJIS、UTF-8<=>EUCが書かれているのだけれど、どうやらJISもEUCと同じ挙動をするらしい。 メール送信スクリプトで問題が起きるのはこれが原因か。 で、まとめのリンク先にあった Perlで日本語(ISO-2022-JP)メールを送信(まとめ) […]
HTMLから本文（らしき）部分を抜き出せるとっても便利なモジュール。 HTML::Feature 3.00 リリースしました - ダウンロードたけし（寅年）の日記 オプションを指定する場合にちょいとバグがあるので修正。 CPANのバグ報告とか分からないので（汗 PATHは環境によって違うかも知れません。 /usr/lib/perl5/site_perl/5.8.8/HTML/Feature.pm sub _setup { my $self = shift; $self->front_parser( HTML::Feature::FrontParser->new( context = […]
Text::Mecabがインストール出来なかった。 そういえば昔諦めた気がする。 で、エラー内容を見てみる。 # perl Makefile.PL Path to mecab config? [/usr/local/bin/mecab-config] detected mecab version 0.98 Using compiler flags '-I/usr/local/include -DMECAB_MAJOR_VERSION=0 -DMECAB_MINOR_VERSION=98'... Using linker flags '-L/usr/local/lib -lmecab -lstd […]
ImageMagickのインストールはyumで管理するのが一番簡単。 ただし、CentOSのImageMagickはバージョンが古い（v6.2.8） ImageMagickのperlモジュール（PerlMagick？）はCPANでインストールすると入らないので、yumでスコッといれる。
サクっと暗号化/復号化を使いたい時に便利なperlモジュール Crypt::RC4 このモジュールでとある文字列を暗号化すると改行コードが混じる場合がある。 例えば s2525 を暗号化する。 use Crypt::RC4; my $secret_key='1234'; my $encrypted = Crypt::RC4->new($secret_key)->RC4('s2525'); print $encrypted; 実行結果 �{� � $encrypted をファイルに記録したりすると、改行コードがあるため意図しないところで改行されてしまったりする。 pack/unpackして使う場 […]
GD のインストールに散々悩んだあげく、あきらめかていたけど、 http://tech.hitsug.net/?CentOS%2FPerlモジュール このページに rpmforge レポジトリを使った yum でのインストールが載っていたので試したら一発で出来た。。。 yum --enablerepo=rpmforge install perl-GD いろいろな要因があるのだろうけど。
Email::Valid http://search.cpan.org/~rjbs/Email-Valid-0.184/lib/Email/Valid.pm 現在でも更新されている感じのモジュール。携帯向けに Email::Valid::Loose と言うモジュールもある（有名なMIYAGAWAさん作）通常ならばこのモジュールでいいと思う。 Mail::CheckUser http://search.cpan.org/~ilyam/Mail-CheckUser-1.21/CheckUser.pm Data::Dumper の作者らしい。18 Sep 2003 となっているので更新はだいぶ前。で […]
以前に配列をシャッフルの記事（ https://perl.no-tubo.net/2010/01/08/pelrで配列をシャッフル/ ）を書いたのだけれど、その時にコメントで List::Util を使いましょうよ、と頂いた。 そういうものもあるのか、と思っていたのだけれど理由があったので軽く調べてみた。 perl を書く時には配列処理と言うのはよく使うので、メモとしてエントリー。 配列処理をするモジュール List::Util 配列処理に置いて同じような処理は自前で書いても書けない事は無い。ただし、コアモジュール List::Util は C（XS） で実装されている（？）ので多量の処理にな […]
Perl の $ENV{PATH} は何処を参照しているのか？ 例えば bayon を perl から使うのに Text::Bayon モジュールを利用したら sh: bayon: command not found と言うエラーログが残る。 コマンドが見つからない = パスが通っていない、と言う事なんだろうけど、apache を2.2 にしたらパスが変わったのか apache2.0 の時に使えた Lingua::JA::Summarize を使用するスクリプトも sh: mecab: command not found となる。 mecab も bayon も /usr/local/bin […]
