2010-06-01から1ヶ月間の記事一覧

なんとなくメモ

それほど高橋美佳子が好きってわけでもないんだけど、なんとなくさびしいね。 window.twttr = (function(d, s, id) { var js, fjs = d.getElementsByTagName(s)[0], t = window.twttr || {}; if (d.getElementById(id)) return t; js = d.createElement(s); …

Net::FTPでnlist

Net::FTP - FTP Client class - metacpan.org lsは配列でファイル一覧を返してくれるけど、nlstとかlistはNet::FTP::dataconnを返すらしい。OS依存のデータを返すから*1しょうがないのだろうけど。 use strict; use warnings; use Net::FTP; my ($ftp, $data…

2ch総レス数 VS mixiコミュニティ参加者数

R

この話。 window.twttr = (function(d, s, id) { var js, fjs = d.getElementsByTagName(s)[0], t = window.twttr || {}; if (d.getElementById(id)) return t; js = d.createElement(s); js.id = id; js.src = "https://platform.twitter.com/widgets.js"; …

CygwinでTime::Pieceのインストールに失敗したときは dosish.h.new -> dosish.h のリンクを作ってみる

Time::Pieceをインストールしようと思ったら、エラーでmakeが失敗してしまいました。 $ perl -MCPAN -e 'install Time::Piece' .. .. /usr/bin/perl.exe /usr/lib/perl5/5.10/ExtUtils/xsubpp -typemap /usr/lib/perl5/5.10/ExtUtils/typemap Piece.xs > Pie…

Perl で ctime -> epoch 変換

use strict; use warnings; use Time::Piece; my $time_str = shift; print c2e($time_str); sub c2e{ $time_str = shift; $time_str =~ m/^([a-z]+) +([a-z]+) +(\d+) (\d{2}:\d{2}:\d{2}) .*(\d{4})/i or die "invalid format"; return Time::Piece->strpt…