SpringMT

df -lh

SpringMT

https://gist.github.com/riywo

SpringMT

#if ( my $followers = $nt->followers ) {
    #my $target_user = shuffle( @$followers );
    #my $screen_name = $target_user->{screen_name};
    #my $text = shuffle( @nanpa_text );
    my $text = 'test';
    #eval { $text =~ s/name/$screen_name/ };
    #$text = "\@$screen_name " . $text;
    $nt->update( $text );
    warn "$text\n";
#}

SpringMT

* 入力としてundefあるいは値を複数受け取り
* 結果として値の最小値（あるいは値が全てundefの場合はundef）を返す
my $min_or_undef = List::Util::min(grep { defined $_ } ($a, $b));

SpringMT

sudo du -sh /home/* | sort -n

SpringMT

perl -MGameConf -e 'use Func::hoge; print "$_\n" for keys %INC;'|grep hoge.pm

SpringMT

find . -type f -name “*.php” -exec nkf -w –overwrite {} \;
“*.php”を”*.html”とすれば、HTMLファイルが変換されます。

http://d7r.com/200910/euc%E3%81%8B%E3%82%89utf-8%E3%81%B8%E3%81%AE%E6%96%87%E5%AD%97%E3%82%B3%E3%83%BC%E3%83%89%E3%81%AE%E5%86%8D%E5%B8%B0%E7%9A%84%E5%A4%89%E6%8F%9B/
http://jp.layer8.sh/reference/entry/show/id/744

SpringMT

killall Dock

SpringMT

find . -name '*.html' | xargs perl -pi -e 's#\$INC:common_footer\$\r?\n##g; s#</body>(\r)?$#\$INC:common_footer\$$1\n</body>$1#g;'

SpringMT

brew install irssi
(だった気がする)

http://nekolinux.blogspot.com/2009/05/ircirssi.html
http://webtech-walker.com/archive/2010/02/01090136.html
http://www.binzume.net/library/irssi.html