perl - 勝手に添削 - 最小限のls -laを書いてみた : 404 Blog Not Found
2011年05月15日02:15 カテゴリLightweight Languages perl - 勝手に添削 - 最小限のls -laを書いてみた ミニマルPerl Tim Maher / 安藤慶一& 磯部孝一郎訳 [原著:Minimal Perl] 明らかに too tiny だったので。 最小限のls -laを書いてみた - Islands in the byte stream 以下、too tiny な理由 symlinkが考慮されていない デバイスやソケットなどの特殊ファイルが考慮されていない SUID/SGID/Sticky Bitが考慮されていない 以上の点を直したものを、以下に。 なお、perlでls -lなら、find2perl . -lsの出力が大変に参考になります。あと、上掲の「ミニマルPerl」は(/bin)?/s?binを再発明する際にもっとも役に立つ一冊です。
#perl and more - $_ とスコープ : 404 Blog Not Found
2009年11月01日22:30 カテゴリLightweight Languages #perl and more - $_ とスコープ 良記事は補足して育てよう。 現代的なPerlの記述方法一覧 + α - Perl入門〜サンプルコードによるPerl入門〜 補足するのは、$_の使いどころについて。 実はこうすることで、$_の使用は暗示的なものも含めてすべてトラップすることが出来る。 use strict; use warnings; { package _; use Carp; sub TIESCALAR { bless {}, shift } sub FETCH { croak q(Don't you dare get $_) } sub STORE { croak q(Don't you dare set $_) } } tie $_, "_"; $_ = 1; 明示的なものだけでは
#javascript - 乳首を引用符から開放する、またはJSの識別子について : 404 Blog Not Found
2009年10月21日14:00 カテゴリLightweight Languages #javascript - 乳首を引用符から開放する、またはJSの識別子について というわけで乳首を引用符から開放してみますた。 ()()で呼び出せるJavaScriptのネスト関数の活用法を思いついた - あと味 今日ほどアポストロフィクォーテーションの存在に不快感を覚えたことはありません。こんなもんでいかがでしょう。 var o = function(f){ return f === arguments.callee ? 'おっきしたおっぱい!' : '不正な乳首です'; }; var x = function(f){ return f === arguments.callee ? 'おねむなおっぱい!' : '不正な乳首です'; }; alert((o)(o)); alert((x)(x)); al
#perl - utf8::decode()ではなくEncode::decode_utf8()を使うべき理由 : 404 Blog Not Found
2009年09月13日13:00 カテゴリLightweight Languages #perl - utf8::decode()ではなくEncode::decode_utf8()を使うべき理由 駄目です。 [を] Perl の utf8 まわりのおまじない 最近良く使うおまじない、というかイディオム。 utf8::decode($text) unless utf8::is_utf8($text); こういう場合は、Encode::decode_utf8()でないと。 以下をごらんください。 #!/usr/bin/perl use strict; use warnings; use Encode; use Devel::Peek; for my $bytes ( "\x2F", "\xC0\xAF", "\xE0\x80\xAF", "\xF0\x80\x80\xAF" ) { my $u
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
