Fork me on GitHub

2007/10/30

Recent entries from same category

  1. VimmerなPerl開発環境 Hatena
  2. Devel::CheckLibのコメンテナになりました。 Hatena
  3. Web::Scraperでvim.orgのkarmaを調べる。 Hatena
  4. perldocのbash-completionが激しく便利でうれしょん出た。 Hatena
  5. Perl音痴な私がPerlを使っている理由 Hatena

#!/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('ｾｲ');
するのがいいと思った。
Posted at 13:48 in ソフトウェア::lang::perl | Edit
Tagged as: perl
Bookmarks: add to hatena add to hatena | add to delicious.com | add to livedoor.clip add to livedoor.clip

blog comments powered by Disqus