Load Balancer ManagerにアクセスするPerl Module : blog.nomadscafe.jp
Load Balancer ManagerにアクセスするPerl Module mod_proxy_balancerのLoad Balancer ManagerにアクセスするPerl Moduleなんかも作っていたりするので、簡略版を載せてみる。 my $manager = BalancerManager->new( manager => 'http://proxy/lbman', balancer => 'test', # balancer://testの設定 ); $manager->enable('http://foo:8000'); #balancermanagerに登録してあるuri $manager->disable('http://foo:8000'); enable/disableの戻り値は画面のまんまで、Ok or Dis or Err。 該当しない場合は、「-」になる。
naoyaグループ - naoyaの日記 - Devel::StackTrace + クロージャでデバッグスクリーン
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
youtube-dl インスパイヤ - shag の日記
youtube-dl という Python script がありまして、firefox に flash player をインストールするのが面倒な僕にはぴったりのツールで、重宝して使わせていただいています。で、Python の勉強の為に source を眺めていたのですが、それだけでは寂しいので、Perl クローンを書いてみました。 #!/usr/local/bin/perl # # Perl test of youtube-dl Python script # http://www.arrakis.es/~rggi3/youtube-dl/ # # Original youtube-dl Copyright (c) 2006 Ricardo Garcia Gonzalez # # Permission is hereby granted, free of charge, to any p
[を] 裏で形態素解析器を使い長い文をそのままキーとしてWeb検索する
裏で形態素解析器を使い長い文をそのままキーとしてWeb検索する 2006-09-17-1 [YahooHacks][NLP] 今回の YahooHacks は、 長い文を検索キーとしてWeb検索をするというハックです。 一年前の検索会議[2005-09-30-3]で紹介しましたが、 今回ゼロから書き直しました。 サンプルコードが長くなってしまってすいません…。 (一時的にデモを置いておきます。そのうち消えます。ご了承下さい。 http://nais.to/~yto/tmp/yahoohacks-samp/hack_sentence.cgi 検索例：SEOの10ステップと...←うろ覚えタイトル ) ■■■長い文をそのまま検索キーとして Web 検索する どこかからコピペしてきた長い文をそのまま Yahoo! で検索しても ヒットしないことが多いです。 そういう場合
[を] Perl でファイルを後ろから読むの術
Perl でファイルを後ろから読むの術 2006-09-18-4 [Programming] 「Perl Hacks」、"HACK#20 Reading Files Backwards" より、 ファイルを後ろから読むの術。 File::ReadBackwards を使うだけ。手軽。 #!/usr/bin/perl use strict; use warnings; use File::ReadBackwards; my $file_name = shift @ARGV; my $bw = File::ReadBackwards->new($file_name); until ( $bw->eof ) { print $bw->readline; } なお、コマンドラインからなら tac が便利。タック！タック！ - [を] ファイルの先頭に追加するには[2003-07-07-2
Stacktrace付きdie : blog.nomadscafe.jp
Stacktrace付きdie ログをもう少し詳しくしたいなぁと思って調べていて、Error.pmのソースで気がついたんけど、 eval { die Foo->new; } warn ref $@; #Foo が使えるんですね。 Sledge::Plugin::DebugScreenとか、CGI::Applicationだと$self->{__stacktrace}で情報を保存しているけど、$@を利用してstacktrace情報を受け渡すことができるよな、と考えたので書いてみた package MyApp::Exception; use strict; use warnings; use base qw/Class::Accessor::Fast Exporter/; use Devel::StackTrace; use overload '""' => 'as_string'; __PA
Win32ではtaintモードでforkするとSegfaultする件 - Charsbar::Note
http://rt.cpan.org/Public/Bug/Display.html?id=17954 XSモジュールならともかく、Pure PerlのTest::WWW::Mechanizeがなんでnmake testするだけでそんなにこけまくるかと不思議に思っていたのですが、Win32ではtaintモード（perl -T）でforkするとセグるから、のようですね。Vanilla Perlに限らず、ActivePerl 5.8.7で perl -Te "fork"してもみごとにこけてくれました。orz テストスクリプトのshebang行から-Tを一掃することでセグは解決。まだちょっとテストが腐ってるっぽいですが（TODOまわりの処理がうまくいってないのかな）、その辺は追いかけるのが面倒になったのでスルー。
Plagger::Plugin::CustomFeed::Win32Registry - Charsbar::Note
IRCでなんぞおもしろげな話をしていたのでちょろっと書いてみた。レジストリをごにょって特定のディレクトリ内にあるキーをフィードに変換。diffとってどうこうというのもこのフェーズに入れた方がいいんだろうけど（assets内に前日のデータを保存しておいて比較、かな）、とりあえずproof of conceptということで。まじめにつくるなら値のタイプを見てバイナリかどうかを判定しないとマズイし、diffをとりやすいようキーとエントリの振り分けを変えた方がいいかもしれない。 ああ、PODにも書いたけど、これを使った結果、最悪マシンが動かなくなっても一切関知しませんので、何をやっているかわかる人だけ使ってくださいね。警告はしましたよ(笑) package Plagger::Plugin::CustomFeed::Win32Registry; use strict; use base qw( Pl
CPAN::Mini で CPAN のミラーをローカルに: blog.bulknews.net
CPAN::Mini で CPAN のミラーをローカルに DECON で話してきたネタですがちょっと詳しく。 飛行機やら電車の中やらでオフラインハックするときに（たまに）問題になるのが CPAN モジュールの不足です。「あぁ、このマシンにはあのモジュール入ってねぇ～」とかでハックが滞るのは萎えます。というわけで minicpan。CPAN::Mini というモジュールで、CPAN モジュールの最新版だけを持ってきてミラーをつくることができます。 導入は簡単で、CPAN から install CPAN::Mini すると minicpan というコマンドが付属してきます。コマンドラインから使うには、 > minicpan -r http://ftp.funet.fi/pub/languages/perl/CPAN/ -l ~/minicpan とかすれば finet から HTTP で同期で
no warnings 'uninitialized'なんてしちゃいけません - Charsbar::Note
ストロング弾が変なことを言うのはいつものことですが、こいつは著書でtaintチェックしろと言う人の言葉とは思えませんなあ。 no warnings 'uninitialized'; これが一番基本的な対策になります。 http://blog.livedoor.jp/dankogai/archives/50622749.html こういうのは対策とは言いません。こんなことをするくらいなら最初からuse warningsしない方がましです。perl 5.6以前の世界になりますが、これはDamianセンセもPerl Best Practicesの中で認めていること。日本語版は持っていないので英語版から引っ張ってくると(p.432) Note that it may still be appropriate to comment out the use warnings line when you
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
404 Blog Not Found:perl - no warnings 'unintialized'
2006年09月08日05:00 カテゴリLightweight Languages perl - no warnings 'unintialized' はてぶ経由でCharsbarさんからも指摘あり。 [を] not defined とヒアドキュメント 昔はそうやっていたのですが、「use warnings」を使い始めたら、 警告 ("Use of uninitialized value ...") が出るようになったので、 いつも入れているのです…。これまたPerlの世界ではTMTOWTDIな対策があるのだけど、いい機会なのでここでその対策をまとめておきます。 no warnings 'uninitialized'; これが一番基本的な対策になります。Scope単位で有効なpragmaなので、 use warnings; sub foo{ no warnings 'uninitiali
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で作るモバイルサイトのコツ：第2回：CodeZine
はじめに 若い世代の女性を中心にデコメールが注目されています。 デコメールとはNTTドコモのFOMA900iシリーズから導入された簡易HTMLメール機能で、HTMLメールならではの文字修飾、画像の埋め込みなどが可能です。これらの機能を使えば、ただのテキストのメールよりも個性的でかわいいメールを送ることができるので、それが人気につながっているようです。 デコメールの仕様は下記で公開されています。NTTドコモ 『作ろうiモードコンテンツ：デコメール』 本稿ではCPANモジュールのMIME::Liteを使ったサンプルを用いて、デコメールの基本的な仕様について解説します。 ※CPANについては、第1回を参照してください。対象読者PerlでCGIアプリケーションを作成したことのある方。CPANモジュールを使用したことのある方。携帯サイトでデコメールを配信しようとされている方。 必要な環境 Perl
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
[を] 日付文字列のencode/decode
日付文字列のencode/decode 2006-09-04-1 [Programming] 自分用メモ。 とある用途に、日付っぽい文字列を手軽に可逆変換する方法を模索中。 モジュールなしで済ませたい。 #encode(aiueo) perl -e '$n=shift;@k=split("","aiueo");while($n > 0) {$r=$n%5;$n=int($n/5);print$k[$r]};print"\n"' 200607011 #decode(aiueo) perl -e '%h=("a"=>0,"i"=>1,"u"=>2,"e"=>3,"o"=>4);$n=shift; for(reverse split("",$n)){$sum*=5;$sum+=$h{$_}};print"$sum\n"' iuaiioeueuao #encode(16) % perl -
Unknown::Programming - 何故Perlなのか。
なんで僕はこうもPerlが好きなんだろう。 そして何故PHPが好きになれないんだろう。 前に「PHPがどうにも好きになれない理由 - Unknown::Programming」というエントリを書いたけど、なんていうかもしあの不満点が全部解決したとしてもおそらくPerl程好きになることは無いと思う。 やっぱり良くも悪くも初めて真面目に取り組んだのがPerlという言語だったからなのかなぁ。 専門学校時代にはC,C++,VBをやった。会社入ってからはJava(iアプリ)をちょっとやった後にWEBアプリケーション開発にまわされた。 そこで初めてPerlを触った。 初めて触った時には「なんだこのクソ言語」と思ったものだ。 Perlでやった初めての仕事は地獄だった。本当に辛かった。 水も何も持たずに砂漠のど真ん中にいきなり放置されたような感じだった。 まず誰も何も教えてくれなかった。先輩は皆忙しそうで
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Client Challenge
2006/09/01 - memo - unknownplace.org