タグ
ゆの in Perl - Bulknews::Subtech - subtech
46 users
■ ゆの in Perl 08:32 http://subtech.g.hatena.ne.jp/cho45/20080708/1215450151 #!/usr/bin/perl use strict; BEGIN { sub X () { bless \(my $s = "ひだまり"), "X" } sub _ () { 1 } } package X; my $i; use overload "/" => sub { ${$_[0]} .= $i++ ? "3... 続きを読む
すべて表示
