Discussion :

[scolopendra]

Bonjour,

j'ai un petit problème avec un fichier txt, ce dernier contient plusieurs lignes sous forme de numéro ex :
012348667
012486476
019823484
067673268

mon script que j'ai réalisé ajoute normalement un ".txt" à la fin de chaque ligne mais le résultat donne:

012348667
.txt
012486476
.txt
019823484
.txt
067673268
.txt

comme si initialement à la fin de chaque ligne il y a un retour chariot que j'arrive pas à le virer.

donc vous avez des idées??

[djibril]

fait un chomp quand tu lis ton fichier ligne à ligne

[scolopendra]

merci,

Code :

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

1
2
3
4
5
6
while(defined($ligne= <PF>)){
    		chomp($ligne);
    		open(logs, ">$ligne.txt");
		system($grepCmd);
		close(logs); 
		}

c'est ca?

[djibril]

Code :

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

1
2
3
4
5
6
while($ligne= <PF>)){
    		chomp($ligne);
    		open(logs, ">$ligne.txt");
		system($grepCmd);
		close(logs); 
		}

par contre c quoi ce code? il fait quoi, pourquoi faire un grep en commande system?

[scolopendra]

en fait mon code il fait un grep sur des données que j'ai stoké dans le fichier sur lequel on a parlé , le resultat du grep est enregistré dans un des fichiers log dont le nom est la ligne donc : $ligne.txt

maintenent il me fait :

012354678 .txt (avec un espace entre le point et la fin de la ligne)

[djibril]

bah c toi qui lui a mis l'espace.
Faut montrer ton code, car on ne peut pas deviner comme ça

[scolopendra]

le voila

[djibril]

je te corrige ça

[djibril]

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/perl
use warnings; 
use strict;
my @liste;
my @listfile = </product/rpe/batch/"Prm_"*."txt">;
my $num;
my @liste8AB;
my $PurgedFile =""."8AB.txt"; #fichier contenant les 8AB
my $purge_cmd = "sort ".$PurgedFile." |uniq >".$PurgedFile;
 
open(PF, ">$PurgedFile") or die("impossible d'ecrire dans le fichier $PurgedFile, $!\n";
foreach my $file (@listfile) {
	#Ouverture du fichier en lecture
 	open(FICHIER, $file)  or die("impossible de lire le fichier $file, $!\n";
	#Lecture ligne par ligne sur le fichier
 	while(my $ligne= <FICHIER>){
      chomp($ligne);
      #découpage de chaque ligne
    	@liste = split(/;/,$ligne);  # découpe ta chaine et stock les 3 parties dans le tableau (ou liste, c'est pareil)
 			@liste8AB = @liste[1];  # mettre la colonne des 8AB dans une liste.
    	foreach $num (@liste8AB) {
 			  print PF "$num\n";             # ecrire les 8AB dans un fichier.
			}
	}
}
close(PF);
system($purge_cmd); # commande qui execute le sort et le purge des doublons
 
my $logfile;
my $grepCmd;
open(PF, $PurgedFile);
while(my $ligne8AB=<PF>){
  chomp($ligne8AB);
  print "$ligne8AB\n";
  $logfile=$ligne8AB.".txt";
  open(logs, ">$logfile") or die("impossible d'ecrire dans le fichier $logfile, $!\n";
  $grepCmd = "grep ".$ligne8AB." /product/rpe/batch/* >".$logfile;
	system($grepCmd);
	close(logs); 
}

t'es sur de ça @liste8AB = @liste[1]; ?

[scolopendra]

ca marche thanks

[scolopendra]

????