2008年06月30日04:00 カテゴリLightweight LanguagesTips perl - use Carp; # warn() と die() だけじゃなくて 以下のエラー処理の方法にちょっと口を挟みたくなったので。 エラー処理を行う。 - サンプルコードによる Perl 入門 warn() vs. die() まず、warn()の使い方。エラーに対して使ってはいけません。warnはその名の通り、あくまでもエラーではなく警告です。エラーの際にはdie()を使わなければなりません。 警告とエラーの違いですが、警告は「続けて処理してもいいけど、これはあなたの意図ではないかもしれません」という場合、エラーは「このままでは処理を続けられません」という場合です。 たとえばperlの場合、抜けた引数はundefなので、数値としては0、文字列としては''として解釈されます。それらをデフ

2008年06月27日07:30 カテゴリLightweight Languages perl - Const released -- True Readonly 空前のXSブームにほだされたのか、気がついたら作ってました。 /lang/perl/Const/trunk - CodeRepos::Share - Trac @CPAN (coming soon) 一言で言うと、Readonlyを置き換えるモジュールです。 Readonlyをお使いなら、s/Readonly/Const/gで同じように動くはずです。 Readonlyはないすでだみあんなモジュールですが、実装にtieを用いているため低速です。 ところが、SVには、すでにREADONLY flagが用意されているのです。これを使わぬ手はありません。 実は、Perl 5.8以降では、Internals::SvREADONLY()とい

手元のWindowsマシンからActivePerlでリモートのFTPサーバに接続してみました。 use strict; use Net::FTP; my $ftp = Net::FTP->new("my.host.name", Debug => 0 , Passive => "true"); # 接続 $ftp->login("username", "password"); # ログイン my @dir = grep /^d/, $ftp->dir; # ←　フォルダ一覧をdirコマンドで取得 my @dir_names_full = @dir[2..$#dir]; # 　自フォルダと親フォルダ("."と"..")を除く。 my @dir_names_short = map { (split)[8] } @dir_names_full; # フォルダ名のみを取得 $ftp->quit; #

Unfortunately, I am unable to summarize the given document. The document contains only symbol characters and no discernible words or sentences that could be summarized. To provide a useful summary, a document needs to contain meaningful language that conveys information, facts, or ideas.Read less

いささか遅くなりましたが予告通り完全版の一覧を掲載します。このデータは基本的にYAPC直前、2008年5月15日時点でのものですが、抜けが判明したworemacxさんの分については先ほど目視で抽出しました。ほかの方のYAPC後の更新については反映されていませんのであしからずご了承ください。 ちなみに過去の選手権の結果はnipotanさんのサイトに掲載されています。 2006年度 2005年度 というわけで、あらためてなんちゃらかんちゃら出てこいや〜、とな。 モジュール数5個以上の部 過去二回の選手権ではモジュール数による分類はなかったのですが、この一覧のもとになっているCPANTSの仕組み上、モジュール登録数の少ない新しいAuthorの方が有利になる側面があるので、今回は本家CPANTSの分類にしたがってランキングを分けました。YAPC当日に発表したのはこのグループのベスト10です。表は、

YAPCでの発表の際、どんなプレゼンツールをつかおうかなーと考えていたのですが、 自分でつくるのも面倒になってきたので IngyのSporkを試しに使ってみたら、すげー簡単にできたのでご紹介。 まずはともあれSporkのインストール。 cpan> install Spork私の環境ではKwiki::Cacheがないよーとかおこられたので cpan> install Kwiki::Cacheも入れました。 インストールが終わったら、以下のようにするだけです。 $ mkdir presen; cd presen $ spork -new $ vi config.yaml # author_nameとかcopyrightとかPlugin使う場合はそれを設定 $ vi Spork.slides # プレゼン内容を書く $ spork -make # プレゼンHTMLの生成 $ spork -sta

2008年05月11日21:00 カテゴリLightweight LanguagesTips perl - 文字参照を(en|de)codeする すでに正解が書かれていますが、 [を] Unicode の16進数の実体参照を正規表現などで元に戻す pack と Encode::decode を使うと良いみたい。 はてなブックマーク - miyagawaのブックマーク / 2008年05月11日 それ HTML::Entities::decode / regexp でも chr(hex($1)) のほうがわかりやすくないかな 繰り返しておくだけの価値はあるので。 HTML::Entitiesを使う まず、HTML::Entitiesのdecode_entities()を使うという方法があります。これがベストプラクティスかな。 #!/usr/local/bin/perl use strict;

2008年05月08日04:00 カテゴリLightweight Languages perl - Encode 中級 以前書いた 404 Blog Not Found:perl - Encode 入門 は大好評でしたが、 ウェブで利用される文字コード、UnicodeがASCIIを上回る--グーグルが明らかに:マーケティング - CNET Japan UnicodeがASCIIを追い越し、World Wide Web上で最も多く利用されている文字コード体系になったとGoogleのシニアインターナショナルソフトウェアアーキテクトMark Davis氏がブログで述べている。 という時代に完全対応するには、入門以上の知識がちょっと必要になります。 例えば、本blogをホストしてくれているlivedoor blogの文字コードはEUC-JP。「時代はUnicode」だと言っても、こうした事情もまだ

dh-make-perl --cpan Acme::Lou --buildをしたらテストが通らなかったので、ちと調べてみた。 mecabをインストールして、辞書もとりあえずutf-8 のをいれた。 Acme::Louのデフォルトのエンコードも utf-8 にしたら、今までまったく変換されなかったのが 結構変換されてでてきた。 Acme/Lou.pmの18行目あたり #mecab_charset => 'euc-jp', mecab_charset => 'utf-8', 変換後の結果をよくよくみてみたら、どの結果も1つ目の単語がないので 118行目あたりのwhileをdoにして、 #while ($node = $node->next) { do{ 153行目あたりの対応する閉じ括弧にwhileをつけてあげた }while( $node = $node->next); 「結果、ちゃんと変換

autobox を使ったコードをここ最近よく見た ので、ややいまさらですが自分もすこし遊んでみました。autobox は Perl の組み込みのデータ (bless されていないスカラー、リスト、ハッシュほか) をファーストクラスオブジェクトとして扱うための機構を提供するモジュール(レキシカルプラグマ)です。 #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use autobox; use autobox::Core; use autobox::Encode; use autobox::Hatena::Feed; use autobox::Accessor; shift->b(qw/perl autobox/)->items->foreach(sub { $_[0]->title->encode('utf