2009年06月15日07:00 カテゴリLightweight Languages perl - use utf8; #って何だ? id:otsuneに建設予定フラグがたてられていたので。 冬通りに消え行く制服ガールは、夢物語にリアルを求めない。 - subtech Perl の utf8 関係が未だ全く理解できない。わからないことがわからないので整理 use utf8はいつフラグをたてるか use utf8 しててもフラグたたないことがある…… これは、以下の実例を見ていただくのが一番よいだろう。 #!/usr/bin/perl use strict; use warnings; use utf8 (); sub check_flag{ my $str = shift; print qq("$str" ), utf8::is_utf8($str) ? 'is' : 'IS NOT',

2007年04月09日16:15 カテゴリLightweight LanguagesTips perl - パッチなしでパッチする Perlに限らず、動的に名前空間を書き換えることができる言語ならコンセプトはパクれるはずのtips. 状況 人様が書いたモジュールにバグ発見! バグ直した パッチも送った でも作者が$VERSION++してくれない さあどうする? オレバージョンのモジュールをつなぎでつかう? でも標準でないものをイントールするのはいやん サブクラス作ってメソッドをオーバーライドする? でも問題のモジュールが継承をサポートしているとは限らないし そもそも問題のモジュールOOじゃなかったりもするし 代替モジュールを書いてCPANにうp? -- i.e. JSON::* でも元々のモジュールがあまりによく使われているし うpは簡単でもサポート大変そうだし.... 実例 See Al

2009年06月04日23:45 カテゴリTips API - Twitterfeed から Hatena::Bookmark Web Hookへ 今まで本blogのTwitterにおける更新通知は、ttwitterfeedでやっていたのだけど、これを期にはてなブックマークの Web Hook 経由に切り替えました。 twitterfeedだと、一時間ごとの確認なので、本blogへの投稿がtwitterに投稿されるまで最大一時間かかるのですが、これだとセルクマした瞬間に投稿が行われるので反映がずっと速くなります。 Source: #!/usr/env/bin perl use strict; use warnings; use utf8; use CGI; # use Net::Twitter; - prereqs too heavy! use LWP::UserAgent; use UR

2009年05月13日16:45 カテゴリTips tips - Webサーバーの負荷テストならまずab だめじゃん。 WEBアプリ開発に便利な機能＆負荷テストツール集:phpspot開発日誌 abがないじゃん。 abとは何かというと、apacheに標準でついてくる負荷テストツールの名前。apacheが入っている環境であれば、まず間違いなく入っているはず。 引数なしだと、help表示。 ~% abab: wrong number of arguments Usage: ab [options] [http[s]://]hostname[:port]/path Options are: -n requests Number of requests to perform -c concurrency Number of multiple requests to make -t timelimi

2009年05月13日13:30 カテゴリiTech findを極めたかったら、statを押さえよ find(1)ねたというのは、定期的にblogosphereを賑わせるものだし、それはそれでよいし、私自身いくつか書いているのだけど.... findを極める！ - IDEA*IDEA 〜 百式管理人のライフハックブログ 〜 タグ「find」を含む新着エントリー - はてなブックマーク 404 Blog Not Found:perl - the best friend of find(1) 404 Blog Not Found:勝手に添削 - find(1) さすがに何年もblogosphereにいると、いいかげん見飽きてくる。ましてや「極めたい」ともなると、findばっか見ていても絶対無理なのだし。 というわけで、findとは何かを改めて説明したあと、その背後にあるstatを抑えてみること

2009年02月13日16:00 カテゴリTipsLightweight Languages perl - Mac OS X - perlをDIYする 気がつかなかった。 bulknews.typepad.com: Mac OS X Security Update 2009-001 might break your Perl (CPAN) A couple of my friends on IRC have told me this, and since I'm using 10.4.11 I couldn't verify, but the latest Mac OS X Security Update 2009-001 apparently breaks your Perl, if you are using Mac OS X 10.5 (Leopard) and are using

2009年02月14日08:00 カテゴリLightweight Languages perl - new module - Class::Axelerator Proof of Conceptだった 404 Blog Not Found:perl - no accessor; # だって遅いんだもん を元に、Class::Axelerator というモジュールをreleaseしました。 /lang/perl/Class-Axelerator/trunk - CodeRepos::Share - Trac Dan Kogai / Class-Axelerator - search.cpan.org http://www.dan.co.jp/~dankogai/cpan/Class-Axelerator-0.01.tar.gz Enjoy! Dan the Perl Monger NAME

2009年02月10日01:00 カテゴリLightweight Languages perl - open my $fh, "comand |"; # はモダンじゃない モダンPerl入門 牧大輔 「モダンPerl入門」発売記念ということで、同書を補足するentryを。 同書でちょっと残念だったのが、[5.2 外部コマンドの実行]。あまりモダンではないのだ。 P. 141 system("/sbin/wget", "http://example.com"); これはいいのだが、以下がちょっとまずい。 my $output = `/bin/ls tmp`; open(my $fh, '| cat -v'); これ、何がまずいか、というと、コマンド実行の際に/bin/shを使ってしまうのだ。そのおかげでcommand < from > to 2&>1のようなリダイレクトも使えるなどの利点もあ

2009年01月31日01:00 カテゴリLightweight LanguagesMath アルゴリズム - 同じ文字列のn回繰り返しをlog n回で作る方法 これなのですが.... 同じ文字列のn回繰り返しを作る最速の方法を探求してみた - muddy brown thang ちょっとした事情により、ある文字列のn回繰り返しを作る関数 (PHPでいうところのarray_repeat(), Perlで言うところの「"..." x n」、RubyやPythonで言うところの「"..." * n」) を高速に実装しなければならない状況に遭遇したのでベンチマークをとってみたところ、その結果がとても新鮮で驚いたので、これを共有しつつもダメ出ししてもらえないかなーと思って晒してみることに。 なぜかもっとシンプルな奴がなかったので。 以下、比較。初期値はIEにあわせてあります。Firefox/Saf

2008年10月24日22:30 カテゴリLightweight Languages perl - Scalar::Util::dualvar() 久しぶりにPerlの話題。 sinkin' in the rain - Perlの==とeq つまり、eqは純粋に「文字列として比較した時に一致するか」を返しているみたい。言いかえれば、eqこそ常に、文字列に暗黙的に変換（キャスト）をかけてから比較しているみたい。 s/みたい//g#でおk というのはさておき、こんなことも出来ますよ、という話題。 一目見れば、何をしているかおわかりいただけるかと。 use strict; use warnings; use Scalar::Util qw/dualvar/; my $forty2 = dualvar 42, 'forty two'; print "$forty2\n"; print $forty

2008年07月02日23:00 カテゴリLightweight Languages perl - デフォルト値のperlらしい指定法 Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] これでもよいのだけど、さらに恰好つけるとよりperlらしくなるので。 デフォルト値の扱い。 - サンプルコードによる Perl 入門 Scalarによるデフォルト値 sub num{ my $num = shift; # .... } ここは sub num{ my $num = shift || -1; # .... } の方がわかりやすい。0または''を入力値、すなわち非デフォルト値として扱いたい場合のみ、 sub num{ my $num = shift; $num = -1 if not defined $num;

2006年12月07日16:30 カテゴリLightweight Languages perl - DateTime->now(time_zone => $obj) # better practice 私はあまりDateTimeは使ってないのだけど、better practiceを見つけたと思うので。 [perl] DateTime->now(time_zone => 'local')って激遅 - おいぬま日報(不定期) (2006-12-06) Perl界隈の日付操作モジュールのデファクトスタンダードであるDateTimeですが、今まで「タイムゾーンなんてシステムで定義されているものから勝手に取ってきてほしい」という理由で DateTime->now(time_zone => 'local'); なんてことをしてたのですが、これが激遅なことが発覚しました。 二行で書くと、以下のとおり。

2008年10月06日22:30 カテゴリTips Tips - Macをルーターに あれ?この記事で、なんで記事本体はおろかはてブのコメントにも関連エントリーにもアレが登場しないかと、現在ホテル軟禁中の私に引っかかったので。 元麻布春男の週刊PCホットライン 筆者の場合、出張時はホテルの部屋で原稿を書くPC(最近はMacBookが多い)、イベント会場等で持ち歩くPC、iPAQやiPod touchのようなPDAの、計3デバイスを持ち込む。これら3つのデバイスでインターネット接続を共有するために、無線LANアクセスポイント機能を備えたルーターがあると便利だ。実は、Macにはもれなく「インターネット共有」がついてくる。v10.2の頃から標準装備なのでかなり前からである。LANの口が少ないときなど、よく私は「ルーターやります」と言うのだが、未だに驚く人が結構いるので以外と知られていないようだ。

2008年08月25日06:30 カテゴリTipsiTech Mac OS X Leopard - dynamic_pager を骨抜きに Mac OS X 10.5.1 Leopard アップルコンピュータ OS X で一ついやなものは、swapping. もちろんパートナーでなくて、実記憶と仮想記憶の、ね。 現在私が使っている MacBook Pro には、4GBのRAMが乗っている。滅多なことではswapしないと思いきや、する時にはする。特に VMWare Fusion を使うようになってからは。VMWareが提供するのは仮想マシンだけど、仮想マシンも物理メモリーを必要とするのだし。 問題は、メモリーを食っているアプリケーションを終了しても、一度 swap out されたプロセスたちが実メモリーには戻ってこないこと。んで、一つでもswap outされているプロセスがあれば、/var/

2008年07月06日19:30 カテゴリLightweight Languages perl - 暗黙的な参照 # @_ と $_ Good Question! @_の要素の$_[0],$_[1]等は、格納するべきアドレスが可変！ - 燈明日記 なぜ、こんな仕様にしたのだろうか･･･。 Good Question だけあって、Good Reasons もきちんとあります。 @_と$_の秘密 まず、事実を再確認しておきましょう。 Perlにおいて、引数を格納する配列@_は、常に参照(reference)です。値(value)ではありません。 これが何を意味するかというと、@_への書き込みが、呼び出し元への書き込みとなるということです。 実際に様子を見てみましょう。 [Run via CodePad] sub inc { ++$_[0] } my $a = 0; print $a, "\n"

2008年07月05日02:30 カテゴリLightweight Languages javascript - のみでQRCode! # thanx, google! [を] Google Chart API で QRコードも生成してくれるようになった新たに QRコードを生成してくれるオプションができました。 - QR codes (Developer's Guide - Google Chart API) http://code.google.com/apis/chart/#qrcodes ほう、それはめでたい。 「QRコードブログ」とかが手軽にできそうです。 というわけで、手軽につくってみた。 Demo: Size: Text: Encoding: ラク過ぎですなあ。むしろ漢字まじりの場合、Shift_JISにしないとケータイで読む時文字化けするというのが一番引っかかったところだったり

2008年07月05日01:30 カテゴリLightweight Languages perl - tie()って何をtieするの? 私はタイをまとうのがだいっきらいですが、Perl 5の中で一番好きな関数がtie()だったりします。 tie関数とは - 燈明日記 すると、裏で処理が動き、オブジェクトをコンストラクトしたり、とある処理結果が参照できたり、代入したものに対応したものを格納出来たりする。 というわけで、tie()について語っておくことにしましょう。 tie()とはなにか? ずばり、「オブジェクトではない、perlの組み込みデータタイプを裏でオブジェクト化する仕組み」のことです。それがなぜtieと呼ばれるかと言えば、変数を指定されたクラスに結びつけるから、です。 論より証拠、実際に見てみましょう。 use strict; use warnings; { package MySca

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

2008年05月10日15:00 カテゴリLightweight Languages perl - There's more than one way to die いよいよ来週はYAPC::Asia::2008ですが、Hotel DANは本日から開業。我が家では本日から20日までが「YAPC旬間」です。 というわけで、その間は少なくとも一つはperlがらみのentryにしていく所存です。 で、第一回はいきなりdieの話題です。 開発日誌 pp-perl: Perlのエラー処理プログラムを停止して、メッセージ（LIST）をSTRERRに出力します。 間違っていませんが正しいとは言えません。 die = throw die()とは何か? まずは、以下のコードをご覧下さい。 [Run via codepad] eval { my $zero = 0; my $dead = 1 / $zero;

2008年06月18日16:00 カテゴリLightweight Languages javascript - Yet Another Base64 transcoder すでにJavaScriptによるBase64 Encodingの実装は複数あるのですが、これまた気に入った車輪がなかったので再発明。 dankogai's js-base64 at master - GitHub Demo Textにはencodeすべき文字列を、Base64にはdecodeすべき文字列を入力 TextBase64 (URL Safe ) Roundtripiframe w/ data: Discussion まず車輪の再発明に至った理由ですが、 Firefox 2以降とSafari 3.1以降には、window.atobならびにwindow.btoaが実装されているので、使える時にはこれを使いたかった。