{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
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
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 何度目の車輪の再発明かわかりませんが、気に入
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代表)として出場させていただきました。以下、その様子です。「本当の出席者」である竹迫さんの許
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
https://dankogai.livedoor.blog/archives/50641827.html
adiary official website