Perl/ActivePerl For UNIX/Linux/Windows
 
TryThe Homepage
ソスソスソス゚てゑソスCGI
CGI ソスソスソスソスソスソス
ソス_ソスCソスiソス~ソスbソスNCGI
ソス_ソスEソスソスソスソスソス[ソスh
ソスTソス[ソスrソスX
ソスTソス[ソスoソス\ソスz(Windows)
ソスfソス[ソス^ソスxソス[ソスXソスAソスNソスZソスX
ソスLソスソスソスTソス[ソスrソスX
FAQ
ソスソスソス竄「ソスソスソスせ
ソスソスソスフペソス[ソスWソスソスソスソスソス
ソスソスソスbソスNソスtソス@ソスCソスソスソスソスソスlソスソスソスソス
CGIソスナフソス@ソスCソスソスソス操作すソスソスニ、ソスソスソスホゑソスソスホデソス[ソス^ソスソスソスソスソスソスソスソスソス驍アソスニゑソスソスLソスソスワゑソスソスB ソスソスソスソスヘ、ソスソスソスソスソスAソスNソスZソスXソスiソスソスソスソスソスソスソスン)ソスノゑソスソスユ突でゑソスソスB ソスソスソスフ托ソスソスソスソスフサソスCソスgソスナゑソスソスソスソスソスソスソスソスソスソスソスソスソス@ソスソスソスミ介さソスソストゑソスソスワゑソスソスソスソスAソスソスソスフ経ソスソスソスソスヌゑソスソスソスsソス\ソスソスソスナ、 ソスソスソスノ有ソスソスソスTソスCソスgソスフカソスEソスソスソス^ソスソスソスソスソスjソスさゑソストゑソスソス驍アソスニゑソスソスソスソスホゑソスソスホでゑソスソスB ソスソスソスフコソス[ソスiソス[ソスナは、ソスユ突ゑソスソスネゑソスソスBソスソスソスソスソスソスユ突ゑソスソストゑソスソスfソス[ソス^ソスソスjソスしなゑソスソスソスソスbソスNソス@ソス\ソスソスソスlソスソスソストみまゑソスソス蛯、ソスB
  1. ソスソスソスンゑソスソスソスソスニゑソスソスフ用ソスソスソスソストゑソスソス驛搾ソスbソスNソス@ソス\
    foreach (1 .. 10) {
        if (symlink($datafile,$tmpfile)) { last; }
        sleep(1);
    }
    open(OUT,"$datafile) || die "Can't open tmp file.\n";
    print @DATA;
    close(OUT);
    unlink($tmpfile);
    ソスソスソスフコソス[ソスhソスソスソスPソスツゑソスソスツ会ソスヘゑソスソストみまゑソスソス蛯、ソスB
    foreach (1 .. 10) {
        if (symlink($datafile,$tmpfile)) { last; }
        sleep(1);
    }
    ソスソスソスソスヘ、UNIXソスソスsymlinkソスヨ撰ソスソスソスソスgソスソスソスト、ソスPソスツのフソス@ソスCソスソスソスノ2ソスツめのフソス@ソスCソスソスソスソスソスソスソスソスうソスニゑソスソストゑソスソスワゑソスソスB
    symlinkソスヨ撰ソスソスヘ撰ソスソスソスソスソスソスソスニ「1ソスvソスソスソスAソスソスソスsソスソスソスソスニ「0ソスvソスソスヤゑソスソスワゑソスソスB
    ソスソスソスフ場合ソスソスソスsソスソスソス骭エソスソスソスヘ鯉ソスソスン、$tmpfileソスソスソスソスソスナに托ソスソスンゑソスソス驍ゥソスソスナゑソスソスB(ソスソスソスフプソスソスソスZソスXソスソスソスソスソスソスソスン抵ソス)
    ソスソスソスソスソスソスソスソスホソスソス[ソスvソスソスソス逕イソスoソスソスソスAソスtソス@ソスCソスソスソスノ擾ソスソスソスソスソスソスソスナゑソスソスワゑソスソスB
    open(OUT,"$datafile) || die "Can't open tmp file.\n";
    print OUT @DATA;
    close(OUT);
    ソスソスソスsソスソスソスソスニ、1ソスbソスヤゑソス1ソスソスA10ソスソスワでトソスソスソスCソスソスソスワゑソスソスB
    ソスソスソスソスソスソスソスン鯉ソスAソス_ソス~ソス[ソスtソス@ソスCソスソスソスソスソス除ソスソスソストソスソスbソスNソスソスソスソスソスソスソスソスソストゑソスソスワゑソスソスB
    unlink($tmpfile);

  2. ソスソスソス_
    ソスソスソスフソスソスbソスNソスソスソスソスソスノは托ソスソスソスソスフ鯉ソスソス_ソスソスソスLソスソスワゑソスソスB
    ソスワゑソスソスAsymlinkソスヨ撰ソスソスソスソスユ突ゑソスソス驍アソスニでゑソスソスB symlinkソスソスソスユ突ゑソスソスソスニ会ソスソスソスソスヤゑソスソストゑソスソスソスワゑソスソスソスB ソスソスソス黷ェ10ソス続ゑソスソスニ通擾ソスフソスソスbソスNソスネゑソスソスニ、ソスソスソスlソスノ擾ソスソスソスソスソスナゑソスソスワゑソスソスワゑソスソスB
    ソスツゑソスソスノ、ソスソスソスニゑソスソスソスソスbソスNソスノ撰ソスソスソスソスソスソストゑソスソスAソスソスソスソスソスソスソスン趣ソスソスフサソス[ソスoソス[ソス_ソスEソスソスソスノはどゑソスソスソスソス謔、ソスソスソスソスソスソスワゑソスソスソスB
    ソスユ突ゑソスソスソスソスニ難ソスソスソスソスソスソスナゑソスソスB
    ソスソスソスソスヘ、ソスfソス[ソス^ソスtソス@ソスCソスソスソスソスソスソスソスソスソスソスソスン可能ソスフパソス[ソス~ソスbソスVソスソスソスソスソスu666ソスvソスソスソスソスソスソスナゑソスソスB
    ソスソスソスソスナはソスソスbソスNソスtソス@ソスCソスソスソスニは呼べまゑソスソスソスB

    ソスAソスソスソスSソスソスソスYソスソスソスニゑソスソストゑソスソスソスソスソスソスソスソスソスソスニゑソスソスがソスLソスソスワゑソスソスB
    ソスソスソスbソスNソスノ趣ソスソスsソスソスソスソスソス鼾ソスソスunlink($tmpfile);ソスソスソスソスソスsソスソスソスソスソスニ鯉ソスソスソスソスソスソスニでゑソスソスB

  3. ソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスソスソスgソスソス
    ソスソスソスソスソスフ厄ソスソスソスソスソスソスソスソスソスソス驍スソス゚、ソスソスソスいソスソスネ包ソスソス@ソスソスソスlソスソスソストみまゑソスソス蛯、ソスB
    ソスワゑソスソスAソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスソスソスgソスソスソスソスソス@ソスナゑソスソスB
    ソスソスソスソスソスソスソスソスソスノゑソスソスソスソスsソスvソスソスソスZソスXソスソスソスヌ暦ソスソスソスソスソスvソスソスソスZソスXソスヤ搾ソスソスソスソスLソスソスワゑソスソスBソスソスソスソスヘ鯉ソスソスソスソスト重ソスソスソスソスソス驍アソスニゑソスソスソスソスソスワゑソスソスソスB
    ソスソスソスフプソスソスソスZソスXソスヤ搾ソスソスフテソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスソスソス成ソスソスソスAソスfソス[ソス^ソスヘゑソスソスソスソスノ擾ソスソスソスソスoソスソスソスフでゑソスソスB
    ソスソスソスソスソスtソス@ソスCソスソスソスノ擾ソスソスソスソスソスソズのではゑソスソスソスワゑソスソスから決ソスソスソスト衝突ゑソスソス驍アソスニゑソスソスソスソスソスワゑソスソスソスB
    #perlソスフプソスソスソスZソスXソスヤ搾ソスソスフテソスソスソス|ソスソスソスソスソス[ソスソスソス成
    $tmp_dummy = "$$\.tmp";
    open(TMP,">$tmp_dummy") || die "Can't create tmp file.\n";
    close(TMP);
    #ソスpソス[ソス~ソスbソスVソスソスソスソスソスソスマ更
    chmod 0666,$tmp_dummy;
    #ソスvソスソスソスZソスXソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスヨデソス[ソス^ソスソスソスソスソスソスソスソス
    #ソスハ々ソスフフソス@ソスCソスソスソスノ擾ソスソスソスソスソスソズので衝突ゑソスソスソスツ能ソスソスソスヘ0ソスノ難ソスソスソスソスソス
    open(TMP,">$tmp_dummy") || die "Can't open tmp file.\n";
    print TMP @DATA;
    cloce(TMP);
    rename($tmp_dummy,$datafile);
    ソスナ鯉ソスノフソス@ソスCソスソスソスソスソスソス゚ゑソスソストゑソスソスワゑソスソスB
    ソスソスソスフ包ソスソス@ソスソスソスニデソス[ソス^ソスtソス@ソスCソスソスソスフパソス[ソス~ソスbソスVソスソスソスソスソスソスソスu644ソスvソスヌ搾ソスソスン撰ソスpソスフままでゑソスソスソスソスソスAソスTソス[ソスoソス[ソス_ソスEソスソスソスノゑソスソスソスソスソスソスソスソスソスソスソスナゑソスソスワゑソスソスB
    ソスソスソスソスナゑソスソスソスソスヘ有ソスソスワゑソスソスBソスソスソスlソス[ソスソスソスソスソス骼橸ソスノ衝突ゑソスソス驍アソスニでゑソスソスB
    ソスソスソスlソス[ソスソスソスヘ、ソスfソス[ソス^ソスソスソスソスソスソスソスンの撰ソスソスSソスソスソスフ茨ソスフ趣ソスソスヤで擾ソスソスソスソスナゑソスソスワゑソスソスソスソスAソスユ突ゑソスソスソスツ能ソスソスソスソス0ソスナはゑソスソスソスワゑソスソスソスB
    ソスソスソスソスソスワでのソスソスbソスNソスソスソスネゑソスWindowsソスTソス[ソスoソスナゑソスソスgソスpソスナゑソスソスワゑソスソスB

  4. ソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスフソスソスbソスNソスtソス@ソスCソスソス
    ソスソスソスlソス[ソスソスソスフ衝突ゑソスソスソスソスソス驍スソス゚、ソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスフソスソスbソスNソスtソス@ソスCソスソスソスソスソス成ソスソスソストみまゑソスソス蛯、ソスB
    foreach (1 .. 10) {
        $locked = link($tmp_dummy,$tmpfile);
        if ($locked == 1) { last; }
        sleep(1);
    }
    #ソスnソス[ソスhソスソスソスソスソスNソスノ撰ソスソスソスソスソスソスソスホソスソスlソス[ソスソスソスソスソストソスソスbソスNソスソスソスソスソスソス
    if ($locked == 1) { rename($tmpfile,$datafile); }
    unlink($tmp_dummy);
    ソスソスソスフコソス[ソスhソスヘ、ソスnソス[ソスhソスソスソスソスソスNソスソスソスgソスpソスソスソストテソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスノソスソスbソスNソスpソスニゑソスソスト、ソスソスソスソスソスPソスツのフソス@ソスCソスソスソスソスソスソスtソスソスソストゑソスソスワゑソスソスB link()ソスヨ撰ソスソスソスソスAsymlink()ソスヨ撰ソスソスソスソスlソスノ撰ソスソスソスソスソスソスソスホ「1ソスvソスソスソスAソスソスソスsソスソスソスソスホ「0ソスvソスソスヤゑソスソスワゑソスソスB
    ソスソスソスソスソスソスソスソスソス鼾ソスソスソスソスソスソスソスlソス[ソスソスソスソスソストゑソスソスワゑソスソスB
    ソスソスソスソスソスソスソスネゑソスソスソスホソスソスlソス[ソスソスソスソスソスネゑソスソスフでゑソスソスソスソスソスユ突ゑソスソス驍アソスニはゑソスソスソスワゑソスソスソスB
    ソスAソスソスソスSソスソスソスYソスソスソスソスソスソス閧ソスソスワゑソスソスソスヒ。
    ソスソスソスソスソスソスソス驍アソスニでフソス@ソスCソスソスソスソスソスソスソスソスソスフに削除ソスソスソスソス謔、ソスネゑソスソスニゑソスソスソスソスソスワゑソスソスソスB

    symlink()ソスヨ撰ソスソスナはなゑソスlink()ソスヨ撰ソスソスソスソスgソスpソスソスソスソスフは、 ソスソスソスンでゑソスsymlink()ソスソスソスTソス|ソス[ソスgソスソスソスネゑソスソスTソス[ソスoソス[ソスソスソスソスソスソスソスソスソス゚でゑソスソスB

  5. ソスソスソスソスソスソスソスネ?
    ソスソスソスソスナ一応ソスフソスソスbソスNソスtソス@ソスCソスソスソスソスソスソスソスソスソスソスソスワゑソスソスソスソスBソスソスソスXソスフ趣ソスソスナは衝突ゑソスソスネゑソスソスBソスソスソスソスソスソスユ突ゑソスソストゑソスソスfソス[ソス^ソスtソス@ソスCソスソスソスヘ破ソスさゑソスネゑソスソスVソスXソスeソスソスソスナゑソスソスB
    #perlソスフプソスソスソスZソスXソスヤ搾ソスソスフテソスソスソス|ソスソスソスソスソス[ソスソスソス成
    $tmp_dummy = "$$\.tmp";
    open(TMP,">$tmp_dummy") || die "Can't create tmp file.\n";
    close(TMP);
    #ソスpソス[ソス~ソスbソスVソスソスソスソスソスソスマ更
    chmod 0666,$tmp_dummy;
    #ソスvソスソスソスZソスXソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスヨデソス[ソス^ソスソスソスソスソスソスソスソス
    #ソスハ々ソスフフソス@ソスCソスソスソスノ擾ソスソスソスソスソスソズので衝突ゑソスソスソスツ能ソスソスソスヘ0ソスノ難ソスソスソスソスソス
    open(TMP,">$tmp_dummy") || die "Can't open tmp file.\n";
    print TMP @DATA;
    close(TMP);
    #ソスソスソスlソス[ソスソスソスソスソスソス^ソスCソス~ソスソスソスOソスソスソスvソスソス
    foreach (1 .. 10) {
        $locked = link($tmp_dummy,$tmpfile);
        if ($locked == 1) { last; }
        sleep(1);
    }
    #ソスnソス[ソスhソスソスソスソスソスNソスノ撰ソスソスソスソスソスソスソスホソスソスlソス[ソスソスソスソスソストソスソスbソスNソスソスソスソスソスソス
    if ($locked == 1) { rename($tmpfile,$datafile); }
    unlink $tmp_dummy; #ソスvソスソスソスZソスXソスeソスソスソス|ソスソスソスソスソス[ソスソスソス除ソスソスソスソス
    ソスナは、ソスソスソスソスナ十ソスソスソスナゑソスソス蛯、ソスソス? ソスソスソスソスソスソスソスAソスソスソスフシソスXソスeソスソスソスナは、10ソスbソスヤソスソスlソス[ソスソスソスフタソスCソス~ソスソスソスOソスソスソスvソスソスAソスソスソスbソスNソスノ撰ソスソスソスソスソスソスソスソス辜奇ソスlソス[ソスソスソスソスソストゑソスソスワゑソスソスソスソスA
    ソスソスソスsソスソスソスソスソス鼾ソスヘ、ソスNソスソスソスCソスAソスソスソスgソスソスソスソスフソスソスNソスGソスXソスgソスソスソスLソスソスソスソスソスZソスソスソスソスソスソストゑソスソスワゑソスソスワゑソスソスB
    ソスソスソスLソスナ使ソスpソスソスソストゑソスソスソスTソス[ソスoソス[ソスナゑソスソスソスソスAソスyソス[ソスWソスソスソス\ソスソスソスソスソスソス骼橸ソスヤゑソスソスxソスソスソスネゑソスソストゑソスソスワゑソスソスワゑソスソスフで、ソスiソスソスソスノ待ゑソスソスソスソスソスけソスノゑソスソスsソスソスソスワゑソスソスソスB ソスソスソスソスソスソスソスソスソスソスソス@ソスヘなゑソスソスソスソスフでゑソスソス蛯、ソスソス?

  6. ソスvソスソスソスZソスXソス`ソスFソスbソスN
    ソスOソス゚までは、link()ソスナソスソスlソス[ソスソスソスフタソスCソス~ソスソスソスOソスソスソスvソスソスソストゑソスソスワゑソスソスソスソスソスソスAソスソスソスソスナは低速ソスナゑソスソスB ソスソスソスソスソスニ托ソスソスソスソス^ソスCソス~ソスソスソスOソスソスソスソスソスtソスソスソスAlink()ソスソス1ソスソスナ撰ソスソスソスソスソスソスソス謔、ソスノゑソスソストみまゑソスソス蛯、ソスB link()ソスソス1ソスソスナ撰ソスソスソスソスソスソスソスホ、ソスソスソスlソス[ソスソスソスソスソスソスソスソスソスノ趣ソスソスsソスナゑソスソスワゑソスソスB
    #ソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスソスソスソスソスンゑソスソスソスホ托ソスソスフプソスソスソスZソスXソスソスソスソスソスbソスNソスソスソストゑソスソスソス
    $tmpflag = 1; #ソスeソスソスソス|ソスソスソスソスソス[ソスフ擾ソスソスソスソスソス
    if (-f $tmpfile) {
        $tmpflag = 0; #ソスeソスソスソス|ソスソスソスソスソス[ソスソスソスLソスソスホ托ソスソスフプソスソスソスZソスXソスソスソスソスソスbソスNソスソス
        foreach (1 .. 10) {
            sleep(1);
            #1ソスbソスソス1ソスソスト趣ソスソスソスソスAソスeソスソスソス|ソスソスソスソスソス[ソスソスソスネゑソスソスネゑソスホ費ソスソスoソスソスソスソス
            unless (-f $tmpfile) { $tmpflag = 1; last; }
            #10ソスbソスヤトソスソスソスCソスソスソストゑソスソスハ目ならリソスNソスGソスXソスgソスソスソスLソスソスソスソスソスZソスソス
        }
    }
    ソスソスソスフコソス[ソスhソスソスヌ会ソスソスソスソス驍アソスニで、ソスヌゑソスソスソスソスハ目なら無ソスハなコソス[ソスhソスヘ趣ソスソスsソスソスソスネゑソスソスVソスXソスeソスソスソスフ出ソスソスソスソスソスナゑソスソスB

  7. ソスソスソスソス
    #ソスソスソスフプソスソスソスZソスXソスフソスソスbソスNソスソスヤゑソスソス`ソスFソスbソスN
    foreach (1 .. 10) {
        #1ソスbソスソス1ソスソスト趣ソスソスソスソスAソスeソスソスソス|ソスソスソスソスソス[ソスソスソスネゑソスソスネゑソスホ費ソスソスoソスソスソスソス
        unless (-f $tmpfile) { $tmpflag = 1; last; }
        $tmpflag = 0; #ソスeソスソスソス|ソスソスソスソスソス[ソスソスソスLソスソスホ托ソスソスフプソスソスソスZソスXソスソスソスソスソスbソスNソスソス
        sleep(1);
    }
    #10ソスbソスヤトソスソスソスCソスソスソストゑソスソスハ目ならリソスNソスGソスXソスgソスソスソスLソスソスソスソスソスZソスソス
    if ($tmpflag == 1) {
        #perlソスフプソスソスソスZソスXソスヤ搾ソスソスフテソスソスソス|ソスソスソスソスソス[ソスソスソス成
        $tmp_dummy = "$$\.tmp";
        open(TMP,">$tmp_dummy") || die "Can't create tmp file.\n";
        close(TMP);
        #ソスpソス[ソス~ソスbソスVソスソスソスソスソスソスマ更
        chmod 0666,$tmp_dummy;
        #ソスvソスソスソスZソスXソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスヨデソス[ソス^ソスソスソスソスソスソスソスソス
        #ソスハ々ソスフフソス@ソスCソスソスソスノ擾ソスソスソスソスソスソズので衝突ゑソスソスソスツ能ソスソスソスヘ0ソスノ難ソスソスソスソスソス
        open(TMP,">$tmp_dummy") || die "Can't open tmp file.\n";
        print TMP @DATA;
        close(TMP);
        #ソスソスソスlソス[ソスソスソスソスソスソス^ソスCソス~ソスソスソスOソスソスソスvソスソス
        #ソスソスソスbソスNソスソスソスソストゑソスソスネゑソスソスソスホソスソスbソスNソスソスソスソス
        foreach (1 .. 10) {
            if (link($tmp_dummy,$tmpfile) == 1) {
                #ソスnソス[ソスhソスソスソスソスソスNソスノ撰ソスソスソスソスソスソスソスホソスソスlソス[ソスソスソスソスソストソスソスbソスNソスソスソスソスソスソス
                rename($tmpfile,$datafile);
                chmod 0644,$datafile;
                last;
            }
            sleep(1);
        }
        unlink $tmp_dummy; #ソスvソスソスソスZソスXソスeソスソスソス|ソスソスソスソスソス[ソスソスソス除ソスソスソスソス
    }

  8. WindowsソスTソス[ソスoソス[ソスソスソスlソスソスソスソス ソスソスソスソスナUソスmソスhソスwソスpソスヘ擾ソスソスXソスフ趣ソスソスナは会ソスソスネゑソスソスソスソスbソスNソスtソス@ソスCソスソスソスソスソスソスソスソスソスソスソスワゑソスソスソスソスソスソスA link()ソスヨ撰ソスソスソスAsymlink()ソスヨ撰ソスソスソスソスTソス|ソス[ソスgソスソスソスネゑソスソスmソスsソスTソス[ソスoソスナは使ソスpソスoソスソスソスワゑソスソスソスB ソスソスソスソスソスナ搾ソスソスxソスヘ、WindowsソスTソス[ソスoソスナゑソスソスgソスpソスナゑソスソスソスソスソス@ソスソスソスlソスソスソストみまゑソスソス蛯、ソスBソスlソスソスソスソスソスヘまゑソスソスソスソスソスソスソスソスソスソスナゑソスソスB
    #ソスソスソスハのテソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスソスソスソスソスンゑソスソス驍ゥソス調べゑソス
    foreach (1 .. 10) {
        #ソスソスソスソスソスソスホソスソスbソスNソスソスソスソストゑソスソスネゑソスソスフで奇ソスソス立てて脱ソスoソスソスソスソス
        unless (-f $tmpfile) { $tmpflag = 1; last; }
        #ソスLソスソスホソスソスbソスNソスソスソスネので奇ソスソスソスソスソスソスソスソスト1ソスbソスメゑソス
        $tmpflag = 0;
        sleep(1);
    }
    #ソスソスソスソスソスソスソスソスソストゑソスソスソスホ、ソスソスソスbソスNソスソスソスソスソスs
    if ($tmpflag) {
        $tmpflag = 0;
        #ソスvソスソスソスZソスXソスeソスソスソス|ソスソスソスソスソス[ソスソスソス成ソスソスソスト擾ソスソスソスソスソスソスソス
        $tmp_dummy = "$$\.tmp";
        if (open(TMP,">$tmp_dummy")) {
            close(TMP);
            chmod 0666,$tmp_dummy;
            if (!open(TMP,">$tmp_dummy")) { &error(bad_tmpfile); }
            print TMP @DATA;
            close(TMP);
            #ソスソスソスlソス[ソスソスソスフタソスCソス~ソスソスソスOソスソスソスvソスソス
            foreach (1 .. 10) {
                #ソスOソスフゑソスソス゚にゑソスソスソスソスソスxソスソスソスbソスNソス調べゑソス
                unless (-f $tmpfile) {
                    #ソスソスソスbソスNソスtソス@ソスCソスソスソスソスソスソスソスソスソスソスホ作成ソスソスソストソスソスbソスNソスソスソスソス
                    if (open(TMP,">$tmpfile")) {
                        print TMP "$datafile TMP File\n";
                        close(TMP);
                        #ソスソスソスbソスNソスソスソストゑソスソスソスヤにソスソスlソス[ソスソスソスソスソスソス
                        rename($tmp_dummy,$datafile);
                        #ソスソスソスbソスNソスpソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスソスソス除ソスソスソスソスiソスソスソスbソスNソスソスソスソスソスj
                        unlink $tmpfile;
                        $tmpflag = 1;
                        last;
                    }
                }
                #ソスソスソスbソスNソスソスソスネらリソスlソス[ソスソスソスナゑソスソスネゑソスソスフで1ソスbソスメゑソス
                sleep(1);
            }
            #ソスソスソスソスソスAソスソスソスlソス[ソスソスソスノ趣ソスソスsソスソスソストダソス~ソス[ソスフテソスソスソス|ソスソスソスソスソス[ソスソスソスcソスソスソストゑソスソスソスソスソス除ソスソスソスソス
            if (-f $tmp_dummy) { unlink $tmp_dummy; }
        }
    }
    ソスソスソスソスソスWindowsソスTソス[ソスoソスナゑソスソスルぼ奇ソスソスソスソスネソスソスbソスNソスソスソスoソスソスソスソスナゑソスソス蛯、ソスB

    WindowsソスTソス[ソスoソスフにはゑソスソスナに托ソスソスンゑソスソスソスtソス@ソスCソスソスソスソスソスノソスソスlソス[ソスソスソスナゑソスソスネゑソスソスン抵ソスノなゑソスソストゑソスソス髟ィソスソスソスソスソスソスワゑソスソスB
    ソスソスソスフ場合ソスヘ、ソスeソスソスソス|ソスソスソスソスソスソスソス成ソスソスソス驛搾ソスbソスNソスVソスXソスeソスソスソスヘ使ソスpソスナゑソスソスワゑソスソスソスB
    ソスソスソスソスソスソスソスbソスNソス\ソスヘは低下ソスソスソスワゑソスソスソスソスAソスソスソスフ包ソスソス@ソスナソスソスbソスNソスナゑソスソスワゑソスソスB

  9. ソスソスソスlソス[ソスソスソスAPerlソスフプソスソスソスZソスXソスソスソス謫セソスナゑソスソスネゑソスソスTソス[ソスoソスソスソスlソスソスソスソス ソスソスソスソスソスソスソスTソス[ソスoソスフ抵ソスソスノゑソスPerlソスフプソスソスソスZソスXソスヤ搾ソスソスソスソス謫セソスナゑソスソスネゑソスソスソスソスソスソスLソスソス謔、ソスナゑソスソスB
    ソスソスソスソスソスナ、ソスソスソスソスソスソスソスbソスNソスソスソスソス\ソスヘは低下ソスソスソスワゑソスソスソスソスgソスpソスナゑソスソス驛搾ソスbソスNソスVソスXソスeソスソスソスソスソスlソスソスソスワゑソスソス蛯、ソスB
    ソスソスソスソスヘ、link()ソスソスAsymlink()ソスソスソスgソスpソスソスソスワゑソスソスソスフでほとゑソスヌのサソス[ソスoソスナ有ソスソスソスナゑソスソスB
    sub data_save {
        local($tmpfile) = $datafile;
        $tmpfile =~ s/(\w+)\.\w+$/$1\.tmp/i;         local($flag) = 0;
        #ソスPソスOソスbソスメゑソスソストゑソスソスソスソスソスソスソスソス゚なゑソスソス鼾ソスヘ抵ソスソス゚ゑソス
        foreach (1 .. 10) {
            #ソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスソスソスソスソスンゑソスソス驍ゥソスmソスF
            unless (-f $tmpfile) {
                #ソスソスソスbソスNソスtソス@ソスCソスソスソスソスソスソスソスソスソスソスホ作成ソスソスソストソスソスbソスNソスソスソスソス
                if (open(TMP,">$tmpfile")) {
                    print TMP "$datafile TMP File\n";
                    close(TMP);
                    #ソスソスソスbソスNソスソスソストゑソスソスソスヤに擾ソスソスソスソスソスソスソス
                    if (open(TMP,">$datafile")) {
                        print TMP @DATA;
                        close(TMP);
                        $flag = 1;
                        #ソスソスソスbソスNソスpソスeソスソスソス|ソスソスソスソスソス[ソスtソス@ソスCソスソスソスソスソス除ソスソスソスソスiソスソスソスbソスNソスソスソスソスソスj
                        unlink $tmpfile;
                        last;
                    }
                }
            }
            #ソスソスソスbソスNソスソスソスネゑソスPソスbソスメゑソス
            sleep(1);
        }
        $flag;
    }

  10. ソスナ鯉ソスソス
    ソスソスソスソスソスソスソスRソスsソスナ済ゑソスナゑソスソスソスソスソスソスソスソスソスソスンコソス[ソスhソスソスソスソスソスソスネに抵ソスソスソスソスネゑソスソストゑソスソスワゑソスソスワゑソスソスソスソスソスソスAソスソスソスハ費ソスソスQソスナゑソスソスB
    ソスソスソスrソスソスソス[ソスネソスソスbソスNソスネら速ソスxソスソス瘟コソスソスソスソスソス驍セソスソスソスナ、ソスソスソスハゑソスソスソスソスメでゑソスソスワゑソスソスソスB
    ソスソスリなデソス[ソス^ソスヘ、ソスソスソスソスソスハ面倒ソスナゑソスソスソスソスヘなソスソスbソスNソスtソス@ソスCソスソスソスソスソスgソスpソスソスソス驍アソスニゑソスソスソスソスソスソス゚ゑソスソスワゑソスソスB

    ソスナ新ソスナは、ソスソスソスTソスCソスgソスソスソスtソスソスソス[ソスナ鯉ソスソスJソスソスソストゑソスソスソスワゑソスソスヨ撰ソスソスソスソスCソスuソスソスソスソスソスuperl-lib.plソスvソスノ趣ソスソス^ソスソスソスソストゑソスソスワゑソスソスB
Copyright 2004 Terra. All rights reserved. No reproduction or republication without written