いただきよつべと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 );