Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > создать временный бэкап файла в той же папке?

Автор: leniviy 1.5.2013, 15:19

Нужно скопировать файл, чужая прога его модифицирует, затем заместить оригинальный файл.
так правильно?:

Код


use File::Temp qw/tempfile/;
use File::Basename qw/dirname/;

my $filename = "foo.txt";

open(my $fh_src, "<", $filename) or die "cannot open < $filename: $!";
my ($fh_dst, $bkconfig) = tempfile(DIR => dirname($filename)) or die "cannot backup config: $!";
binmode $fh_src;
binmode $fh_dst;
while (<$fh_src>) {
  print { $fh_dst } $_ or die "cannot write backup config: $!";
}
close($fh_src);
close($fh_dst);

Автор: DurRandir 1.5.2013, 15:27

File::Temp вы нашли, а File::Copy?)