MP3::Tag MP3のID3を操作するMP3::Tagというモジュールを使います。PODをざっと見ても使い方がいまいちよくわからないので、メモしておきます。 MP3::Tag - Module for reading tags of MP3 audio files - metacpan.org ID3そのものについてはWikipediaのID3タグあたりを参照。 使い方 最小限の実用的な使い方の例 use MP3::Tag; use LWP::UserAgent; my $ua = LWP::UserAgent->new(); # MP3の画像データを取ってくる my $pic = $ua->get("http://tn-skr3.smilevideo.jp/smile?i=8708446")->{_content}; my $mp3 = MP3::Tag->new('tmp.mp3'
Data::ObjectDriverは現時点でのHEADです。 問題 Data::ObjectDriver使った事無い身で言うのもなんだけど BLOBな型のカラムをD::ODのSQLiteを使ってるとハマる。 DBD::SQLiteでバイナリ扱うには CREATE TABLE hoge ( name BLOB ); というBLOB属性のカラムに $sth->bind_param(1, pack('C', 10), DBI::SQL_BLOB); とやるわけですが、D::ODではこの処理をinsert/replace/updateでしかやってない。 しかもupdateはprimary keyのとこは ## Bind the primary key value(s). for my $val (@{ $stmt->{bind} }) { $sth->bind_param($i++, $val)
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
最近は裏方的なシステムばっかり作ってるような気がするので、必然とunixコマンド使うことが多い。 でうちの会社では例えばperlで作っていたりしても結局unixコマンドを使いまくってる。# 例えばこんな感じ system "/path/to/script"; # 戻り値がほしい場合はこんな感じ my $res = `/path/to/script`;とこんなのが多いので、これならshellで書いたほうがいいんちゃうかとかも思わないでもないが、それはともかくとしてこういう処理が多いので、外部コマンド実行時に便利なモジュールはないかと探っていたところIPC::Runなるモジュールがあるので(とは言いながら昔から存在は知ってたのだが)、とりあえず使えそうか試してみる。あんましメジャーじゃないのかそんなにこのモジュールに関する情報もほとんどないので、ねたとしてはちょうどいいんじゃないかと。 依存モ
blosxom関連の記事を辿っている時に、以下の記事を見つけました。 空繰再繰 - Perl で文字列を HTML Entities に変換する方法 まず述べなければならないのは、HTMLにおける日のような文字参照の形式は数値文字参照《numeric character reference》と呼ばれるものであって、実体参照《entity reference》ではない、ということ。(詳しくは一般実体参照と文字参照を参照) で、記事を拝見して、Unicode::Escapeも見てみたのですが、このモジュールは元々JavaScriptのUnicodeエスケープ形式を扱うものであるようで、それを更にHTMLの数値文字参照変換のために使うというのは、ややオーバースペックなような気がしました。 答えの1つは、記事が参照していたはてなでの質問でも既に述べられています。 $str = '日本
NAME DESCRIPTION Verbatim Paragraph Command Paragraph Ordinary Block of Text The Intent Embedding Pods in Perl Modules Common Pod Pitfalls SEE ALSO AUTHOR NAME perlpod - plain old documentation DESCRIPTION podから何かへのトランスレーターはpodファイルをパラグラフ毎に読み 込み、それを適切な出力フォーマットへと変換します。パラグラフには 以下の三種類あります。 <verbatim|/``Verbatim Paragraph''> command ordinary text Verbatim Paragraph そのままのパラグラフ。これはインデント(つまり、スペースかタブで 始まって
後半部分が重要で、未来の挙動が現在の値だけで決定され、過去の挙動と無関係である ということです。 さて、実例です。たとえば次の文章を考えてみます。 「通信販売大手セシールは9日、生命保険の販売に本格参入する方針を明らかにした。」 まず形態素解析するとこんな感じになります。 通信 名詞,サ変接続,*,*,*,*,通信,ツウシン,ツーシン 販売 名詞,サ変接続,*,*,*,*,販売,ハンバイ,ハンバイ 大手 名詞,一般,*,*,*,*,大手,オオテ,オーテ セシール 名詞,固有名詞,組織,*,*,*,セシール,セシール,セシール は 助詞,係助詞,*,*,*,*,は,ハ,ワ 9 名詞,数,*,*,*,*,9,キュウ,キュー 日 名詞,接尾,助数詞,*,*,*,日,ニチ,ニチ 、 記号,読点,*,*,*,*,、,、,、 生命 名詞,一般,*,*,*,*,生命,セイメイ,セイメイ 保険 名詞,一般
2008年06月30日04:00 カテゴリLightweight LanguagesTips perl - use Carp; # warn() と die() だけじゃなくて 以下のエラー処理の方法にちょっと口を挟みたくなったので。 エラー処理を行う。 - サンプルコードによる Perl 入門 warn() vs. die() まず、warn()の使い方。エラーに対して使ってはいけません。warnはその名の通り、あくまでもエラーではなく警告です。エラーの際にはdie()を使わなければなりません。 警告とエラーの違いですが、警告は「続けて処理してもいいけど、これはあなたの意図ではないかもしれません」という場合、エラーは「このままでは処理を続けられません」という場合です。 たとえばperlの場合、抜けた引数はundefなので、数値としては0、文字列としては''として解釈されます。それらをデフ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く