Discussion :

[bkam20]

Bonjour,

Je débute dans la programmation et j’essaye de m’entraîner avec des projets motivant et intéressant. Je me suis lancé le défi de crée une station météo connectée avec un Raspberry.
J’ai différent capteurs (température, hygrométrie, vent). Ils ont chacun leurs fichiers où sont enregistrés leurs données toute les 10 seconde. Mon problème est que je n’arrive pas à crée un scripte PERL pour copier les dernières lignes de ces fichiers toute les 10 minutes pour les réunir dans un autre dossier sur une ligne de 12 octets pour pouvoir les envoyer sur mon réseau.
Merci d’avance pour votre aide.

[Lolo78]

Bonjour,

il faudrait plus de détails sur la façon dont tu t'y prends et sur ce que tu n'arrives pas à faire. Comme ça, je ne vois pas de difficulté majeure, mais peut-être que quelque chose m'échappe sur ton besoin, ou peut-être que tu t'y prends de façon compliquée. Montre ton code et explique ce qui ne marche pas comme tu le voudrais.

[bkam20]

Bonjour,

Tout compte fait j'ai fait le script en BASH:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
*********************************************************************************
#!/bin/bash
 
n=0
 
while [ $n -le 5 ]
do
 
        tail -1 ~/projet/final/TemperatureRelevee.txt | tail -1 >> ~/projet/final/lecture_capteurs.txt;
        sleep 10;
        n=$(( n+1 ))
 
done
*********************************************************************************

Maintenant il faut que je compète ce script pour copier la dernière ligne d'un autre fichier (hygrométrie) et de la copier sur la même ligne (a la suite) que le capteur précédant.
Pour écrire dans le fichier "lecture_capteurs.txt":

Temperature1 hygrométrie1
Temperature2 hygrométrie2
Temperature3 hygrométrie3
Temperature4 hygrométrie4
.........

Petit a petit, je crée mon premier script.

[Lolo78]

Bonsoir,

tu fais comme tu veux, mais, pour moi, Perl est incomparablement plus puissant (et plus pratique) que bash, surtout pour manipuler des données textuelles.

Pour lire les dernières lignes d'un fichier texte, tu peux éventuellement faire un tail système, mais il existe un module Perl permettant de lire un fichier à l'envers: http://search.cpan.org/~uri/File-Rea...adBackwards.pm.

Pour le reste, tant que tu ne donnes pas des exemples des fins de fichiers que tu lis et du résultat que tu désires obtenir, on aura du mal à t'aider.

[bkam20]

Bonjour,

Je bloque sur mon script:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/use/bin/perl
 
use warnings;
use strict;
 
my $fichier_src_t = "/home/Bureau/donneessource1.txt;
my $fichier_src_b = "/home/Bureau/donneessource2.txt;
my $fichier_dst = "/home/Bureau/donneesfinal.txt;
my $var = 1;
 
while ($var < 5)
{
    tail -f $fichier_src_t $fichier_src_b;
    my $fichier = <>;
    chomp $fichier;
    open ($fichier, '>>', $fichier_dst) or die "erreur";
    sleep 60;
    ++$var;
}
close $fichier_dst;

Que pensez-vous de ce script?
merci

[Lolo78]

Bonjour,

déjà, ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
tail -f $fichier_src_t $fichier_src_b;

n'est pas du code Perl et ne peut donc marcher tel quel dans un script Perl. Mais, depuis un script Perl, tu peux éventuellement appeler une commende système comme tail, moyennant une syntaxe d'appel adéquate, comme par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $result = `tail -e $fic1`;

ce qui mettra le texte renvoyé par la commande taildans la variable $result.

Au vu de ton code, j'essaie de deviner ce que tu veux faire et je peux proposer quelque chose comme ceci (testé de façon très incomplète, car ne j'ai pas de données de test en entrée):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use warnings;
use strict;
 
my $fichier_dst = "/home/Bureau/donneesfinales.txt";     # ouverture fichier de sortie
open my $OUT, ">", $fichier_dst or die "Ouverture impossible de $fichier_dst $!";
 
my @fich_in = qw { /home/Bureau/donneessource1.txt /home/Bureau/donneessource2.txt };   # 2 fichiers en entrée
for (1..5) {                                             # procéder à la lecture 5 fois
    my @result;
    push @result, `tail -1 $_ ` for @fich_in;            # lecture de la dernière ligne de chacun des fichiers en entrée
    chomp @result;                                       # retirer les caractères de fin de ligne
    print $OUT "@result \n";                             # imprimer une ligne sur le fichier de sortie
    sleep 60;
}
close $OUT;