いただきよつべとv19 : cookieファイル削除用

$dir = "/usr/local/youtube/";
%hash;

# 存在するCookieを確認
open X, "ls -1 $dir |";
	/^cookie(\d+)/ and do { $hash{$1} = "cookie$1\n"; } while(<X>);
close X;

# 現在使用中のものを排除
open X, "ps xaw |";
	/^\s*(\d+)/ and do { delete $hash{$1}; } while(<X>);
close X;

# プリントアウト
print foreach( values %hash );