Ce qui est écrit dans un fichier écrit dans un autre

Question

J'ai un fichier et j'ai besoin que tout ce qui est écrit dans un laps de temps soit écrit dans un second fichier.

Quelle est la meilleure façon de le faire? Ouvrez un thread qui va lire le fichier et le faire?

Des idées?

Answer 1

L'tee utilitaire peut-être ce que vous cherchez:

#! /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: $!"; 

run Exemple:

$ ./write-both 

$ cat file1 
0 
7 
5 
8 
2 

$ cat file2 
0 
7 
5 
8 
2

Answer 2

Sonne comme un emploi pour File::Copy

Answer 3

Sonne comme un emploi pour tail -f ou poor man's tail -f emulation.