已通过安全加密检测 如果没有自动跳转，请点击下方按钮前往 点击进入 360安全卫士提供技术支持 Copyright ? 1998 -2020. All Rights Reserved.
安全加密检测
已通过安全加密检测 如果没有自动跳转，请点击下方按钮前往 点击进入 360安全卫士提供技术支持 Copyright ? 1998 -2020. All Rights Reserved.
Acme::JS::Arguments 作った - IT戦記
ネタは はじめての coderepos で arguments::callee 初体験 - TAKESAKOのはてな出張所 のパクリで、でも XS 書けないので中で Devel::Caller 使ってます。 arguments で引数配列のリファレンスが帰ってくる arguments->callee で自分自身のコードリファレンスが帰ってくる って感じです。 コード package Acme::JS::Arguments; use strict; use warnings; use Devel::Caller qw(caller_args); use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(arguments); sub arguments { bless [ caller_args(1) ], 'Acme::JS::Argu
cpan コマンドでモジュールをインストールするときに Makefile.PL の引数を設定する - IT戦記
以下のようなことで困っていました あるモジュールを入れるときに、 Makefile.PL に引数を渡してあげなければならない。 $ perl Makefile.PL INC=-I/俺の/includeでも、 cpan コマンドでやると全自動でやっちゃうので Makefile.PL に直接引数を渡せない で、いろいろ調べて 以下の方法で出来ました $ sudo cpan cpan > o conf makepl_arg INC=-I/俺の/include cpan > install Hoge::Fugao conf は cpan コマンドの設定を変えるコマンドですが、 o commit しなければ cpan シェル再起動で設定は元に戻るので安心ですね。
403 Forbidden
We're sorry... ... but your query looks similar to automated requests from a computer virus or spyware application. To protect our users, we can't process your request right now. We'll restore your access as quickly as possible, so try again soon. In the meantime, if you suspect that your computer or network has been infected, you might want to run a virus checker or spyware remover to make sure t
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
CPAN AuthorならShipIt！
さきほどHTTP::MobileAgentの0.27をCPANにアップしました。 HTTP::MobileAttributeがものすごい勢いで開発がすすんでいる今、 なんとなく寂しい今日この頃なのですが、とりあえずDoCoMoのguidに対応した次第です。 で、話の本題はこっちじゃなくて、今回のCPANアップでShipItを初体験しました。 ShipItはなにかってーと、svnやsvkやgit(?)などで管理しているCPANモジュールをさくっとCPANへアップするためのモジュールです。 どうやるかっていうと、ShipItがインストールされててかつ設定ファイルなどがちゃんと設定されていれば、コマンドラインでshipitと打つだけ！あとはShipItが勝手にリポジトリに適切なリリースタグをつけてくれて、CPANへのアップまでやってくれちゃうというすばらしいものです。 Brad++ とりあえずイ
smart match 演算子は perl5.10 でつかえるだろうが - TKSKを作る人のネタ帳 〜人格崩壊〜
id:dankogai/kogaidan も、id:lestrrat も、いったいなにをとちくるっているんだ。Perl5.10 がリリースされた今、smart match 演算子を使わずして、どうする。詳しくは、perlsyn を熟読せよ。 use strict; use warnings; use Test::More; sub orig { ( $_ eq 'XXX' || $_ eq 'YYY' ) ? 1 : 0 } sub smart { ( $_ ~~ [ 'XXX', 'YYY' ]) ? 1 : 0 } my @cases = qw/XXX YYY ZZZ/; plan tests => 1*@cases; for (@cases) { is smart(), orig(), $_; }
ゆーすけべー日記: Perl から YouTube の新API を使って動画をアップロードする
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
Perl (5.8) での文字列の内部表象について返信 - daily dayflower
UTF8 フラグあれこれ - daily dayflower について nobuoka さんよりツッコミをいただきました。 nobuoka 2008/03/11 21:15 こんにちは。”[Perl] Perl の Unicode 対応について” のエントリでトラックバックさせて頂きました nobuoka です。 内部表象 (内部形式: internal format) について気になる点があったのでいろいろ調べていたのですが、「内部形式は UTF-8 ではなく Unicode コードポイントをバイナリ化したものである」という結論に達しました。たとえば「é」という文字は内部形式では ￥xE9 というバイナリデータとして保持されているという結論に達しました。それは utf8 フラグが付いていても付いていなくても同様です。 つまり、このエントリで述べられている (A) 文字列（内部表象: UT
夙川アトム モジュール - D-6 [相変わらず根無し]
夙川アトム モジュール この間のめちゃいけを見て夙川アトムに惚れた人も多いと思いますが、なんか今日急にルー語ばりに日本語を夙川アトム風に変換するモジュールを書きたくなったので書いてみた。そして先ほど無謀にもCPANにリリースしてみた。 正直まだ全然変換自体には自信がないんだけれども、せっかくcodereposに入れたので、パッチをくれとは言わん。せめてテストを足してくれ！どういう変換が望ましいのか、いっぱい台詞をいれてくれ。なるたけそれに添えるようにテストしてみるよ。 （追記 2008/03/15: @bayashiさんのバージョンがとまったらしいので暫定版をうちのサーバーにあげておいたよ） カテゴリ 開発 2008年3月12日 18:18 D | ブログ記事のURL | コメント(0) | トラックバック(0) |
ハッシュに値を振り分ける時のコード - D-6 [相変わらず根無し]
ハッシュに値を振り分ける時のコード 例えばCSVなファイルを読み込んで、それをハッシュの中に展開、格納と言った感じの動作をPerlで行いたかったとします。例えば 1,2,3 と言った行を my %hash = ( 'col1' => 1, 'col2' => 2, 'col3' => 3 ); のようなハッシュに展開する関数が欲しいわけです。皆さんはこれをどういう風に実装しますか？ぱっと思いつくのはforループですよね my @colums = ('a', 'b', 'c'); my @values = (1, 2, 3); # もちろん実際にはsplit(/,/, $line)とか、CSVパーサーを使う my %h; for (0..$#columns) { $h{ $columns[$_] } = $values[$_]; } 実はこのようなCっぽい書き方はPerlでは大概遅いです。D
Apache::Test事始め - D-6 [相変わらず根無し]
Apache::Test事始め 年末前後からApache::Testで真面目にテストを書き始めている。 ところが全くドキュメントがないんだね。いや、あるんだけど、携帯の機能を使いたいだけなのにあの厚いマニュアル読むの？みたいな感じで。まぁというわけでとにかくざくざくっとドキュメント読んでテスト書いてたらようやくなんとなく分かってきた。この間ある程度他人にも説明できたので自信ついたしw Apache::Testはmod_perlハンドラをテストするときに使う。ディストリビューション等でmod_perlをテストしようと思うとApache自体を立ち上げたりなんだりしなければいけなくて「一体どうテストすればいいんじゃ？！」となりがちだが、Apache::Testを使うと、テスト用httpd.confの生成テスト用のapacheの起動／停止mod_perlハンドラ上で動かしたTest::More等の
海外のPerlerの情報は - Charsbar::Note
とりあえずmiyagawaさんのブクマ（あるいはmiyagawaさんのお気に入り）を追いかけておくのが適度にフィルタがかかって便利なわけですが、それでは物足りないという熱心な人にいくつかのポインタを紹介してみる。 初級編 http://use.perl.org/ http://www.perlmonks.org/ http://perlbuzz.com/ ちなみにタイトルとリンクだけでよければPlaggerでとってきたものをhttp://twitter.com/perlnews（とirc.perl.orgの#news）に放流してます。 中級編 http://www.nntp.perl.org/group/ http://london.pm.org/pipermail/london.pm/ さらに海外のPerlerを追いかけたければブログよりＭＬを見た方がいいと思います。nntp.perl.
Digest認証メモ - 日向夏特殊応援部隊
Digest認証をPerlで書いてみる私的なメモですよ。 Digest認証とは Digest認証 - Wikipedia ダイジェストアクセス認証スキーム 辺りを読めば分かります。説明は割愛。 サーバー側で事前に行うべき事 まずはブラウザのパスワード入力プロンプトに出て来るrealmを決めておく事と、realmに対して server_secret = MD5(username ":" realm ":" password)と言った値を予め計算しておけば、生のパスワードを保持する必要が無くなる。*1 前提 チャレンジリクエストのレスポンスヘッダで返ってきたWWW-Authenticateの値 WWW-Authenticate: Digest realm="minnaniha naisyo dayo", qop="auth,auth-int", nonce="Lve2pFLu3BGfqf9E0
Text::MeCab 0.20005 - アップグレードしてください - D-6 [相変わらず根無し]
Text::MeCab 0.20005 - アップグレードしてください 前のエントリで調査した結果、Text::MeCab に深刻なメモリーリークが発見されました。 メモリを解放する処理自体は問題なく呼ばれていたのですが、そのタイミングがperlプロセスが終了する時点まで待たされている状態でした。最終的には確実に解放されていたのでなかなか気づかなかったのですが、node->nextやnode->prevのような関数を呼ぶとperlが終了するまでメモリが解放されませんでした。特に形態素解析する文章が巨大な場合、これは一瞬でメモリリークとなり、問題が顕在化します。 先ほどアップロードした0.20005でこの不具合を修正してありますので、CPAN登録が済み次第アップグレードを推奨いたします。急いでいる場合はcodereposからも入手できます。 ちなみに最終的なフィックスの決め手はXML::Li
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Perlのmakeフェーズの挙動 - D-6 [相変わらず根無し]
Perlのmakeフェーズの挙動 いわゆるCPANモジュール形式で展開されているモジュールに対して一般的に行う以下の手順： perl Makefile.PL make make test make install # 以下はモジュール作成者のみが気にするであろう make clean make disttest make dist make manifest これがそれぞれ何をしているのかって案外しられてないのかもしれない。 perl Makefile.PL - これはMakefile.PLを単純に実行している。この中では一般的にExtUtils::MakeMaker、Module::Build、Module::Install等のモジュールが使用され、インストールに使うMakefileというファイルを作る。これはmakeコマンドが自動的に検知して、使用してくれる。ちなみにmod_perlで
Text::MeCabのメモリ管理（調査中） - D-6 [相変わらず根無し]
Text::MeCabのメモリ管理（調査中） Text::MeCabがおかしい。某社社内より報告アリ。毎度ありがとうございます。 で、すでに数時間そのコードとにらめっこしている。なぜ思い通りに動かないのかよくわからない。根本的な問題はわかった。Text::MeCab::NodeオブジェクトがDESTROYされるのがなぜかスコープを脱出した時ではなく、Global Destruction時のタイミングで起こっているのが問題。 どういうことかというと、Perlは２つのタイミングでガーベッジコレクションを行う。ひとつはステートメントとステートメントの間（スコープが変わる時も含む）、そしてもうひとつはPerlのインタプレタ自体がメモリから削除されるGlobal Destruction時。 現在のText::MeCabでは、以下のように$nodeオブジェクトをどんどん変更して行っても、さっきまで入っ
Windowsの(Cygwinの)PerlでDevice::USBをインストールしたときのメモ - （ひ）メモ
記憶で書いてるし、WindowsでPerl使うの初めてなのでスマートな方法じゃないかもですけどメモっておきます。 Cygwinをてきとうにインストール LibUsb-Win32 のFilter Driverをインストール libusb-win32-filter-bin-0.1.12.1.exe C:\Program Files\LibUSB-Win32\include\usb.h をCygwin的な/usr/include/usb.hにcp。 C:\Program Files\LibUSB-Win32\lib\gcc\libusb.aをCygwin的な/usr/lib/libusb.aにcp。ファイル名をlibusb.aにするのを忘れないように。 CPANから、Ingy döt Net / Inline - search.cpan.org をインストール Device::USBを入れるのに
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
https://juerd.nl/files/slides/2008dpw/unibp/index.html