Discussion :

[Rithy666]

Bonjour,

Je souhaite lire des données dans un fichier et les imprimer sur une ligne.
Avec le code suivant, je lis bien les données mais des retours chariot non voulus apparaîssent :

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
41
42
43
44
45
46
47
48
49
50
51
52
#!/usr/bin/perl
system $^O eq 'MSWin32' ? 'cls' : 'clear';
 
# Declare the subroutines
sub trim($);
 
# Perl trim function to remove whitespace from the start and end of the string
sub trim($)
{
	my $string = shift;
	$string =~ s/^\s+//;
	$string =~ s/\s+$//;
	return $string;
}
 
open(FILE,$ARGV[0]) || die ("Impossible d'ouvrir le fichier $ARGV[0]");
 
open(TAR,">res_pl.txt");
 
 
while(<FILE>)
{
 
	if ( $_ =~ /^00.*/ )
	{
		(my $distributeur = $_) =~ s/^00(\d{7})(.*)/$1/;
		printf  "Distributeur : $distributeur";
 
	}
	elsif ( $_ =~ /^99.*/ )
	{
		($distributeur = $_) =~ s/^00(\d{7})(.*)/$1/;		
 
	}
	else
	{	
		(my $natcompt = $_) =~ s/^(.{18})(.{10})(.*)$/$2/;
		(my $centcout = $_) =~ s/^(.{28})(.{10})(.*)$/$2/;
		(my $montant = $_) =~ s/^(.{38})(.{11})(.*)$/$2/;
		(my $signe = $_) =~ s/^(.{49})(.{1})(.*)$/$2/;
		(my $axe1 = $_) =~ s/^(.{50})(.{7})(.*)$/$2/;
		(my $axe2 = $_) =~ s/^(.{57})(.{18})(.*)$/$2/;
		$natcompt = trim($natcompt);
		$centcout = trim($centcout);
		printf  "Nature comptable : %s, Centre de coût : %s, Montant : %d, Signe : %s, Axe 1 : %s, Axe 2 : %s\n", $natcompt, $centcout, $montant, $signe, $axe1, $axe2;
 
 
	}
}
 
close(TAR);
close(FILE);

Résultat :

Distributeur : 1000580
Nature comptable : 333333, Centre de coût : CC2, Montant : 60, Signe : -
, Axe 1 : MIG
, Axe 2 : RGP !RGP4

Nature comptable : 333333, Centre de coût : CC2, Montant : 70, Signe : -
, Axe 1 : MIG
, Axe 2 : RGP !RGP5

Distributeur : 1000580
Nature comptable : 111111, Centre de coût : CC2, Montant : 80, Signe : +
, Axe 1 : ACQ
, Axe 2 : RGP !RGP1

Pourriez-vous m'aider à trouver ce qui cloche ?

Cdt,
Rithy666

[Rithy666]

Bon bah c'est bizarre. Quand je passe toutes les variables dans la fonction trim. La ligne ne contient plus de retour à la ligne.

$natcompt = trim($natcompt);
$centcout = trim($centcout);
$montant = trim($montant);
$signe = trim($signe);
$axe1 = trim($axe1);
$axe2 = trim($axe2);

Voici la tête d'une ligne de mon fichier d'origine :

011000580052010C04333333[4 espaces]CC2[7 espaces]00000060,00-MIG[4 espaces]RGP !RGP4

[nibroc]

Bonjour,
Qu'est-ce ça donne si on rajoute comme première instruction du while :

Code :

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

chomp($_);

Je crois bien que c'est ça qui va régler le problème.
Nibroc

[djibril]

Il faut faire juste après le while

Code :

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

chomp;