1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
#!/usr/bin/perl
use strict;
use warnings;
my $fichier_src_t = "/home/pi/projet/final/TemperatureRelevee.txt";
my $fichier_src_b = "/home/pi/projet/final/donneessource2.txt;
my $fichier_dst = "/home/pi/projet/final/lecture_freq_temp.txt;
my $fichier_e;
my $fichier_s;
my $ligne;
my $var = 1;
open ($fichier_s, '>>', $fichier_dst) or die "erreur";
while ($var < 10)
{
open ($fichier_e, '<', $fichier_src_t) or die "erreur : $!\n";
while($ligne = <$fichier_e> )
{
chomp($ligne) ;
}
close $fichier_dst;
sleep 10;
++$var;
}
close ($fichier_s) |
Partager