Discussion :

[philouelgeek]

Bonjour,

J'ai un fichier de la forme suivante :

PROJET => PARIS
DATE_PROJET => 05092010
PROJET => MARSEILLE
DATE_PROJET => 22012010
PROJET => LYON
DATE_PROJET => 10032010

Je voudrais afficher ce fichier à l'écran comme suit : (en deux colonnes PROJET et DATE)


PROJET DATE

PARIS 05092010
MARSEILLE 22012010
LYON 10032010


..... mais je ne vois pas trop comment faire.

Est-ce que vous pourriez m'aider ?

Merci d'avance

[Jasmine80]

Bonjour,

J'ai un fichier de la forme suivante :

PROJET => PARIS
DATE_PROJET => 05092010
PROJET => MARSEILLE
DATE_PROJET => 22012010
PROJET => LYON
DATE_PROJET => 10032010

Je voudrais afficher ce fichier à l'écran comme suit : (en deux colonnes PROJET et DATE)


PROJET DATE

PARIS 05092010
MARSEILLE 22012010
LYON 10032010


..... mais je ne vois pas trop comment faire.

Est-ce que vous pourriez m'aider ?

Merci d'avance

1) tu ouvres ton fichier
2) tu le lis ligne par ligne
3) tu utilises des expressions régulières sur les lignes afin de récupérer tes 2 valeurs
4) chaque fois que tu as récupéré un couple de valeurs, tu l'affiches à l'écran avant de passer au suivant

Tu peux également utiliser une unique expression régulière afin de récupérer la partie à droite de tes flèches. Si c'est un mot, tu affiches la valeur suivie d'une tabulation et si c'est des chiffres tu passes à la ligne suivante. Ce sera encore plus simple et si toutes tes lignes sont bien ordonnées cela créera ton tableau.

Pense à regarder dans la FAQ.

[philouelgeek]

Merci, je regarde ça et je te tiens au jus.

Mais étant un noob en expressions régulières je vais surement revenir pour poser des questions

[philouelgeek]

J'ai changer le fichier d'entrée, il ressemble à ça maintenant
PARIS
05092010
MARSEILLE
22012010
LYON
10032010

Voilà le petit bout de code que j'ai implémenté:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open FILE, "<fic_result" or die "Le fichier n'existe pas !";
while (my $line = <FILE> )
{
	if ($line =~ m/\d*/ )
	{
		print "$line \n";
	}
	else
	{
		print "$line \t";
	}
}
 
close FILE;

Par contre je n'arrive pas à l'afficher sous la forme :

Code :

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

1
2
3
4
 
PARIS		05092010
MARSEILLE	22012010
LYON		10032010

il me l'affiche en allant à la ligne après chaque ligne lue :

Code :

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

1
2
3
4
5
6
7
 
PARIS
		05092010
MARSEILLE	
		22012010
LYON		
		10032010

Serais-tu ce qui ne va pas dans le code ?

[Jasmine80]

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
open FILE, "<fic_result" or die "Le fichier n'existe pas !";
while (my $line = <FILE> )
{
        chomp $line;
 
	if ($line =~ m/\d*/ )
	{
		print "$line \n";
	}
	else
	{
		print "$line \t";
	}
}
 
close FILE;

Tu dois utiliser chomp afin d'enlever le enter en fin de ligne.

[philouelgeek]

A chaque fois j'oublie le chomp

En tout cas merci beaucoup, ça marche

[Jasmine80]

tant mieux

Tu peux même intégrer le chomp à l'intérieur du else afin de diminuer le nombre d'opérations.