[PERL]- traduire du shell en perl Fermé

Question

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!!!

tonixm · Answer

j'ai essayé cela mais sans succès:


	local ($line); # déclaration locale d'une variable
 	foreach $line ($conf_file){
	 	# On test $file.analyse pour savoir s'il ne contient pas les lignes $line
 		# et on met dans $file.tmp les éléments de $file.analyse différents de $line
  		if($file_analyse!=~ m/$line/i){  
 			system("cat $file_analyse > $file_tmp");
 	  	}
 	  	system("cat $file_tmp > $file_analyse");
 	}
 	system("cat $file_analyse | sort >> $file_focal");

tonixm · Answer

personne qui saurait??

tonixm · Answer

au secours!!! lol

lami20j · Answer

Salut,

vu aussi l'autre message je pense qu'on a un p'tit problème ;-))

ce n'est pas comme ça qu'on traduit un programme.

tu dois expliquer ce qu'il fait et ensuite on verrra

tonixm · Answer

je sais je suis mal en point

lami20j · Answer

ce que t'as fait dans ton message ce n'est pas du perl
tu fait appel aux commandes système grâce à la fonction system()

si tu veux vraiment du pur Perl, explice ce que tu dois traiter et ce que tu veux obtenir et je vais t'aider

à toi

tonixm · Answer

merci.

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 

Il faut que je lise chaque ligne du fichier.sort (qui est le fichier à traiter) et je le compare a toutes les lignes de mon fichier de conf qui est $conf_file. 
Si mon fichier.sort ne ressemble a aucune lignes du fichier de conf je met cette ligne provisoirement dans un fichier .tmp
Je fais cela pour toutes les lignes de mon fichier.sort.

Puis je met le fichier.tmp dans le .sort du départ en concaténant et en écrasant ce qu'il y avait au debut.

Et finalement je concatène le fichier.sort après l'avoir trié par ordre alphabétique dans le fichier.focal

j'espere avoir été clair sinon demande moi

tonixm · Answer

qui aurait une solution en perl?

tonixm · Answer

d'accord je retiens!!! tu m'oubli pas!!!!
en tous cas merci !!

lami20j · Answer

tu m'oubli pas!!!! 
c'est vrai que j'ai la mémoire courte et en plus je suis paresseux
toutefois je ferai un effort pour ne pas oublié ;-))

tonixm · Answer

bonjour a tous!!!!

tonixm · Answer

Qui saurait faire cela en perl:
Il faut que je lise chaque ligne du fichier.sort (qui est le fichier à traiter) et je le compare a toutes les lignes de mon fichier de conf qui est $conf_file. 
Si mon fichier.sort ne ressemble a aucune lignes du fichier de conf je met cette ligne provisoirement dans un fichier .tmp 
Je fais cela pour toutes les lignes de mon fichier.sort. 

Puis je met le fichier.tmp dans le .sort du départ en concaténant et en écrasant ce qu'il y avait au debut. 

Et finalement je concatène le fichier.sort après l'avoir trié par ordre alphabétique dans le fichier.focal

lami20j · Answer

Je ne comprends pas cette partie  en concaténant et en écrasant ce qu'il y avait au debut. 


que veut tu faire exactement?
montre un exemple.

tonixm · Answer

oui je veux dire par là faire une ecriture en ecrasant ce qu'il y avait au debut: > écriture (ecrasement) 

Début:
file.tmp
aaa
ee
ff

file.sort
grrg
hhyj
zfe"
rg

Donc je veux faire:

file.tmp (on y touche pas)
aaa
ee
ff

file.sort
aaa
ee
ff

tonixm · Answer

pour l'instant je suis là: Il faut que je lise chaque ligne du fichier.sort (qui est le fichier à traiter) et je le compare a toutes les lignes de mon fichier de conf qui est $conf_file: open (FICANA, "+>$file_analyse"); pen (FICCONF, "$conf_file"); while($analyse=){ # On test $file.analyse pour savoir s'il ne contient pas les lignes $line # et on met dans $file.tmp les éléments de $file.analyse différents de $line while($ligne=){ if($analyse!=~ m/\$ligne/){

tonixm · Answer

le perl est moi :(

tonixm · Answer

edit: et moi

lami20j · Answer

patience ;-)

c'est promis pour ce soir ;-))

tonixm · Answer

hihi!!
d'accord merci

tonixm · Answer

par exemple:

fichier.analyse
vmonitor ntpd: kernel time sync status 0040
vmonitor ntpd: synchronized to LOCAL(0), stratum 10
vmonitor ntpd: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 E
DT 2006 (1)
vmonitor ntpd: precision = 18.000 usec
vmonitor ntpd: Listening on interface wildcard, 0.0.0.0#1
23
vmonitor patate: chou

fichier.conf
vmonitor ntpd: kernel time 
vmonitor ntpd: synchronized to 
vmonitor ntpd: ntpd 4.2.0a@1.1190-r 
vmonitor ntpd: precision =
vmonitor ntpd: Listening on 

Alors en fait je veux lire chaque ligne de mon fichier.analyse et si elle ne correspond ou ressemble de près a aucune ligne de mon fichier.conf je la met dans un fichier .tmp.
Ensuite je test la ligne suivante de .analyse et jusqqu'à la fin du fichier.

ici fichier.tmp
vmonitor patate: chou

Dès avoir fini de tester toutes les lignes de mon .analyse je remet tout le fichier .tmp dans .analyse en ecrasant le reste:

fichier.analyse
vmonitor patate: chou

après avoir fini je trie dans l'ordre alpha le fichier .analyse (ici il n'y a rien a faire) et je met tout cela a la suite du fichier.focal

Voila!!

tonixm · Answer

alors personne sait??

lami20j · Answer

Salut,

en fait tu compliques les choses

dans ce cas vu que les lignes du fichier.conf peuvent répresenté une partie des lignes du fichiers analyse, le problème doit être poser à l'invers

pour chaque ligne de fichier.conf s'il correspond a une ligne de fichier analyse......

tonixm · Answer

oui enfin sa reste dans le meme ordre idée.
tu voi ce ke je veux dire koi!!!!  ;)

lami20j · Answer

Et voici tes patates ;-)lami20j@debian:~/trash$ cat compfic.pl #!/usr/bin/perl use strict;use warnings; open CONF,"fichier.conf" or die "E/S : $! "; open ANALYSE,"fichier.analyse" or die "E/S : $! "; open TMP,">fichier.tmp" or die "E/S : $! "; my @conf=; chomp @conf; while(my $e=){ chomp($e); print TMP $e," " unless grep { $e=~/$_/ } @conf; } __END__ lami20j@debian:~/trash$ cat fichier.analyse vmonitor ntpd: kernel time sync status 0040 vmonitor ntpd: synchronized to LOCAL(0), stratum 10 vmonitor ntpd: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EDT 2006 (1) vmonitor ntpd: precision = 18.000 usec vmonitor ntpd: Listening on interface wildcard, 0.0.0.0#123 vmonitor patate: chou lami20j@debian:~/trash$ cat fichier.conf vmonitor ntpd: kernel time vmonitor ntpd: synchronized to vmonitor ntpd: ntpd 4.2.0a@1.1190-r vmonitor ntpd: precision = vmonitor ntpd: Listening on lami20j@debian:~/trash$ perl compfic.pl lami20j@debian:~/trash$ cat fichier.tmp vmonitor patate: chou lami20j@debian:~/trash$

tonixm · Answer

alala merci!!!
si ca marche je te nomme dans mon rapport de stage!!!!!   :))
je vais tester cela demain au boulot avec imatience pour voir si tout se passe bien!!

lami20j · Answer

tu me tiendras au courant si ça marche ou pas ;-)
bonne soirée

tonixm · Answer

bonne soirée a toi ossi!! 
pas de folie!!!! hihi

tonixm · Answer

alors je viens de tester ton script lami20j mais cela ne passe pas lorsque j'execute le script. j ai donc essayé le script suivant qui passe a l execution mais cette fois ci cela tronque mon fichier.analyse. par la je veux dire qu'il possède 280-350 lignes en moyenne et plus il augmente (car c'est un fichier log) et plus les lignes du debut sont tronquées. Si je ne le met pas dans cette focntion, mon .analyse n'est pas tronqué alors que lorsqu'il rentre dans cette fonction il est tronqué. Je ne voit pas d'ou cela peut venir. Dès lors vu qu'il est tronqué le test par le fichier .conf est imposible!!! Voici ma fonction: open (my $fh_conf, $conf_file) or die("impossible d'ouvrir le fichier $fichier_conf, $! "); close($fh_conf); my @data_temp; my @conf_file= <$fh_conf>; # Lecture fichier analyse open (my $fh_analyse, $file_analyse) or die("impossible d'ouvrir le fichier $fichier_analyse, $! "); while(my $ligne_analyse = <$fh_analyse>) { chomp($ligne_analyse); my $compt = 0; # Lecture fichier conf foreach my $ligne_conf (@conf_file) { chomp($ligne_conf); # comparaison if($ligne_analyse =~ /$ligne_conf/i ) { $compt ++; last; } } if($compt == 0) { push (@data_temp, $ligne_analyse); } } close($fh_analyse); open (my $fh_focal, ">>$file_focal") or die("impossible d'ecrire dans le fichier $fichier_focal, $! "); open (my $fh_analyse2, ">$file_analyse") or die("impossible d'ecrire dans le fichier $fichier_analyse, $! "); foreach my $temp (sort @data_temp) { print {$fh_focal} "$temp "; print {$fh_analyse2} "$temp "; } close($fh_focal); close($fh_analyse2); $keep_length=(&nbLignes ($file_analyse)); unlink ($file_tmp);

lami20j · Answer

Alors peut être que c'est à cause de modificateur /i que ça ne marche pas le code que je t'ai donné #!/usr/bin/perl use strict;use warnings; open CONF,"fichier.conf" or die "E/S : $! "; open ANALYSE,"fichier.analyse" or die "E/S : $! "; open TMP,">fichier.tmp" or die "E/S : $! "; my @conf=; chomp @conf; while(my $e=){ chomp($e); print TMP $e," " unless grep { $e=~/$_/i } @conf; } __END__

tonixm · Answer

meme avec ton script le soucis est le meme: code: open CONF,"$conf_file" or die "E/S : $! "; open ANALYSE,"$file_analyse" or die "E/S : $! "; open TMP,">$file_tmp" or die "E/S : $! "; my @conf=; chomp @conf; while(my $e=){ chomp($e); print TMP $e," " unless grep { $e=~/$_/i } @conf; open (my $fh_analyse1, ">$file_analyse") or die("impossible d'ecrire dans le fichier $file_focal, $! "); open (my $fh_tmp, "$file_tmp") or die("impossible d'ecrire dans le fichier $file_analyse, $! "); while(my $temp= <$fh_tmp>) { print {$fh_analyse1} "$temp "; } close($fh_analyse1); close($fh_tmp); } open (my $fh_focal, ">$file_focal") or die("impossible d'ecrire dans le fichier $file_focal, $! "); open (my $fh_analyse2, ">$file_analyse") or die("impossible d'ecrire dans le fichier $file_analyse, $! "); while( my $analyse=<$fh_analyse2>) { print {$fh_focal} "$analyse "; } close($fh_focal); close($fh_analyse2); $keep_length=(&nbLignes ($file_analyse));

tonixm · Answer

pourquoi cela tronquerai mon fichier.analyse?

lami20j · Answer

ne t'eparpilles pas avec trop de code

teste seulement le code que je t'ai donné et vérifie le résultat
sinon, tu ne t'en sortira pas

n'oublie pas que je n'ai pas les même conditions de test que toi
si je n'ai pas le fichiers, la seule chose que je peux te donner ce sont les tests limités

tonixm · Answer

j suis en train de tester sur ton code. cela me renvoi bien les bonne valeurs dans tmp DU TANT qu'aucune ligne n'est tronquée dans le .analyse sinon cela me renvoi n importe quoi! par contre dans ton script il me manque de après avoir trié de concaténer le .TMP après l'avoir rangé dans l'ordre (sort) dans mon .focal. En bref: my @conf=; chomp @conf; while(my $e=){ chomp($e); print TMP $e," " unless grep { $e=~/$_/i } @conf; } CONCATENER .TMP APR7S AVOIR FAIT UN PTIT SORT DANS MON .FOCAL

tonixm · Answer

Je ne vais pas te mettre mon .analyse en entier car il fait 285 lignes.
C'est bizarre quand meme que cela le tronque seulement s'il rentre dans ce script

Bon alé .analyse:

PATATE: choux
CAROTTE: endive
TOMATE: endive
TOMATE: endive
TOMATO: endive
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: precision = 18.000 usec
ntpd: precision = 17.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 17.000 usec
ntpd: precision = 17.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 19.000 usec
ntpd: precision = 17.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 17.000 usec
ntpd: precision = 17.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 17.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: Listening on interface wildcard, 0.0.0.0#123
ntpd: Listening on interface wildcard, ::#123
ntpd: Listening on interface wildcard, 0.0.0.0#123
ntpd: Listening on interface wildcard, ::#123
ntpd: Listening on interface wildcard, 0.0.0.0#123

.conf 
vmonitor ntpd: kernel time
vmonitor ntpd: synchronized to
vmonitor ntpd: ntpd 4.2.0a@1.1190-r
vmonitor ntpd: precision =
vmonitor ntpd: Listening on

a la fin je devrait n'avoir que mes 5 premières lignes de 'légumes' :)

lami20j · Answer

Alors tu as vraiment un problème

dit moi comment tu veux comparer ces 2 lignes


fichier.analyse
ntpd: precision = 18.000 usec 

fichier .conf
vmonitor ntpd: precision = 

Quelque soit la comparaision les lignes sont toujours différentes

Donc tu dois bien spécifier un critère de comparaison
par exemple la chaine entre le 5 et le 10 caractère

tonixm · Answer

pour le .conf j ai mal recopié car il n'y a pas le vmonitor a chaque foi!!

.conf 
ntpd: kernel time 
ntpd: synchronized to 
ntpd: ntpd 4.2.0a@1.1190-r 
ntpd: precision = 
ntpd: Listening on

comme sa cela marche. le trie marche sauf de temps en temps où selon le nb de ligne de mon fichier .analyse, ce dernier est tronqué

lami20j · Answer

car il n'y a pas le vmonitor a chaque foi!! 


justement, il ne doit pas être du tout

comme sa cela marche. le trie marche sauf de temps en temps où selon le nb de ligne de mon fichier .analyse, ce dernier est tronqué
je t'ai déjà dit qu'on ne fait pas les tests sur les même fichiers ;-)

tu peux m'envoyer par mail les fichiers, pour que je teste chez moi
merci

tonixm · Answer

Pour mon fichier .conf; S'il contient par exemple quelque chose comme:    
Server Administrator: Instrumentation Service | Server Administrator starting   , 
le test ne s'effectue pas sur les chaines de caractère contenant comme ici Expression 1 Quelque chose Expression 2 d'ou ici le "|".

Plus général. Fichier.conf 
Expression1
Expression2 (ton caractère qui remplace le n'importe-quoi) Expression3

Puis ensuite on essaye de filter 
(n'importe-quoi) Expression1
Expression1 (n'importe-quoi) 
Expression1
Expression2
Expression2 (n'importe-quoi) Expression3
Expression2 (n'importe-quoi) Expression4 
Expression3
Expression4
 
Ce qui est souligné ne devrait pas resortir alors que les autres oui et ici mon filtre enleve tout

exemple de mon fichierconf:
dhcpd: closing
dhcpd: exiting
dhcpd: Listening on
dhcps: pool
dhcpd: failover peer
dhcpd: locking dhcpd
proftpd| FTP no transfert timeout, disconnected.
proftpd| FTP session closed
proftpd| FTP session opened.
rdistd| startup for bravo
rdist:| shell returned 512
rexecd| connect from
rexecd| login from
Server Administrator: Instrumentation Service| Server Administrator starting
Server Administrator: Instrumentation Service| Server Administrator startup comp
lete
Server Administrator: Storage Service| Battery charge complete
Server Administrator: Storage Service| Battery is discharging
Server Administrator: Storage Service| Battery relearn will start in
Server Administrator: Storage Service| Battery started charging
Server Administrator: Storage Service| Patrol Read complete
Server Administrator: Storage Service| Patrol Read started
Server Administrator: Storage Service| The battery charge cycle is complete
Server Administrator: Storage Service| The controller battery is charging
Server Administrator: Storage Service| The controller battery Learn cycle has co
mpleted
Server Administrator: Storage Service| The controller battery Learn cycle has st
arted
Server Administrator: Storage Service| The controller battery Learn cycle will s
tart in
Server Administrator: Storage Service| The Patrol Read has started
Server Administrator: Storage Service| The Patrol Read has stopped
Server Administrator: Storage Service| Time established as
smbd:| *call_nt_transact_ioctl*
smbd:| *Connection reset by peer*
snmpd:| accepted

tonixm · Answer

exemple de fichier .analyse:

dhcpd: exiting
dhcpd: closing
dhcpd: allo
dhcpd: coucou
dhcpd: Listening on
dhcpd: locking dhcpd
dhcpd: pool
dhcpd: voiture
dhcpd: clio
dhcpd: punto
dhcpd: failover peeeeeeer
TEST: test
dhcpd: test
pooopp: test
Server Administrator: Storage Service EventID: 2242  The Patrol Read has started
.:  Controller 0 (PERC 6/i Integrated)
Server Administrator: Storage Service EventID: 2243  The Patrol Read has stopped
.:  Controller 0 (PERC 6/i Integrated)
Server Administrator: Storage Service EventID: 2095  SCSI sense data Sense key:
 4 Sense code:  0 Sense qualifier: 81:  Physical Disk 0:17 Controller 0, Connect
or 0
Server Administrator: Instrumentation Service EventID: 1000  Server Administrato
r starting
Server Administrator: Instrumentation Service EventID: 1012  IPMI status  Interf
ace: OS
Server Administrator: Instrumentation Service EventID: 1001  Server Administrato
r startup complete
Server Administrator: Storage Service EventID: 2057  Virtual disk degraded:  Vir
tual Disk 1 (Virtual Disk 1) Controller 0 (PERC 6/i Integrated)
Server Administrator: Storage Service EventID: 2095  SCSI sense data Sense key:
 5 Sense code: 24 Sense qualifier:  0:  Enclosure 0:0 Controller 0, Connector 0
Server Administrator: Storage Service EventID: 2052  Physical disk inserted:  Ph
ysical Disk 0:0:3 Controller 0, Connector 0
Server Administrator: Storage Service EventID: 2121  Device returned to normal:
 Physical Disk 0:0:3 Controller 0, Connector 0
Server Administrator: Storage Service EventID: 2050  Physical disk offline:  Phy
sical Disk 0:0:3 Controller 0, Connector 0
Server Administrator: Storage Service EventID: 2065  Physical disk Rebuild start
ed:  Physical Disk 0:0:3 Controller 0, Connector 0
Server Administrator: Storage Service EventID: 2121  Device returned to normal:
 Physical Disk 0:0:3 Controller 0, Connector 0
Server Administrator: Storage Service EventID: 2095  SCSI sense data Sense key:
 5 Sense code: 24 Sense qualifier:  0:  Enclosure 0:0 Controller 0, Connector 0
Server Administrator: Storage Service EventID: 2092  Physical disk Rebuild compl
eted:  Physical Disk 0:0:3 Controller 0, Connector 0
Server Administrator: Storage Service EventID: 2121  Device returned to normal:
 Virtual Disk 1 (Virtual Disk 1) Controller 0 (PERC 6/i Integrated)
Server Administrator: Storage Service EventID: 2124  Redundancy normal:  Virtual
 Disk 1 (Virtual Disk 1) Controller 0 (PERC 6/i Integrated)
Server Administrator: Storage Service EventID: 2158  Physical disk online:  Phys
ical Disk 0:0:3 Controller 0, Connector 0
Server Administrator: Storage Service EventID: 2242  The Patrol Read has started
.:  Controller 1 (PERC 5/i Integrated)
Server Administrator: Storage Service EventID: 2243  The Patrol Read has stopped
.:  Controller 1 (PERC 5/i Integrated)
Server Administrator: Instrumentation Service EventID: 1000  Server Administrato
r starting
Server Administrator: Instrumentation Service EventID: 1204  Current sensor dete
cted a failure value  Sensor location: System Board System Level  Chassis locati
on: Main System Chassis  Previous state was: Unknown  Current sensor value (in A
mps): 0.000
Server Administrator: Instrumentation Service EventID: 1012  IPMI status  Interf
ace: OS
Server Administrator: Instrumentation Service EventID: 1001  Server Administrato
r startup complete
Server Administrator: Storage Service EventID: 2314  The initialization sequence
 of SAS components failed during system startup. SAS management and monitoring i
s not possible.
Server Administrator: Instrumentation Service EventID: 1403  Memory device statu
s is non-critical  Memory device location: DIMM1   Possible memory module event
cause:Single bit warning error rate exceeded
Server Administrator: Instrumentation Service EventID: 1000  Server Administrato
r starting
Server Administrator: Instrumentation Service EventID: 1204  Current sensor dete
cted a failure value  Sensor location: System Board System Level  Chassis locati
on: Main System Chassis  Previous state was: Unknown  Current sensor value (in A
mps): 0.000
Server Administrator: Instrumentation Service EventID: 1012  IPMI status  Interf
ace: OS
Server Administrator: Instrumentation Service EventID: 1001  Server Administrato
r startup complete
Server Administrator: Storage Service EventID: 2314  The initialization sequence
 of SAS components failed during system startup. SAS management and monitoring i
s not possible.
Server Administrator: Storage Service EventID: 2181  The controller battery Lear
n cycle will start in 24 hours.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2242  The Patrol Read has started
.:  Controller 0 (PERC 5/i Integrated)
Server Administrator: Storage Service EventID: 2242  The Patrol Read has started
.:  Controller 1 (PERC 5/E Adapter)
Server Administrator: Storage Service EventID: 2243  The Patrol Read has stopped
.:  Controller 0 (PERC 5/i Integrated)
Server Administrator: Storage Service EventID: 2180  The controller battery Lear
n cycle will start in 2 days.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2243  The Patrol Read has stopped
.:  Controller 1 (PERC 5/E Adapter)
Server Administrator: Storage Service EventID: 2180  The controller battery Lear
n cycle will start in 4 days.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2181  The controller battery Lear
n cycle will start in 5 hours.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2176  The controller battery Lear
n cycle has started.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2266  Controller log file entry:
Battery is discharging:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2248  The controller battery is e
xecuting a Learn cycle.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2188  The controller write policy
 has been changed to Write Through.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2199  The virtual disk cache poli
cy has changed.:  Virtual Disk 0 (MD1000) Controller 1 (PERC 5/E Adapter)
Server Administrator: Storage Service EventID: 2177  The controller battery Lear
n cycle has completed.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2247  The controller battery is c
harging.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2278  The controller battery char
ge level is below a normal threshold.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2279  The controller battery char
ge level is above a normal threshold.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2189  The controller write policy
 has been changed to Write Back.:  Battery 0 Controller 1
Server Administrator: Storage Service EventID: 2199  The virtual disk cache poli
cy has changed.:  Virtual Disk 0 (MD1000) Controller 1 (PERC 5/E Adapter)
Server Administrator: Storage Service EventID: 2358  The battery charge cycle is
 complete.:  Battery 0 Controller 1
Server Administrator: Server Administrator: Instrumentation Service EventID: 140
4  Memory device status is critical  Memory device location: DIMM1   Possible me
mory module event cause:Single bit warning error rate exceeded,Single bit failur
e error rate exceeded
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
ntpd: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 EDT 2006 (1)
dhcpd: must restart dhcpd bientot
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
ntpd: Listening on interface eth0, 172.16.15.39#123
Apr 11 14:20:41 vmonitor last message repeated 4 times
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: Listening on interface lo, 127.0.0.1#123
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: kernel time sync status 0040
ntpd: precision = 17.000 usec
ntpd: precision = 18.000 usec
ntpd: precision = 18.000 usec
ntpd: Listening on interface wildcard, 0.0.0.0#123
ntpd: Listening on interface wildcard, ::#123
ntpd: Listening on interface wildcard, 0.0.0.0#123
ntpd: Listening on interface wildcard, ::#123
ntpd: Listening on interface wildcard, 0.0.0.0#123
ntpd: Listening on interface wildcard, ::#123

tonixm · Answer

il ne laiise que 
TEST: test
pooop: test alors qu'il manque plein de lignes comme:

dhcpd: allo 
dhcpd: coucou
....

tonixm · Answer

il ne repère pas les phrases exactes. pour peu que le fichier.analyse contient juste un lmot de .conf , il l'enleve

lami20j · Answer

j'avoue que je ne comprends pas ce que tu veux

tonixm · Answer

Voici un exemple concret:

Fichier.analyse:

patate: chou
dhcpd: coucou lami20j
dhcpd: exiting
dhcpd: serveur is now je sais quoi

Fichier.conf:

dhcpd: exiting
dhcpd: serveur | quoi

On veut en sortie sur le .focal:
patate:chou
dhcpd: coucou lamij20


alors que a présent vu que toutes les lignes commencent par dhcpd, cela est mal interprété et on obtient only:
patate:chou

voila le probleme

tonixm · Answer

j'espere que cet exemple t'aidera a comprendre ce fichu probleme!

tonixm · Answer

ou sinon on pourrais scinder chaque mot d'une ligne qu'on cherche a tester et on teste si ces mots sont TOUS dans 
la ligne du fichier .conf. Ex:

.analyse:              dhcpd: coucou lami20j      
"dhcpd"  ":"    "coucou"    "lami20j"

.conf
dhcpd: exciting
"dhcpd"  "exiting"

on teste si tout les mots de .analyse sont dans .conf et si non (ici c'est le cas) , on met cette ligne de .analyse dans .focal!!!

.analyse
dhcpd: coucou lami20j

qu'en pense tu?

le doc · Answer

#!/usr/bin/perl open (A, "< conf.txt"); my @conf = ; open (B, "< sort.txt"); my @sort = ; $match = 0; foreach $c (@conf) { foreach $f (@sort) { if ($f =~ /$c/) { $match = 1 ; } } if (not $match) { push(@sort,$c); } } my @focal = sort @sort ; open C, "+> focal.txt" or die "Can not open file for output! "; foreach $line ( @focal) { print C ( $line ); } close C; print Dumper(@focal);

le doc · Answer

Autant pour moi, j'avais posté un peu vite sans garder la mise en forme. J'espère que cela repondra au problème, mais je ne suis pas sur de bien l'avoir compris. Au moins cela te donne quelques éléments de base : récupération d'un fichier dans un array, comparaison de deux arrays et ecriture d'un array dans un fichier. #!/usr/bin/perl open (A, "< conf.txt"); my @conf = ; open (B, "< sort.txt"); my @sort = ; $match = 0; foreach $c (@conf) { foreach $f (@sort) { if ($f =~ /$c/) { $match = 1 ; } } if (not $match) { push(@sort,$c); } } my @focal = sort @sort ; open C, "+> focal.txt" or die "Can not open file for output! "; foreach $line ( @focal) { print C ( $line ); } close C;

lami20j · Answer

Salut, on n'est toujours pas sur la même longueur d'onde d'après ce que tu viens de dire dans ton dernière message, alors la solution je te l'ai déjà donné depuis longtemps en revanche si on regarde tes fichiers, ce n'est pas ce que tu demandes prenons par exemple la ligne fichier.analyse Apr 11 16:32:49 vmonitor Server Administrator: Storage Service EventID: 2243 The Patrol Read has stopped.: Controller 0 (PERC 5/i Integrated) fichier.conf Server Administrator: Storage Service| Time established as tu veux faire la comparaion entre voir en gras Apr 11 16:32:49 vmonitor Server Administrator: Storage Service EventID: 2243 The Patrol Read has stopped.: Controller 0 (PERC 5/i Integrated) et Server Administrator: Storage Service| Time established as Le problème ce que c'est juste un exemple SI on prends la totalité des fichiers, il n'y a pas une règle qui permettra de savoir ce qu'on doit comparer Voic un exemple très basique qui teste la ligne entière (pour adapter à ta situation il faut savoir ce qu'on veut comparer, et ça avec précision sinon les résultat serront sûrement aberrantes) lami20j@debian:~/trash$ cat comp.pl #!/usr/bin/perl use strict;use warnings; open CONF,"fichier.conf" or die "fichier.conf E/S : $! "; open ANALYSE,"fichier.analyse" or die "fichier.analyse E/S : $! "; open TMP,">fichier.tmp" or die "fichier.tmp E/S : $! "; my @conf=; my @analyse=; my (@que_dans_conf,%dans_analyse); @dans_analyse{@analyse}=(); foreach(@conf){ push @que_dans_conf,$_ unless exists $dans_analyse{$_}; } print TMP for @que_dans_conf; __END__ lami20j@debian:~/trash$ cat fichier.conf ligne que dans conf n'importe quoi lami20j@debian:~/trash$ cat fichier.analyse que dans archive n'importe quoi lami20j@debian:~/trash$ perl comp.pl lami20j@debian:~/trash$ cat fichier.tmp ligne que dans conf lami20j@debian:~/trash$

lami20j · Answer

mais je compare quoi????

peut être dans ta tête c'est clair, mais pas dans la mienne :-((

d'après ce que je comprends 
dans ce cas la chaîne de comparaison est Server Administrator: Storage Service

Ma question est :
comment on peut trouver chaque chaîne de comparaison dans ton fichier .conf?

vu que dès fois elle est 
Server Administrator: Storage Service djklfsd lkjsdlfk dskljlksd fjlksdj
et des fois elle est
Server Administrator: Instrumentation Service gjlkdsjgfl jkljlkjlk
et des fois elle est

..............je ne sait pas quoi encoire................

Si tu me fait comprendre ça ton problème n'est pas du tout difficile.
Je me casse la tête pas pour le script, mais pour comprendre ce que tu veux.

tonixm · Answer

moi je te montre des exemples.
bref c'est dur a expliquer.
je veux comparer chaque ligne du .conf et chaque ligne du .analyse
Mon .conf est constitué de toutes les chaines qu'il ne faut pas trouver dans mon .analyse , c'est pour sa que je test chaque ligne de ce fichier

.conf 
Expression 1
Expression 2
Expression 3


.analyse
Expression 1 
Expression 2
Expressionnnn3
Expression 4

Je garde: 
Expressionnnn3
Expression 4

lami20j · Answer

Oui, mais ce cas est simple, et mon script fonctionne très bien lami20j@debian:~/trash$ cat compfic.pl #!/usr/bin/perl use strict;use warnings; open CONF,"fichier.conf" or die "E/S : $! "; open ANALYSE,"fichier.analyse" or die "E/S : $! "; open TMP,">fichier.tmp" or die "E/S : $! "; my @conf=; chomp @conf; while(my $e=){ chomp($e); print TMP $e," " unless grep { $e=~/$_/ } @conf; } __END__ lami20j@debian:~/trash$ cat fichier.conf Expression 1 Expression 2 Expression 3 lami20j@debian:~/trash$ cat fichier.analyse Expression 1 Expression 2 Expressionnnn3 Expression 4 lami20j@debian:~/trash$ perl compfic.pl lami20j@debian:~/trash$ cat fichier.tmp Expressionnnn3 Expression 4 Le problème n'est pas là. Le problème est que je ne sais pas comment sont construite tes expressions

tonixm · Answer

et test pour ton script:

.analyse:
dhcpd: exiting
dhcpd: lamij20

.conf
dhcpd: exiting

si je té envoyer par mail les expressions.

lami20j · Answer

si je té envoyer par mail les expressions.

justement, je ne comprends rien, depuis tes expression je dois prendre seulement une partie
et c'est ça que tu ne veux pas comprendre, que s'il n'y a pas une règle pour l'extraire ton problème devient impossible de l'automatiser

tonixm · Answer

la regle est de tester si la ligne de.analyse contient une ligne du .conf en entier
essaie cela tu va comprendre:

et test pour ton script:

.analyse:
dhcpd: exiting
dhcpd: lamij20

.conf
dhcpd: exiting 

di moi ce que tu obtient

lami20j · Answer

dans ton .conf
tu as

Server Administrator: Instrumentation Service Server Administrator startup complete
Server Administrator: Storage Service Battery charge complete
dit moi?
quelle règle de séparation je dois utiliser pour savoir que je dois utilser la partie en gras pour comparaison?
c'est ça que je ne comprends pas

lami20j · Answer

regarde ce que j'obtiens
lami20j@debian:~/trash$ cat fichier.conf
dhcpd: exiting
lami20j@debian:~/trash$ cat fichier.analyse
dhcpd: exiting
dhcpd: lamij20
lami20j@debian:~/trash$ perl compfic.pl
lami20j@debian:~/trash$ cat fichier.tmp
dhcpd: lamij20

lami20j · Answer

*scinder la ligne de .conf en plusieurs mots * tester si chacun de ces mots apartiennent TOUS sans exception a la ligne .analyse pas besoin ça c'est équivalent qu'un chaine est la sous chaîne de la chaîne principale *si oui la ligne .analyse est rejetée *si non la ligne .analyse est mise dans tmp c'est exactement ça que j'ai fait mon script

tonixm · Answer

regarde ce que j'obtiens 
tu a utilisé quel script?

le fichier .conf represente pour chaque ligne:
une SOUS CHAINE pour pouvoir faire la comparaison, il n'a pas besoin de la fabriquer, juste de la lire dans ce fichier

lami20j · Answer

il n'a pas besoin de la fabriquer,

alors tu peux m'expliquer comment tu sais que pour

Server Administrator: Instrumentation Service Server Administrator startup complete

tu compare seulement Server Administrator: Instrumentation Service

et pour 

Server Administrator: Storage Service Battery charge complete

tu compares seulement Server Administrator: Storage Service

??

Comment tu sais quelle sous chaîne?

tonixm · Answer

tu compare la ligne de .analyse en question (puis tu fait pareil pour tte les autres: simple boucle) avec TOUTES celles de .conf et tu test.
bref je crois que je ne vais pas réussir a t expliquer mon probleme  :(

lami20j · Answer

tu compare la ligne de .analyse en question (puis tu fait pareil pour tte les autres: simple boucle) avec TOUTES celles de .conf et tu test. 

c'est exactement ce que fait le script que je t'ai donnée

lami20j · Answer

je t'ai envoyé un mail

tonixm · Answer

je vais regarder sa

tonixm · Answer

viens sur msn

lami20j · Answer

essaie ça#!/usr/bin/perl use strict;use warnings; open CONF,"fichier.conf" or die "E/S : $! "; open ANALYSE,"fichier.analyse" or die "E/S : $! "; open TMP,">fichier.tmp" or die "E/S : $! "; my @conf=; chomp @conf; while(my $e=){ print TMP $e unless grep { if($_=~/\|/){ my ($x,$y)=split /\|/,$_; $y=~s/^\s*(.*)/$1/; $e=~/${x}.*$y/; }else{ $e=~/$_/; } } @conf; } __END__

tonixm · Answer

merci sa a l air de très bien fonctionner d'après ce que tu m'a envoyer!!!
merci beaucoup!
je vais tester tout sa demain

tonixm · Answer

salut, cette ligne me bloque le script a l execution: $e=~/${x}.*$y/; est tu sur de la syntaxe? le code: open CONF,"$conf_file" or die "E/S : $! "; open ANALYSE,"$file_analyse" or die "E/S : $! "; open TMP,">$file_tmp" or die "E/S : $! "; my @conf=; chomp @conf; while(my $e=){ print TMP $e unless grep { if($_=~/\|/){ my ($x,$y)=split /\|/,$_; $y=~ s/^\s*(.*)/$1/; $e=~ /${x}.*$y/; }else{ $e=~/$_/; } } @conf; } close(CONF); close(ANALYSE); close(TMP);

tonixm · Answer

c'est bon j'ai enlever cette ligne:   $y=~ s/^\s*(.*)/$1/; et ca marche!

lami20j · Answer

Salut,

en fait cette ligne je l'ai mis puisque tu avais d'espaces après |
donc c'était juste une sécurité en plus

chez ça marche -> je te l'ai dit qu'on ne teste pas les même fichiers, mais tu ne veux pas me croire

quand je teste tes soit disant fichier je dois faire un copier/coller
en ce cas c'est possible de copier aussi des caractères non imprimables qui n'existent pas

mais bon, tant mieux que ça marche
j'espère que t'es content ;-)

tonixm · Answer

je vais faire des tests complémentaires mais pour l'instant sa marche!
En tous cas merci pour tout lami20j!!

tonixm · Answer

petite question:
   my ($x,$y)=split /\|/,$_;

a quoi correspond le $_?

tonixm · Answer

mais ici que vaut elle? my @conf=; chomp @conf; while(my $e=){ print TMP $e unless grep { if($_=~/\|/){ my ($x,$y)=split /\|/,$_; $y=~ s/^\s*(.*)/$1/; $e=~ /${x}.*$y/; }else{ $e=~/$_/; } } @conf; }

lami20j · Answer

Salut,


cette partie 
print TMP $e unless grep
	  {
 	    if($_=~/\|/){
	      my ($x,$y)=split /\|/,$_;
	      $y=~ s/^\s*(.*)/$1/;
	      $e=~ /${x}.*$y/;
 	    }else{
	      $e=~/$_/;
	    }
	  } @conf;

j'aurais pu l'écrire (mais pour des raions de visibilité j'ai préféré le 1ère version ;-)
print TMP $e unless grep {if($_=~/\|/){my ($x,$y)=split /\|/,$_;$y=~ s/^\s*(.*)/$1/;$e=~ /${x}.*$y/;}else{$e=~/$_/;}} @conf;
et si tu consulte la doc de la fonction grep http://perl.mines-albi.fr/DocFr/perlfunc.html#item_grep tu comprendras mieux

Dans ce cas $_ , représente les éléments de @conf

Il ne faut cependant pas trop compter dessus, car elle est susceptible d'être modifiée à tout moment

On peut toujours compter sur $_ , mais il faut être rigureaux en écrivant le code

C'est la raison pour laquelle dans la boucle while(my $e=<ANALYSE>){ j'utilise $e
A savoir que $_ est utilisé aussi pour des raisons de paresse ;-))

tonixm · Answer

merci pour cette bellle analyse!!

tonixm · Answer

est il possible dans ce sccript de rajouter dans un fichier .debug la ligne qui a permis d'enlever la ligne de .analyse. Par là je veux dire par exemple que si on a : .conf ntpd: listening ntpd: complete installation .analyse ntpd: listening on interface allo: bonjour lami20j: mr perl .tmp allo: bonjour lami20j: mr perl et de mettre par exemple dans un .debug ici: ntpd: listening on interface retirée par ntpd: listening du fichier .conf qui aurait un epetite idée. moi jaa i essayer: my $d; open CONF,"$confFile" or die "E/S : $! "; open ANALYSE,"$fileAnalyse" or die "E/S : $! "; open TMP,">$fileTmp" or die "E/S : $! "; open DEBUG,">>$fileDebug" or die "E/S : $! "; while (my $c=){ while(my $e=){ if($c=~/\|/){ my ($x,$y)=split /\|/,$c; if($e=~ /$x.*$y/){ print TMP $e; }else{ $d="$e enlevé par $c"; print DEBUG $d; } } elsif($e=~/$c/){ print TMP $e; } else{ $d="$e enlevé par $c"; print DEBUG $d; } } }

tonixm · Answer

mais le fichier .debug ne se rempli pas

tonixm · Answer

une idée??

tonixm · Answer

autre idée a la manière de lami20j: open CONF,"$confFile" or die "E/S : $! "; open ANALYSE,"$fileAnalyse" or die "E/S : $! "; open TMP,">$fileTmp" or die "E/S : $! "; open DEBUG,">>$fileDebug" or die "E/S : $! "; my @conf=; chomp @conf; while(my $e=){ print TMP $e unless grep { if($_=~/\|/){ my ($x,$y)=split /\|/,$_; $e=~ /$x.*$y/; if($e=~ /$x.*$y/){ print DEBUG "$e:$_ "; } }else{ $e=~/$_/; if($e=~/$_/){ print DEBUG "$e:$_ "; } } } @conf; } mais cela ne marche pas tout le temps!!

lami20j · Answer

#!/usr/bin/perl use strict;use warnings; open CONF,"fichier.conf" or die "E/S : $! "; open ANALYSE,"fichier.analyse" or die "E/S : $! "; open TMP,">fichier.tmp" or die "E/S : $! "; open DEBUG,">debug.log" or die "E/S : $! "; my @conf=; chomp @conf; while(my $e=){ if( grep { if($_=~/\|/){ my ($x,$y)=split /\|/,$_; $y=~s/^\s*(.*)/$1/; $e=~/${x}.*$y/; }else{ $e=~/$_/; } } @conf){ print DEBUG $e; }else{ print TMP $e; } } __END__

tonixm · Answer

merci lami20j!!!

par curiosité: as tu tester cette solution??

lami20j · Answer

par curiosité: as tu tester cette solution??

oui, je l'ai testé, mais c'est plutôt à toi de le faire ;-)

tonixm · Answer

:)

c'est juste que je peux tester juste au boulot et je voulais savoir avant demain ;)))

tonixm · Answer

le soucis est que je ne peut pas afficher "$e:$_
";" 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)

tonixm · Answer

par exmple: "ntpd: listening interface 123.0.0.0 enlevée par ntpd:listening"

tonixm · Answer

j ai fais ceci mais j'ai beaucoup de messages qui ne vont ni dans tmp ni dans debug: my @conf=; chomp @conf; while(my $e=){ print TMP $e unless grep { if($_=~/\|/){ my ($x,$y)=split /\|/,$_; $e=~ /$x.*$y/; if($e=~ m/$x.*$y/){ print DEBUG "$e:$_ "; } }else{ $e=~/$_/; if($e=~ m/$_/){ print DEBUG "$e:$_ "; } } } @conf; }

tonixm · Answer

.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

lami20j · Answer

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 : $! "; open ANALYSE,"fichier.analyse" or die "E/S : $! "; open TMP,">fichier.tmp" or die "E/S : $! "; open DEBUG,">debug.log" or die "E/S : $! "; my @conf=; chomp @conf; while(my $e=){ chomp($e); print TMP $e," " unless grep { if($_=~/\|/){ my ($x,$y)=split /\|/,$_; $y=~s/^\s*(.*)/$1/; print DEBUG "$e ::: $_ " if $e=~/${x}.*$y/; }else{ print DEBUG "$e ::: $_ " 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

tonixm · Answer

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

tonixm · Answer

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

lami20j · Answer

Ce ne sont des résultat différents. Ce sont des doublons

dans ton fichier .conf tu asntpd:
ntpd: Listening ondans .archive tu asApr 11 16:51:34 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123Donc la ligne est eliminé puisque 
ntpd: existe dans la ligne
ntpd: Listening on existe dans la ligne

[PERL]- traduire du shell en perl

90 réponses

Discussions similaires