#!/usr/bin/perl
use strict;
use Perl6::Say;
undef &Perl6::Say::say;
sub my_say {
my $this = shift;
print @_;
$this;
}
*Perl6::Say::say = \&my_say;
STDERR->say('ﾌｫｫｰｰ!!')->say('ｾｲ')->say('ｾｲ')->say('ｾｲ');
package IO::HG4;するのがいいと思った。
use base qw(IO::Handle);
sub say {
my $this = shift;
print @_;
$this;
}
IO::HG4->new->say('ﾌｫｫｰｰ!!')->say('ｾｲ')->say('ｾｲ')->say('ｾｲ');
|
|
|
|
|
この記事へのリンク
writeback message: Ready to post a comment.
amazon, API, api, appengine, Apple, AtomPP, autopagerize, aws, blog, blosxom, c, com, ctags, del.icio.us, etc, feed, firefox, flash, flickr, gdata, gmail, goobookmark, google, google app engine, google reader, greasemonkey, growl, gtk, gtkmogo2, gtktwitter, habu, jaiku, java, javascript, job, jquery, json, JSON, linux, lua, memcached, metaWeblog, microformats, microsummary, minibuffer, mixi, mogo2, nabeatzz, nowa, opera, otolog4linux, perl, plagger, plugins, Pownce, python, RSS, ruby, Safari, sqlite, tips, tombloo, tumblr, twitter, userjs, v8, vim, vimperator, vimscript, wassr, Web, weblog, webscraper, webservice-simple, win32, windows, WSSE, XMLRPC, xmlrpc, xpath, xsl, yaml, はてな, はてなスター, はてなダイアリー, はてなハイク, はてスタ, はてブ, もごもご, ジョーク, ネタ, 仕事
![[Valid RSS]](http://mattn.kaoriya.net/images/valid-rss.png "Validate my RSS feed")
