[PERL]- traduire du shell en perl

tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   -  
tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Avis aux habitués!!
je suis en train de me mordre les doigts sur une traduction d'un programme en perl:

cat $Conf_file | while read line
do
cat $File.sort | grep -v -w "$line" > $File.tmp
cat $File.tmp > $File.sort
done
cat $File.sort | sort >> $File.focal

Merci de tout coeur!!!
A voir également:

90 réponses

Précédent
Réponse 81 / 90
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
par curiosité: as tu tester cette solution??

oui, je l'ai testé, mais c'est plutôt à toi de le faire ;-)
0
Réponse 82 / 90
tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   4
 
:)

c'est juste que je peux tester juste au boulot et je voulais savoir avant demain ;)))
0
Réponse 83 / 90
tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   4
 
le soucis est que je ne peut pas afficher "$e:$_\n";" car ton script ne m'affiche que les lignes qui ont été enlevée mais il manque d'affichier avec, la ligne de .conf qui a permis de la retirée (ici $_ qui n'est pas sauvegardée)
0
Réponse 84 / 90
tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   4
 
par exmple: "ntpd: listening interface 123.0.0.0 enlevée par ntpd:listening"
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 85 / 90
tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   4
 
j ai fais ceci mais j'ai beaucoup de messages qui ne vont ni dans tmp ni dans debug: 


 	my @conf=<CONF>;
	chomp @conf;
	while(my $e=<ANALYSE>){
		print TMP $e unless grep
	  	{
 	    if($_=~/\|/){
	      my ($x,$y)=split /\|/,$_;
	      $e=~ /$x.*$y/;
	      if($e=~ m/$x.*$y/){
		      print DEBUG "$e:$_\n";
		   }
 	    }else{
	      $e=~/$_/;
	      if($e=~ m/$_/){
		      print DEBUG "$e:$_\n";
	      }
	    }
	  } @conf;
	}
0
Réponse 86 / 90
tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   4
 
.analyse
Apr 22 10:59:22 vmonitor Server Administrator: line
Apr 22 10:58:49 vmonitor ntpd: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 E
DT 2006 (1)
Apr 22 10:58:49 vmonitor ntpd: precision = 18.000 usec
Apr 22 10:58:49 vmonitor ntpd: Listening on interface wildcard, 0.0.0.0#1
23
Apr 22 10:58:49 vmonitor ntpd: Listening on interface wildcard, ::#123
Apr 22 10:58:49 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123
Apr 22 10:58:49 vmonitor ntpd: Listening on interface eth0, 172.16.15.39#

.conf
ntpd: precision
ntpd: Listening on
ntpd: ntpd

.tmp
RIEN alors qu'on devrait avoir : Apr 22 10:59:22 vmonitor Server Administrator: line

.debug
RIEN alors qu'on devrait avoir:
Apr 22 10:58:49 vmonitor ntpd: precision = 18.000 usec
:ntpd: precision
Apr 22 10:58:49 vmonitor ntpd: Listening on interface wildcard, 0.0.0.0#1
23
:ntpd: Listening on
Apr 22 10:58:49 vmonitor ntpd: Listening on interface wildcard, ::#123
:ntpd: Listening on
Apr 22 10:58:49 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123
:ntpd: Listening on
Apr 22 10:58:49 vmonitor ntpd: Listening on interface eth0, 172.16.15.39#
:ntpd: Listening on

Quelqu'un saurait d'où cela peut provenir.
Cet exemple est copié mot pour mot de mon fichier
0
Réponse 87 / 90
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Le problème, c'est qu'au début tu as demandé une chose et en final, tu veux des choses en plus.
Quand j'ai écrit le code je me suis limité à ta demande.

Voici pour tester
#!/usr/bin/perl
use strict;use warnings;

open CONF,"fichier.conf"       or die "E/S : $!\n";
open ANALYSE,"fichier.analyse" or die "E/S : $!\n";
open TMP,">fichier.tmp"        or die "E/S : $!\n";
open DEBUG,">debug.log"        or die "E/S : $!\n";

my @conf=<CONF>;
chomp @conf;

while(my $e=<ANALYSE>){
 chomp($e);
 print TMP $e,"\n" unless grep {
     if($_=~/\|/){
        my ($x,$y)=split /\|/,$_;
        $y=~s/^\s*(.*)/$1/;
        print DEBUG "$e ::: $_\n" if $e=~/${x}.*$y/;
     }else{
        print DEBUG "$e ::: $_\n" if $e=~/$_/;
     }
 } @conf;
}

__END__
chez moi ça marche

Toutefois il y a des doublons

Apr 11 16:51:34 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123 ::: ntpd:
Apr 11 16:51:34 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123 ::: ntpd: Listening on
Apr 11 16:51:34 vmonitor ntpd: Listening on interface eth0, 172.16.15.39#123 ::: ntpd:
Apr 11 16:51:34 vmonitor ntpd: Listening on interface eth0, 172.16.15.39#123 ::: ntpd: Listening on
Apr 11 16:51:34 vmonitor ntpd: kernel time sync status 0040 ::: ntpd:
Apr 11 16:51:34 vmonitor ntpd: kernel time sync status 0040 ::: ntpd: kernel time sync


Ce qui est normal puisque ntpd: qui est en début de fichier .conf se trouve aussi dans les lignes suprimées
0
Réponse 88 / 90
tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   4
 
pourquoi pour des mes lignes tu a des resultas différents?

Apr 11 16:51:34 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123 ::: ntpd: Apr 11 16:51:34 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123 ::: ntpd: Listening on
0
Réponse 89 / 90
tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   4
 
tu vois ce script marche par contre si avec logger je rajoute une ligne comme :
Apr 22 11:26:21 vmonitor ALLO: test

cela n'est pris en compte nulle part, ni dans tmp ni dans debug
0
tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   4
 
et pour ce probleme de perte de message?

je ne peux plus rajouter des lignes à .debug dès que j'ai lancé une fois le script.
Ni .tmp, ni .debug ne se remplisse alors que soit l'un soit l'autre est obliger de se remplir!!

alala on vient de dépasser 100 messages sur ce sujet!!! :)
0
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
ecoute, je te l'ai déjà dit
le script fonctionne sur les fichier que tu m'as donnée
mais je te rappelle aussi que j'ai fait un copier / coller depuis le mail

en revanche chez toi le script ne fonctionne pas
donc on ne travaille pas sur les même fichiers

en ce cas j'ai besoin que tu me donne tes fichiers par pièce jointe et pas par copier/coller
0
tonixm Messages postés 127 Date d'inscription   Statut Membre Dernière intervention   4 > lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention  
 
je t'ai envoyer par mail en piece jointe
0
Réponse 90 / 90
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Ce ne sont des résultat différents. Ce sont des doublons

dans ton fichier .conf tu as
ntpd:
ntpd: Listening on
dans .archive tu as
Apr 11 16:51:34 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123
Donc la ligne est eliminé puisque
ntpd: existe dans la ligne
ntpd: Listening on existe dans la ligne
0

Discussions similaires

Mon Prenom en Elfique ???
Paul.2b -
antoine -

13 réponses
pourquoi installer classic shell
zaza -
zaza -

4 réponses
Traduction Elfique -> Français
Wallou23 -
Wallou23 -

4 réponses
Classic shell est il sain?
Mots croisés -
Mots croisés -

17 réponses