什么写在一个文件写入另一个文件

时间:2010-07-11 16:17:17

标签: perl

我有一个文件,我需要在一段时间内写入该文件的所有内容写入第二个文件。

最好的方法是什么?打开一些将读取文件的线程并执行此操作?

有什么想法吗?

3 个答案:

答案 0 :(得分:3)

您可能正在寻找tee实用程序:

#! /usr/bin/perl

use warnings;
use strict;

my @files = qw/ file1 file2 /;

open my $fh, "| tee @files >/dev/null"
  or die "$0: start tee failed: $!";

print $fh "$_\n" for map int rand 10, 1 .. 5;

close $fh or warn "$0: close tee: $!";

示例运行:

$ ./write-both

$ cat file1
0
7
5
8
2

$ cat file2
0
7
5
8
2

答案 1 :(得分:0)

听起来像是tail -fpoor man's tail -f emulation的作业。

答案 2 :(得分:-3)

听起来像是File::Copy

的工作