2011年09月30日17:28 カテゴリOpen SourceNews Perlの登録商標について - Perl belongs to us まずはおめでとう。 Perl Trademark In Japan | lestrrat [blogs.perl.org] We had been told that this whole process would take about a year, and finally I'm happy to announce that this decision has been reversed, and the above mentioned trademark has been revoked (I'm not a lawyer type, so excuse me if my words of choice there are not tech

2010年08月04日13:00 カテゴリLightweight Languages perl - 勝手に添削 - ターミナル内で画像を表示するコマンド 面白い。 ターミナル内で画像を表示するコマンド - デー でもスクリプトが「重い」。 なんでaview起動するのにふつうにsystem()使わないで手でfork()しとんの? つーか、それ以前に一時ファイルって必要? というわけで書き直したらこうなった。 #!/usr/bin/env perl use 5.00801; use strict; use warnings; use Imager; my @cmd = qw/aview -reverse/; my $file = shift or die "usage: $0 image\n"; my $img = Imager->new(); $img->read( file => $fil

2009年06月06日15:30 カテゴリLightweight Languages javascript - でも全角半角変換 ぐぐっても、変換コードがありそうでなかったのでついでに。 404 Blog Not Found:perl - で全角半角変換をモダンに行う Demo 全角 半角 実装 見ての通り、けれんみのないやり方をしています。 (function(){ var zenkaku = ['。', '、', '「', '」', '・', 'ー', 'ァ', 'ア', 'ィ', 'イ', 'ゥ', 'ウ', 'ェ', 'エ', 'ォ', 'オ', 'カ', 'ガ', 'キ', 'ギ', 'ク', 'グ', 'ケ', 'ゲ', 'コ', 'ゴ', 'サ', 'ザ', 'シ', 'ジ', 'ス', 'ズ', 'セ', 'ゼ', 'ソ', 'ゾ', 'タ', 'ダ', 'チ', 'ヂ',

2009年05月05日13:00 カテゴリLightweight Languages perl - もうやらなくてもいい昔のコーディングテクニック ここに上がっているテクニックは、未だにときどき(確信犯的)に使(う|わざるを得ない中年プログラマーの弾です。 もうやらなくていい昔のコーディングテクニックあれこれ - スラッシュドット・ジャパン 特に、 あとはパンチャーのおばさんにお菓子を持って行くのも、ひとつのテクニックです。 は、 s/パンチャー/プログラマー/g すると現在に至るも最強のテクニックで、我が妻がこの使い手だというのは我が家で hackerthon に参加された方は一人残らずご存知だと思います。 と前おいた上で、それのPerl編を。 以下、順不同で8つほど。 0. use strict;とuse warnings;なしでスクリプトを書く やはり最初に書いておくべきでしょう。理

2009年03月26日10:00 カテゴリLightweight Languages Ajax - llevalのサポート言語がさらに増えました というわけで大好評の「404 Blog Not Found:Ajax - Lightweight Languages を実行するAPI」ですが、サポート言語がさらに増えたのでお知らせします。以下の「コンソール」を見るのが一番てっとりばやいでしょう。 lleval - run codes from your browser IEでも動きますが、改行の扱いを考えるとそれ以外のブラウザーを推奨しておきます。 現在サポートしているのは、以下の言語です。 FizzBuzzのサンプル付きです。 ちょっとelispがださすぎ。環境上の都合によりsetqが使えないのがいたいなあ。 その他、本当はclispを使いたかったけどこれまた環境上の都合によりeclだったり

2009年02月26日10:30 カテゴリLightweight Languages javascript - new Hash(); // Object はHashじゃないから 困ったことに、JavaScriptのオブジェクトは、「ほとんどハッシュ」ですが「完全にハッシュ」ではありません。 以下、盛り上がっているPREは押すと中身が実行されるデモになってます。 オブジェクトをハッシュテーブルとして使う場合に注意すべき事 - 素人がプログラミングを勉強するブログ keyがObject.prototypeに登録されているメンバ名だった時(例えば"hasOwnProperty"や"propertyIsEnumerable")、in演算子がtrueを返して失敗する。 /* should be false but true */ alert('hasOwnProperty' in {}); has

2009年02月19日08:30 カテゴリLightweight Languages perl - HTMLをXMLとして扱う そのXML::Liberalが test でこけまくっていたところから旅が始まった。 ゆーすけべー日記: 壊れた Premiere (映像編集ソフト) のプロジェクトファイルが XML::Liberal (Perlモジュール) で直った ということは、なんとかして壊れたプロジェクトファイルを「well formed」な XML にすればいいじゃないのか！と思ったわけ。そこで活躍したのが「XML::Liberal」という miyagawa プロダクトな Perl モジュール。 やりたかったのは、XHTMLでないHTMLを、XML::*なモジュールで扱うこと。例えばXML::LibXMLを使えば、JavaScriptみたいな感覚でDOMを操作できるし、XML::Sim

2009年02月18日01:00 カテゴリLightweight Languages perl - package と stash を理解する 以下に触発されて。 CPAN 長いネームスペース大会 - にぽたん研究所 CPAN 階層の深いモジュール王選手権 - id:kazuhookuのメモ置き場 パッケージの階層はどこまで深く出来るか それを調べるために、以下のスクリプトを用意した。 #!/usr/local/bin/perl use strict; use warnings; use Data::Dumper; my $maxdepth = shift || 1024; my $ns = 'P'; sub dummy { 1 } print Dumper \%P::; for my $i ( 1 .. $maxdepth ) { no strict 'refs'; local *{ $

2009年02月18日00:00 カテゴリ書評/画評/品評Logos ガチな歯ごたえ - 書評 - 日本人なら必ず誤訳する英文 ディスカヴァーより献本御礼。 越前敏弥の 日本人なら必ず誤訳する英文 越前敏弥 初出2009.02.14; 販売開始まで更新 以下の言葉に偽りはない。 ディスカヴァー社長室blog: あなたならどう訳す？　日本人なら必ず誤訳する英文　●干場 編集担当のフジタ部長が、つけたコピーは、 「英語自慢の鼻をへし折る！」 どうやらへし折られたのは、フジタ部長自身のようです 私もへし折られはしなかったが、鼻の曲がる思いがした。 「ネイティヴ・スピーカーでも誤認する英文」としても通ると弾言ではなく断言する。 本書「越前敏弥の日本人なら必ず誤訳する英文」は、「ダ・ヴィンチコード」をはじめとするミリオンセラーをいくつも訳してきたプロの翻訳家による難解英語集。よくもまあこれほど集めた

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年02月09日00:00 カテゴリ書評/画評/品評Lightweight Languages $job->done('well'); # 書評 - モダンPerl入門 翔泳社再帰、じゃなかった斎木様より献本御礼。 モダンPerl入門 牧大輔 初出2009.02.03; 発売開始まで更新 モダンPerl入門とどいた - D-6 [相変わらず根無し]「モダンPerl入門」が届きました。翔泳社様、ありがとうございます＞＜ うちにも届いたので早速拝見。 これほどの出来だとは! DMAKI++ あ…ありのまま 今　読んだ事を話すぜ！ 本書「モダンPerl入門」を一言で言うと、「Perl Cookbook」と「Perl Best Practice」と「Advanced Perl Programming」と「ミニマルPerl」のエッセンスを取り出し、そしてそれを最新の「モード」へと昇華した一冊。

2009年02月08日01:00 カテゴリLightweight Languages perl,javascript and more - evalは最後の武器 うーん、そうなのだけど.... メタプログラミングとは - Perl入門〜サンプルコードによるPerl入門〜 メタプログラミングとはソースコードを生成するプログラミングのことです。メタプログラミングによって生成したソースコードは、eval関数で実行することができます。 evalだけがメタプログラミングの技法ではないし、またevalはその威力ゆえ最後の選択肢とすべきだ。 #!/usr/local/bin/perl use strict; use warnings; use Benchmark qw/timethese cmpthese/; cmpthese( timethese( 0, { eval => sub { no warn

2009年02月01日21:30 カテゴリLightweight Languages perl - Encode-2.29 Released! (2.28 deleted) Encode 2.28 2.29 を Release したのでお知らせします。 /lang/perl/Encode/trunk - CodeRepos::Share - Trac Dan Kogai / Encode - search.cpan.org http://www.dan.co.jp/~dankogai/cpan/Encode-2.29.tar.gz 2.27でUnicode.xsがRefactorされたのですが、そこで使っているAPIが新し過ぎたため、Perl 5.8.6以前のperlの互換性が失われてしまいました。本releaseはそれを直します。 なお、2.28はPAUSEのアップロードエラー対策のため

2008年11月21日00:15 カテゴリLightweight Languages perl - LWP::UserAgentで進捗表示しつつダウンロード 食後のデザートとして手頃なサイズの問題だったので。 Ruby Net::HTTP で進捗表示しつつダウンロードのメモ - 冬通りに消え行く制服ガールは、夢物語にリアルを求めない。 - subtech #!/usr/local/bin/perl # # $Id: lwp-callback-example.pl,v 0.1 2008/11/20 15:16:48 dankogai Exp dankogai $ # use strict; use warnings; use LWP::UserAgent; use File::Basename; my $uri = shift || die "$0 http://example.com/bi

2008年07月13日03:30 カテゴリLightweight Languages perl - Class vs. Closure PERL HACKS(日本語版) [英語版] うーん、さすがにそれはいいすぎでしょうか。 クロージャの概念をクラスとの対比でわかりやすく説明する。 - サンプルコードによる Perl 入門 ここで気づいてほしいことは、クラスとクロージャは、実は同じものだということです。たしかにオブジェクトの定義から行くと、 404 Blog Not Found:オブジェクトは難しくない。難しいのはクラス それで、オブジェクトとは何か、といえば、「自分が何が出来るのか[コード]を知っているデータ」ということになる。 であり、クロージャー(closure)は「自分が何を持っているか[データ]を知っているコード」なので、等価ではある。実際、 package Class; sub

2008年07月13日16:00 カテゴリTipsLightweight Languages javascript - 特定のDOMをソース表示する すでにいくつかのentriesで使っているのですが、かなり便利なので改めて紹介。 表示元 表示したいHTMLを適当にdivタグで囲ってidを振っておく。ここではhtml2show 表示先として空のpreを作っておき、そこにもidを振っておく。ここではhtmlsrc 以下のようなscriptを、preタグの直下に転がしとく (function(src, dst){ dst.appendChild(document.createTextNode(src.innerHTML)) })( document.getElementById('html2show'), document.getElementById('htmlsrc') ); もちろん以下

2008年07月10日22:30 カテゴリLightweight Languages perl - use strict なしでstrictに これに対する真面目な解答とちょっと不真面目な解決策を。 strict プラグマについて - perl-mongers.org 「use strict; って何でデフォルトでオンになってないの？」 言われてみれば確かに。何でなんでしょうか？ まず長い理由としては、下位互換性。Perl 5とPerl 4は、C++とC以上に異なる言語ですが、しかしCがC++の先祖だったように、Perl 4はPerl 5の先祖でした。Perl 5のリリースにあたっては、機能拡張と同じぐらい下位互換性に気が使われてたのです。おかげでPerl 4のスクリプトは、Perl 5でもほとんど無変更で動かすことが出来ました。いきなりstrictになったら動かなくなっちゃいますよね。

2008年07月08日15:30 カテゴリLightweight Languages perl - no accessor; # だって遅いんだもん まずはDCONWAY先生のお言葉から。 Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] Always use fully encapsulated objects. オブジェクトは常にカプセル化して用いよ これはperlの常識というより、OOの常識であるのだけど、これがperlの実装と重なることにより、perlにおいては他の言語よりも作法を破りたくなるインセンティヴが大きいのは否めない。 カプセル化のコストが、あまりに大きいのだ。 以下は、ハッシュ、ハッシュリファレンス、そしてハッシュリファレンスによるオブジェクトの性能をベンチマークしたものだ。最初が初期化、次が accessor と

2008年07月07日01:30 カテゴリ書評/画評/品評Lightweight Languages coders.each{|you| you.get(this) if you.langs[0] != 'ruby' } # - 書評 - 初めてのRuby オライリーから献本....されませんでした:-( 初めてのRuby yugui ので自分で買ったのはいいけど、おかげでずいぶんと入手に時間がかかってしまった。Amazon、昨日まで「3-5週間待ち」だったもんなあ。しかしその買い、じゃなかった甲斐ありましたよ。いやあ脱帽。版型ぐらいしかケチのつけようのない、完璧な一冊。それですら、「動物本だから仕方がない」だし。これほどの出来とは。yugui、恐ろしい子。 本書「初めてのRuby」は、"Learning Ruby"の邦訳ではない。 序文 by Matz 失礼しました。一説によると、『Le

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