aklaswadのブックマーク - はてなブックマーク

sprintfで使用する引数を直指定する方法 - Unknown::Programming
久々にPerl。いや、ほんと久しぶりよね。 printf '%d年%d月%d日', 2010, 12, 22; # 2010年12月22日上記のような処理の時に、引数の数は変更せずに年を削って「12月22日」と表示したい場合、以下のようにすれば可能。 printf '%2$d月%3$d日', 2010, 12, 22; # 12月22日「%」と「d」の間に「数値$」を追加することで使用する引数を直指定できる。上記の場合だと2番目と3番目の引数を使うという感じになる。こんなsprintfの使い方なんて滅多なことではしないと思うけど、その滅多が来ちゃったので滅多ごめん。滅多ごめん。 # ちなみにPHPでも可能。参考:sprintf - perldoc.perl.org
aklaswad 2010/10/28
へー。

perl

printf
リンク
YAMLやYAML::Syckでutf8でdecodeしながら読む - Unknown::Programming
メモ。 YAML::Syckの場合 use YAML::Syck(); my $file = 'data.yaml'; local $YAML::Syck::ImplicitUnicode = 1; my $data = YAML::Syck::LoadFile($file); $YAML::Syck::ImplicitUnicodeを使うことでデコードしながら読むことができる。 YAMLの場合 my $data = YAML::LoadFile($file); my $yaml = YAML::Dump($data); utf8::decode($yaml); $data = YAML::Load($yaml); YAML parser - Bulknews::Subtech - subtech miyagawaさんとこの記事でこう書かれてたんだけど、コレって普通にファイル読み込んだ方が
aklaswad 2009/06/26
yaml

utf8
リンク
PHP「"0x0A" == "10"はTRUEですがよろしいですか」 - Unknown::Programming
ぼく「えっ」 PHP「"0x0A" == "10"はTRUEになりますが」ぼく「いえFALSEです」 PHP「えっ」ぼく「えっ」 PHP「まだ比較したことがないということでしょうか」ぼく「えっ」 PHP「えっ」ぼく「変化するってことですか」 PHP「なにがですか」ぼく「型が」 PHP「ああ文字列でも整数っぽい文字列なら自動で型変換されますよ」ぼく「そうなんだすごい」 PHP「では比較いたしましょうかTRUEですよ」ぼく「でも"0x0A"は明示的にキャストしたら0になりますよね」 PHP「えっ」ぼく「えっ」 PHP「ああ16進数のことなら比較の場合のみ10進数に自動で変換してから比較するんですよ」ぼく「なにそれこわい」 PHP「"0x0A" == "+000010.0000000000000001"の場合もTRUEになります」ぼく「なにそれもこわい」 PHP「えっ」ぼく
aklaswad 2009/06/19
php

ネタ

なにそれこわい
リンク
Windows環境でShift_JISなファイル名をPath::Class使って問題なく操作する方法 - Unknown::Programming
ちょっとした野暮プログラムで、あるフォルダのファイル名の抽出を行おうと思ったんだ。ほんと軽い気持ちで、そう軽い気持ちでちょこちょこっとさ。 use Path::Class; use Perl6::Say; for my $file ( dir('./hoge')->children ) { say $file->basename; } こんなのね。すごいシンプル。ちょうシンプル。コレでhogeフォルダ以下のファイルを取得できるのね。で、動かしてみたの。もちろん云わずもかなWindows環境ね。Windows環境。するとね。うまくファイル名が抽出できなかったのさ。そう、よくあることだ。Shift_JISだよShift_JIS。Shift_JISのせいなんだ。ファイル名にShift_JISが含まれてるの。 Shift_JISの「予」や「表」とかの文字コードは2バイト目がバックスラッシュ
aklaswad 2008/07/11
windows

sjis

perl
リンク
1