1秒に満たない短い時間、プログラムをスリープさせたい。 # 方法1 select(undef, undef, undef, $time_to_sleep); # 方法2 use Time::HiRes qw(sleep); sleep($time_to_sleep);

time関数は秒単位で時間を計測するが、それよりも細かい単位で時間を計測したい use Time::HiRes qw(gettimeofday); $t0 = gettimeofday(); ## ここに任意の処理を書く $t1 = gettimeofday(); $elapsed = $t1 - $t0; # $elapsedには、$t1と$t0の秒差が浮動小…

localtime(); # => Wed July 16 23:58:36 2003

任意のフォーマットで指定された日付、時刻を、年、月などを単位とした個々の値に変換したい。 # 方法1 use Time::Local; # $dateには、YYYY-MM-DD形式の値(例えば2003-02-13)が格納されている ($yyyy, $mm, $dd) = ($date =~ /(\d+)-(\d+)-(\d+)/); # 抽出…

エポック秒、または、年、月、日で表された日付が何曜日か、月の初めの日から何日目か、年の初めから何日目かを求めたい。 # 方法1 ($MONTHDAY, $WEEKDAY, $YEARDAY) = (localtime $DATE)[3,6,7]; $WEEKNUM = int($YEARDAY / 7) + 1; # 方法2 use Date::Calc…

久々にiTunes Music Storeを見ていると、advantage Lucyのアルバムが配信されていました。Echo Parkアーティスト: advantage Lucy出版社/メーカー: Solaris Records発売日: 2005/09/28メディア: CD購入: 1人 クリック: 10回この商品を含むブログ (101件) を…

どんなストーリーやったんかなぁ、ってことで、久々にマトリックスを見てみました。ストーリーは、100年後の世界で、コンピュータと人類が戦争をしている、と言うもの。で、主人公たちは、コンピュータが作り出した仮想空間マトリクスの中で、刺客たちと戦い…

やっぱ、アトピー体質は遺伝してるんかなぁ。顔中がすごいかゆそう。今は冬やし、まだ赤ちゃんやから、しょうがないんかなぁ。 大人になってから、ひどくならんかったらええんやけど。女の子なので、よけいにかわいそう。