2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

質疑応答罵詈雑言拡散不希望 byト

387 :未承諾広告※ ◆Rock54hC3G0C (地震なし):2012/09/01(土) 00:52:16.70 ID:Ty0CxSJR0 ?PLT(23507)

my $count = 1000;
# renameを試行してみる
for (1..$count)
{
#rename("$src", "$dst") and return 0;
move ("$src", "$dst") and return 0;
}

これかぁ。。。
シパーイすると元ファイルが残ったままになるんね。( http://search.cpan.org/~rjbs/perl-5.16.1/lib/File/Copy.pm#DESCRIPTION moveの項)

多分、シパーイする状況を考えると次にある、、、
unlink("$src");
も、対応しなきゃかな。
ex.
for (1 .. 1000) { unlink("$src") and last }

で、ますますおかしくなるとw

399 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)
Hello 2ch !!
ERROR NO=0

maxLA=80.000000
LA=0.000977
2020/12/05 17:34:37 日本時間が取れるようになりました。
/operate2/1345596810/387 PATH_INFO
(null) QUERY_STRING
/home/ch2qb7/public_html/test/ cwd
/home/ch2qb7 home
qb7.2ch.net server name

ita[operate2]
key[1345596810]
res[387]
where[3]
size[407893]
time[1347123480000000] LastModifyed 今回は無しの方向で、

lineN[1001]
subject[質疑応答罵詈雑言拡散不希望 byト]

st[386]
to[386]
ls[0]
nf[1]
xxx[387]