12/02/11 16:36:44.23 発信元:221.189.48.44 0
そのSETTING.TXT等をバックアップするのに_cpという関数を使っているのだが
それがもう少し賢ければ捗るのかしら
sub _cp
{
local $/;
open(local *SRC, $_[0]) or return;
open(local *DST, '>', $_[1]) or close(SRC), return;
my $st = stat(*SRC);
print DST <SRC>;
close(DST);
close(SRC);
chmod($st->mode, $_[1]);
utime($st->atime, $st->mtime, $_[1]);
1;
}