2007/02/04

[雑記]   きょうの富士山

at 16:56JST
だそうな。

311238.jpg

[雑記]   ハイっ、こちらIT課!

at 15:01JST
WOWOWが放映を始めるこの海外コメディ。先行放送を視たがなかなかおもしろい。

ハイっ、こちらIT課!|WOWOW ONLINE
http://www.wowow.co.jp/drama/uk/it/

社内システム担当部署が変人扱いで社交性に欠け、おまけに島流し部署なのは洋の東西を問わず同じらしい(ダメな企業では、ということにしておきたいが…)。

主人公の男が着ているシャツのプリントが、思いっきり
「RTFM」
(Read The Fucking Manual)
なのに笑った。

アメリカの安いケーブルテレビ向けコンテンツかなんかを拾ってきたのかと思ったが、イギリスの番組。そういえばイギリスのマイコン黎明期を築いた栄光の機種「ZX-81」が出てきていた。

ボスに就任したジェン役のキャサリン・パーキンソンがカワイイ。

[技術系]   recmover.pl

at 12:19JST
このあいだのディスクぶっとび事件で消失してたどうでもいいスクリプト。元のはもっと汎用的なものだった気がするが、リハビリリハビリ…。

#!/usr/bin/perl 
my $MOVE_TO = '/cygdrive/x/tv';
my $MINUTE = 5;
my $LOCK_DIR = '.recmover';

my $basedir = $0;
$basedir =~ s#[^/]+$##;
chdir $basedir;

mkdir( $LOCK_DIR, 0777 )
or exit;

opendir( D, '.' );
my @ls = grep /\.mpg$/i, readdir( D );
closedir( D );

foreach my $file ( @ls ) {
my $a = ( -A $file ) * 24 * 60;
my $m = ( -M _ ) * 24 * 60;
my $c = ( -C _ ) * 24 * 60;
if ( $c == $m ) {
next;
}
if ( $a > $MINUTE ) {
system( "mv '$file' $MOVE_TO" );
}
#print $m . "::$file\n";
}

rmdir( $LOCK_DIR );

[雑記]   なめとんのかリクナビ

at 06:20JST
20070204mage1.png


就職情報サイトが、ニートなんてあやしげな概念煽ってどうすんだよ。なんつーか、一回つぶれとけ。



最近アフィリエイトを貼りまくっているのは、デザインをちょっと変えてきれいになったのがうれしいからです。
さらに過去の記事
2009/04 (1)   2008/12 (3)   2008/11 (9)   2008/10 (10)   2008/09 (20)   2008/08 (2)   2008/07 (23)   2008/06 (16)   2008/05 (22)   2008/04 (11)   2008/03 (21)   2008/02 (20)   2008/01 (21)   2007/12 (32)   2007/11 (37)   2007/10 (46)   2007/09 (63)   2007/08 (33)   2007/07 (41)   2007/06 (81)   2007/05 (173)   2007/04 (168)   2007/03 (113)   2007/02 (123)   2007/01 (92)   2006/12 (111)   2006/11 (185)   2006/10 (20)  

広告


この広告は60日以上更新がないブログに表示がされております。

以下のいずれかの方法で非表示にすることが可能です。

・記事の投稿、編集をおこなう
・マイブログの【設定】 > 【広告設定】 より、「60日間更新が無い場合」 の 「広告を表示しない」にチェックを入れて保存する。


×

この広告は1年以上新しい記事の投稿がないブログに表示されております。