#!/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('ｾｲ');
するのがいいと思った。
終わり無き戦い...
/lang/perl/plagger/lib/Plagger/Plugin/Publish/Magnolia.pm - CodeRepos::Share - Trac
Ma.gnolia.com...意外とUIが好き。
これで、私が同期しているソーシャルブックマークは
- Publish::Delicious
- Publish::LivedoorClip
- Publish::Buzzurl
- Publish::LivedoorCilp
- Publish::Buzzurl
- Publish::GooBookmark
- Publish::NiftyClip
- Publish::Pookmark
- Publish::YahooBookmark
- Publish::BlueDot という名の Pubilsh::Delicious
- Publish::Magnolia
となった。
収拾がつかなくなってきた。
さて、明日は何作ろう
追記
otsuneさんの
解の方がよい。
CodeRepsに上げてあるMagnolia.pmは、plaggerのsvn/trunkが変わったタイミングで消します。
これまた適当に...
/lang/perl/plagger/lib/Plagger/Plugin/Publish/NiftyClip.pm - CodeRepos::Share - Trac
/lang/perl/plagger/lib/Plagger/Plugin/Publish/Pookmark.pm - CodeRepos::Share - Trac
NiftyClipは結構とUIが使いやすい気がした。
あと、
POOKMARK Airlinesの方はjavascriptがonじゃないとログイン出来ないって事にハマりかけた。あとtwitterにポストする機能があるので、default_no_twitterという設定で無効に出来るようにした。
これで、私が同期しているソーシャルブックマークは
- Publish::Delicious
- Publish::LivedoorClip
- Publish::Buzzurl
- Publish::GooBookmark
- Publish::NiftyClip
- Publish::Pookmark
となった。
収拾がつかなくなってきた。
