宣伝と注意書き このサイトが元になったCPANモジュールガイドという本を書きました。 本書でも画像編集の定番として取り上げています。だいたいこのページの内容と同じですが、EXIFの取り方やImager::Filter::RoundedCornerを使った角丸画像の作り方なども扱いました。 2007-05-24 use Imager; 今日は画像編集用モジュール Imager を説明します。サムネールを作ったり形式を変換したりなどなど画像操作のいろんな要望に応えてくれるモジュールです。 他の画像編集ライブラリ GD や ImageMagick の Perl インターフェースに比べ、できることは多く、必要とする外部ライブラリが少なめで、同じくらい速く、品質も悪くなく、そしてAPI がきれいです。使わない手はありません。 Imager も他の画像編集ライブラリのようにコアは C ですが、コアと

2009年07月25日23:16 Perl こんな僕が CPAN Author （一応） になるまで。 なんか、、とりあえず CPAN に一度アップしてみようと思って、アップしてみました。つまりは CPAN Author ですね！！ Tatsuya "sasata299" Sasaki - search.cpan.org 大事なこと書き忘れた！今回作った Lingua::JA::Halfwidth っていうのはケータイとかで使われる半角文字（ ｱ とか ﾊﾞ とか ｰ とか）かどうかを判定してくれるモジュールです。perlの正規表現でUnicodeブロックを使う でも書いたんですけど、Unicodeブロック便利なのに半角カナに対してはちょっと不便なんですよね。。それで今回 Lingua::JA::Halfwidth っての作ってみました。これは半角カナだけじゃなくて、半角の句読点とか括弧も

1. perlbrewのインストール LionではデフォルトでPerlのv5.12.3とかなり新しめのバージョンが入ってるみたいですが、 Rubyのようにrvmでバージョン切り替えたりしたいですね！ そこでPerl界のrvmことPerlbrewを入れます。 公式サイトの忍者とビールのしゅわしゅわアニメーションが良い感じです。 => Perlbrew インストールは簡単で、公式に書いてあるとおり、 curl -L http://xrl.us/perlbrewinstall | bash とワンライナーを実行すればいいのですが、デフォルトのインストール先が ~/perl5 らしいので、それが嫌ならインストール前に、 環境変数のPERLBREW_ROOTを変更しろとのことです。自分は以下のようにしました。 mbp:~ namai$ export PERLBREW_ROOT=$HOME/.perl

ブログを自宅サーバから sakuta VPS へ移行しましたが、1.5G プランなのでディスク容量は 50GB しかありません。デジタル一眼で撮った写真を今までは気兼ねなくバシバシとアップロードできていたのですが、移行した時点でディスク使用量が 30% 近くまで行ってしまいました。 # df -k Filesystem 1K-ブロック 使用 使用可 使用% マウント位置 /dev/hda2 17634636 7249188 9444844 44% / /dev/hda1 101086 11918 83949 13% /boot tmpfs 771224 0 771224 0% /dev/shm /dev/hdb1 30961664 10937264 18451640 38% /home 今後を考えると画質を見た目変わらない程度で圧縮をかけておきたいなぁ〜と思って、perl script を

当サイトのblogのエントリーで検索ワードが多いのはCPANなんですがこの古い記事はperl5.6時代に書いた記事(多分10年近く前だと思う)で今時のperl使いにお勧めできるものではありません。 2010年2月にあの miyagawa さんが書いた cpanminus が非常に素晴らしいので CPAN::shell を捨てて App-cpanminus を積極的に利用しましょう。 と言うことでcpanに関連して新しい記事を書いてみました。 CPAN::shell の欠点 設定が面倒 動作が遅い(cpanmと比較して) 多くのメモリが必要(制約のきついレンタルサーバで使うのは無理) 依存するモジュールが多い 基本root権限が必要 cpanm の利点 一枚岩のプログラムで可搬性に優れる 高速で小メモリでも動作可能 pluginで拡張できる local::lib と組み合わせるとユーザーラン

Hippo2000 (2000/7/28) HTTP::Request::Commonモジュールなのです。 作者はGisle Aasさんです。メールで許可をいただきました。 目次 名前 概要 説明 参考資料 著作権 名前 HTTP::Request::Common - 汎用のHTTP::Request オブジェクトの組み立て 概要 use HTTP::Request::Common; $ua = LWP::UserAgent->new; $ua->request(GET 'http://www.sn.no/'); $ua->request(POST 'http://somewhere/foo', [foo => bar, bar => foo]); 説明 このモジュールは新しく作成された HTTP::Request オブジェクトを返す関数を提供します。これらの関数はこれらの一般的なリクエス

名前 HTTP::WebTest - 静的及び動的なウェブコンテンツのテスト 概要 use HTTP::WebTest; my $webtest = new HTTP::WebTest; # run test from file # ファイルからテストを実行 $webtest->run_wtscript('script.wt'); # or (to pass test parameters as method arguments) # もしくはメソッドの引数にテストパラメータを指定 $webtest->run_tests($tests); 説明 導入 このモジュールは PERL/JSP/HTML/JavaScript等を含むリモートURL上の テストを実行し, 詳細なレポートを生成します. このモジュールは "そのまんま"使うことができます. またその機能をプラグインを用いて 拡張すること

ExtUtils::MakeMaker::Tutorial - MakeMaker を使ったモジュールの書き方 ExtUtils::MakeMaker::Tutorial - Writing a module with MakeMaker 名前 NAME ExtUtils::MakeMaker::Tutorial - MakeMaker を使ったモジュールの書き方 ExtUtils::MakeMaker::Tutorial - Writing a module with MakeMaker 概要 SYNOPSIS use ExtUtils::MakeMaker; WriteMakefile( NAME => 'Your::Module', VERSION_FROM => 'lib/Your/Module.pm' ); 説明 DESCRIPTION これは簡単なモジュールを MakeMak

C言語のヘッダファイルから Perl モジュール(のスケルトン)を生成するツール。 pure Perl なモジュールの作成時にも使用できる。 Pure Perl モジュールのスケルトンを作成する Foo というモジュールを作成する場合、以下のコマンドを実行する。 h2xs -AX -n Foo h2xs 1.23 (Perl 5.8.8 付属)の場合以下のようなファイルが作成される。 Foo/lib/Foo.pm Foo/Makefile.PL Foo/README Foo/t/Foo.t Foo/Changes Foo/MANIFEST Pure Perl モジュールのスケルトンを作成する (オブジェクト指向インタフェース) オブジェクト指向的なモジュールなどで、シンボルを export する必要がない場合は --skip-exporter オプションを指定しておくと、余計なコードがスエ

複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに

ヒアドキュメントっていうのはアレだよ！ なんかcgiとかのPerlスクリプトの中身を見たことあるひとなら知ってると思うけど、 htmlを出している部分がこんな感じになってたりするやつだね！ my $i = 666; print<<"_EoD_"; <div> あなたは $i 番目の勇者様でス…！ </div> _EoD_ これで _EoD_ までをprintしたりできるから、 printいっぱい並べなくていいしべんりな感じなんだけど、 使いすぎると今度はPerlのソースコードがなんかヤな感じになってきませんか！ ぼぼぼくだけですか！ そこで… こんな関数を作ってみたんだけど…！ ヒアドキュメントをちょっぴりキレイにするやつ： eatHere() sub eatHere { my $target = shift; my $sym = shift; my $indent = shift; $t