{perl,ruby} -nle 'print if /start/../end/' : 404 Blog Not Found
2006年12月22日19:00 カテゴリLightweight Languages {perl,ruby} -nle 'print if /start/../end/' アルファギークでも知らなかったというのは、不思議でもあり当然のようでもあり。 naoyaグループ - naoyaの日記 - if /regexp/../regexp/ Perl で正規表現を .. すると、その間に含まれる文字列という意味でマッチさせられる。 % w3m -dump_source http://www.yahoo.com/ | perl -nle 'print if /^<style/../<\/style>/' とするとこれ、実に由緒正しい使い方で、たしかまだperlがhashすらサポートしていない頃からあったと記憶しています。なにしろsed/awkが起源ですから。 NAME operator - se
perl - Tie::Array::Pack 0.01 Released! : 404 Blog Not Found
2006年12月22日07:00 カテゴリLightweight Languages perl - Tie::Array::Pack 0.01 Released! これを見ていたたまれなくなったのでこさえました。 みかログ: Mathematicaプログラミング 100万要素で0.4秒くらい．1000万要素にしたらスワップが入ってしまいしばらく待っても終わらなかったので中止． Tie::Array::Pack at CPAN (will be available soon) http://www.dan.co.jp/~dankogai/cpan/Tie-Array-Pack-0.01.tar.gz (available now!) NAME Tie::Array::Pack - An array implemented as a packed string SYNOPSIS use Tie
perl - DateTime->now(time_zone => $obj) # better practice : 404 Blog Not Found
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'); なんてことをしてたのですが、これが激遅なことが発覚しました。 二行で書くと、以下のとおり。
perl - 継承を使いたいワケ : 404 Blog Not Found
2006年12月05日09:30 カテゴリLightweight Languages perl - 継承を使いたいワケ おっとっと。というわけで元記事は直したのだけど、あえて継承を使いたかったのにはワケがある。 subtech - Bulknews::Subtech - MobileAgent おしゃれでもないし、そもそもこのコードでは動かない。 無理やりかけばこうなるか。 package MyMobileAgent; my $i; sub new { my $class = shift; my $self = HTTP::MobileAgent->new(@_); my $pkg = __PACKAGE__ . "::". $i++; no strict 'refs'; @{$pkg."::ISA"} = (ref $self, __PACKAGE__); bless $self, $p
perl - 複数パッケージを含むファイル : 404 Blog Not Found
2006年12月02日03:30 カテゴリLightweight Languages perl - 複数パッケージを含むファイル ついでなので、perlのpackageについて。 odz buffer - Perl は 1ファイルに複数のパッケージを書けるはず・・・ 違いますよ、と突っ込もうと思ったけど、自信がないので確認(おぃ)。 Perl5におけるpackageというのは、単なるnamespaceの宣言に過ぎず、それ以上でもそれ以下でもありません。package Foo;というのは、「このlexical scopeにおけるnamespaceはFooである」という宣言なのです。なので、 ちなみに HTTP::Proxyの SYNOPSIS なんかみると、 { package FilterPerl; use base qw( HTTP::Proxy::BodyFilter ); # sni
Error Messageにおける最もシンプルなXSS回避法 : 404 Blog Not Found
2006年12月02日04:30 カテゴリLightweight Languages Error Messageにおける最もシンプルなXSS回避法 404 Blog Not Found:perl+javascript - はてブと短縮URLのMashupのバグフィックス。 技術メモ帳 - dankogaiさんのアプリのXSS エラーメッセージを出力するときに HTMLエスケープがされてなかった。 見落とすところだった。こういう場合は、TBないしCommentなど、元記事から直接見える形で報告して欲しい。 そもそもtext/htmlとして解釈されているのはおかしいと思ってheaderを見たら、 % HEAD 'http://u.dan.co.jp/r.cgi/<script>alert('easy%20xss');</script>' 500 Internal Server Error Co
perl, python & ruby - ord() vs. Unicode : 404 Blog Not Found
2006年11月26日02:45 カテゴリLightweight Languages perl, python & ruby - ord() vs. Unicode というわけで、ord篇はこちら。 404 Blog Not Found:perl, python & ruby - chr() vs. Unicode とりあえずchrが長くなったのでordは別entryということで。 文字から数値へ(ord) まずはPerlの例。 #!/usr/local/bin/perl use strict; use warnings; use utf8; binmode STDOUT, ':utf8'; sub say { print @_, "\n" }; say ord "\x{61}"; say ord "\x{3b1}"; say ord "\x{5F3E}"; say ord "\x{2A6
404 Blog Not Found:perl & Unicode - その字の名前
2006年11月20日23:00 カテゴリLogos一日一行野郎 perl & Unicode - その字の名前 Unicodeの隠れた功績として、こうした「何て呼べばいいの?」という文字に(はんば無理矢理)名前をつけてくれたこともあります。 例えば、 新方言時代〜「小さい“お”」って何？ 「々」はなんていえばいいのだろうか？ には 々 U+3005 IDEOGRAPHIC ITERATION MARK といった具合に。 この手の調査は、Perl5.8以降が手元にあると簡単に出来ます。 例えば、 perl -Mencoding=utf8 -MHTML::Entities -Mcharnames=:full -ple \ '$o=ord; $_=sprintf"$_ U+%04X %s", $o, charnames::viacode($o)' で、こんな具合にコードポイントとUnicode
404 Blog Not Found:perl javascript - はてブと短縮URLのMashup
2006年11月17日06:00 カテゴリLightweight Languages perl+javascript - はてブと短縮URLのMashup *LOVE IS DESIGN* - 無駄に長いURLって困りませんか？無駄に長くてわかりにくーい検索結果などの URL を、mixi の日記やブログのコメント欄に貼っているのをたまに見かけますが、ブラウザによっては画面から突き出したりレイアウトが崩れる原因になってしまいます。 FETISH STATION - 短縮URLを使ってはならない理由「短縮URL」 を生成するウェブ・サービスを紹介している記事ですが、コメント欄で指摘されているとおり、リンク先がどのサイトにジャンプするかわからないというリスク、およびセキュリティ上の欠陥があります。（記事の一部がこれを受けて修正されています。） それなら、SBMを短縮URLの元データにしてしまえ
Mastering Algorithms with Perl : 404 Blog Not Found
2006年11月02日19:00 カテゴリ書評/画評/品評 Mastering Algorithms with Perl 定番アルゴリズムを徹底理解！：ITproが もブクマされておりますが、それよりもこちらの方がおすすめ。 Mastering Algorithms With Perl J. Orwant / J. Hietaniemi / J. MacDonald 以前404 Blog Not Found:Hash != Associative Arrayでもちょこっと紹介しましたが、ここで改めて紹介しておきます。 本書"Mastering Algorithms with Perl"には「定番アルゴリズムを徹底理解！」のアルゴリズムは全て載っている上、それぞれのベンチマークもちゃんと取ってます。"with Perl"とありますが、Perl色はそれほど強くないので、他のLLのユーザーにも役
perl - Perl6の$variable.perlをPerl5で : 404 Blog Not Found
2006年10月08日01:45 カテゴリLightweight Languages perl - Perl6の$variable.perlをPerl5で どちらも残念ながら不完全。 CLON - 2006/10/07 あ、UNIVERSAL::pにすればいいんじゃね。 subtechグループ - Bulknews::Subtech - [Perl] Dumping variables Everywhere without use() package P; use strict; use YAML; *CORE::GLOBAL::dump = sub { warn YAML::Dump(@_); }; 1; 前者は$obj->pはよくてもp { foo => 1 }(Unblessed reference)が駄目で、後者はその逆。あとbuiltinされていないものにはこの手が使えず。 na
Web2.0的な民主主義的な何か - finalventの日記
前のエントリでそれって話ズレてくねぽいので、補足というか。ま切り出しは、Web2.0的民主主義とか。 で、これが民主主義とはまるでといっていいと思うが関係ないのは、前提として「正しさ」と人々との関わりが含み込まれているためだろうと思う。一番違うのは国家が議論されてない点だがそんな話はつまらないし目下の課題ではない、と。 松永＝佐々木系のと仮にまとめると、衆人から真理は生まれない、生まれるわけないじゃんか論となるだろうか。読み違っているかもしれないが、仮にそうモデルしておく。 で、問題設定が曖昧なのだが、経緯的には。 ⇒404 Blog Not Found:選民思想2.0または少衆主義 ⇒finalventの日記 - ちとまいったかな ⇒404 Blog Not Found:民主主義とかけてWeb2.0ととく というところで、民主主義談義は抜きとして。Danさんの、この。 率直に告白しよう。
javascript - Text to HTML Entities Encoder : 404 Blog Not Found
2006年10月06日17:30 カテゴリTips一日一行野郎 javascript - Text to HTML Entities Encoder Sourceを貼付ける際に実体参照化するとき、みなさんはどうしていますか? 404 Blog Not Found:ソースを貼付ける50の方法 コピペのしやすさでtextareaで囲む方法に比べて一歩及ばず、そしてtagの実体参照化が必要だという欠点はあります。 私はPerlのOne-Liner、 perl -Mencoding=utf8 -MHTML::Entities -ple '$_=encode_entities($_, "<>&")' でやっていたのですが、どうせならブラウザーを離れずに出来た方がいいですよね。というわけでこちら。 Text -> HTML Entities Encoder 何度目の車輪の再発明かわかりませんが、気に入
perl - aws2jsonp.cgi : 404 Blog Not Found
2006年10月05日22:30 カテゴリLightweight Languages perl - aws2jsonp.cgi AWSの汎用のJSONP Gatewayが欲しかったので作りました。 AmazonのXML Webサービス（REST）はXSLを書くだけでもかなり使える：Goodpic AmazonのXML WebサービスのURL（REST） http://xml-jp.amznxslt.com/onca/xml3? このURLの?の後に以下のパラメーターを&で続けて指定します。 ここではCGIのソースがメインなので、JSONPをどう使うかは解説しません。 ここではServer Sourceのみ公開します。 aws2jsonp.cgi ソースを見てもわかるとおり、associate id と access key はCGIにむき出しです。が、これらは見えることを前提にしているので
404 Blog Not Found:javascript perl - 住所でGoogle MapにアクセスするHack
2006年09月27日02:00 カテゴリLightweight Languages javascript + perl - 住所でGoogle MapにアクセスするHack + これとこれがそろえば、ここまで来るのは時間の問題というものです。 問題点 Google Map APIでは日本のGeocodingに(まだ)対応していないため、いちいち緯度と経度を調べる必要がある。 解決策 「Geocoding API - 住所から緯度経度を検索」を使って住所から緯度と経度を調べればいい でもXMLではクロスドメイン問題がある ならばJSONPへの変換サーバーを用意すればいい あとはその結果をGoogle MAPに反映させればいい geocoding.jp -> JSONP 変換サーバー これはXML2JSONPを応用すればあっという魔。 gcjp2jsonp.cgi gcjp2jsonpのテス
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
LLR2006 - Language Update - Perl : 404 Blog Not Found
2006年08月31日12:45 カテゴリLLの夏 LLR2006 - Language Update - Perl 今回のLL Ring 2006に私の肉体は欠席していたのですが、魂は出席していたようです。 トラックバックをお寄せください ? Lightweight Language Ring みなさまのご協力のおかげで，無事にLL Ringを開催できました．ありがとうございます． TAKESAKO @ Yet another Cybozu Labs: LL Ring で代理発表(Perl/Plagger)例年のLLイベントで毎年参加されているお馴染みの小飼弾さんが今年は参加されないとのことで、午前中の Language Update（写真付き紹介） のセッションでは、 Danさんの代理(Perl代表)として出場させていただきました。以下、その様子です。「本当の出席者」である竹迫さんの許
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
https://dankogai.livedoor.blog/archives/50641827.html