Bulknews::Subtech RSSフィード

2008/07/08 (火)

ゆの in Perl 08:32  ゆの in Perl - Bulknews::Subtech を含むブックマーク はてなブックマーク -  ゆの in Perl - Bulknews::Subtech

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++ ? "365" : "スケッチ"; $_[0] },
    "<" => sub { print ${$_[0]}, " ", $_[1], "\n" };

package main;

X / _ / X < "来週も見てくださいね!";