日向夏特殊応援部隊

俺様向けメモ

2007-07-13から1日間の記事一覧

指定したdomainのファイルを全て消す

こんな感じかなー。 #!/usr/bin/perl use strict; use warnings; use Getopt::Long; use MogileFS::Client; my ($domain, $host); GetOptions( "domain=s" => \$domain, "host=s@" => \$host ); die("host or domain is not valid") unless ($domain && $hos…