Macに今人気のUbuntuを入れてみたよ！超簡単！ VMware Fusin Betaここでダウンロード-> http://www.vmware.com/products/beta/fusion/ （ダウンロードのページにシリアルキーが表示されるので、それをメモるのを忘れずに。)Ubuntuはここでダウンロード-> htt…

voxにアカウント作った。http://tomyhero.vox.com

StarCraft2が出るみたい！！

ログをカラフルにしてくれるモジュールをUP。デバッグ時にちょっと便利。 色の文字がログに書かれるのがいやな人は使わない方がいい。まだ反映されてないので、ここからでも手に入れれます。 http://tomyhero-perl-module.googlecode.com/svn/tags/

http://video.google.com/videoplay?docid=-3876155376103839772&q=yapc+asia+2007デザインという言葉が似合うと思った。 今年のクリスマスだといいなぁ。

明日は、id:kopug と id:sikamaru1 と もしかしたら、ヒナフルとで、ニュービーソンを行います。ニュービーソンとは、初心者どもがパソコンを持ち寄ってあつまって、ソファーの上でプログラミングしたり、 人生ゲームをしたりする集まりです。

id:sumi_zumiさんのをみて試そうとしたら、Ratingに良いサンプルがあったので、それを試す。 奇麗だ。 #!/usr/bin/perl use Term::ANSIColor; @colors = qw(black red yellow green cyan blue magenta); foreach $fg (@colors) { print color("bold $fg") . …

誕生日を引数に、何歳代の前半か、後半かを出力するTTフィルター作ってんけど、 これも、コードがきに食わない。もっと、スマートにできないか。誰か教えて！ sub fs_fazzy_birthday { my $date = shift; # $date must be yyyy-mm--dd format. $date =~ m/(\…

http://use.perl.org/article.pl?sid=07/04/24/0624253&from=rss http://video.google.com/videosearch?q=yapc+asia+2007&num=50&so=1&start=0週5つずつぐらいは、ビデオ見ていきたい。というか、ゴールデンウイークにまとめてみよ。

ガーン。0.02でテスト落ちてて、0.03で直したとおもったら、見当違いで、また直した orz...２度あることは３度ある... 怖い。

0.01からのアップデート。そのうちCPANにあがると思う。 0.02 2007/04/22 22:50 - use require_of() instead of require_by() when using Module::Recursive::Require because of deprecation. - now you can use base_pkg or pkg method . Module::Recursiv…

http://blog.perl.tv/2007/01/mac_osx.htmlこれ読んだ。Stoplight インストールした。

#歳以上の生年月日チェック、作ったんやけど、ださすぎる。あなたならどうする？？ sub static_birthday { my $date = shift; my $args = shift; # この年齢以上じゃないと登録できない。 my $over = $args->{over} || 18; return 0 unless &static_date( $d…

Date-Calc-5.4のDelta_YMDうるう年だと死亡。1988-02-29と思ったら、使い方が悪かった。orz.

Hackathonに対抗して、Newbieathonしよ。結構この呼び方気に入った。 今週末。id:kopugは逃げやがったけど。

unix domain sockets サポートはいいんじゃないですか。 2007-04-16: version 1.20 * fix "Warning produced when flush_all called" from CDENT http://rt.cpan.org/Public/Bug/Display.html?id=22181 * support access via unix domain sockets. (Nathan N…

JSONに対抗して。（ネタ） package PSON; use strict; use warnings; our $VERSION = '0.02'; use vars qw( @EXPORT_OK ); use Carp; use Data::Dumper; use Exporter 'import'; @EXPORT_OK = qw(obj2pson pson2obj); use Readonly; Readonly my $VARNAME =>…

http://www.vim.org/scripts/script.php?script_id=830これ見つけた。 .vim |-- ftdetect | |-- tt.vim -> tt2html.vim | |-- tt2.vim | `-- tt2html.vim `-- syntax |-- tt2.vim `-- tt2html.vimこのやり方だと、:sp しても色かわんねーや。

__PACKAGE__->config( file => __PACKAGE__->path_to('conf.d') ); これやると、拡張子が、.d だと判断して死亡。 __PACKAGE__->config( file => __PACKAGE__->path_to('conf') ); これでいっか。

http://twitter.g.hatena.ne.jp/tomyhero/Twitter Groupに参加してみました。

昼遅れんように、連絡するようにした。Log::Dispatch::MacGrowlがあげられてたので。 それだけ。 #!/usr/bin/perl -w use strict; use warnings; use Log::Dispatch::MacGrowl; my $log = Log::Dispatch::MacGrowl->new( name => 'growl', min_level => 'inf…

グリースモンキー説明用サンプル。ヒドイ。 // ==UserScript== // @name marginal top image suck // @namespace trash // @include http://www.mb.ccnw.ne.jp/hinaful/ // ==/UserScript== var allImages , thisImage; allImages = document.getElementsByT…

http://www.centos.org/CentoOS 5リリースされたみたいだよ。

これを実装してるモジュールあったっけ？ コードかっこ良くないなぁ。 #!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my $array = [qw/a i u e o/]; my $hash = {}; array2hashkey( $hash , $array , 'I am value!!' ); print Dumper $ha…

なんかはやってるようなので、アカウント作ってみた。ミーハーhttp://twitter.com/tomyhero

LWPがGoogleにアクセス禁止されてるってきいたので、試したらほんまやった。 ITリーダのグーグルがするなら、はやく真似しないと！なんちゃって。 #!/usr/bin/perl -w use strict; use warnings; use LWP::UserAgent; use HTTP::Request; my $request = HTTP…

以前、Catalyst::Component::ACCEPT_CONTEXT をコントローラで継承すれば $c が取れるといったんだけど、 複数のコントローラを継承すると取れなくなるな。orz...試したスクリプト。 :-) package Nyan::BaseController::A; use base qw(Catalyst::Controller…

IPC::Run3 と mecabを使って、単語と品詞統計を計る機能作成！ グリースモンキーの課題の後は、これにしよ。

: の後に上キーで、履歴が見れてたのが、MACだとみれなくてうざかったんやけど、MAC KEY + 上キーでいけることがわかった。 助かった。

使う。