Discussion :

[jchampen]

Bonjour,

Je suis novice en matière de programmation, je souhaiterais avoir des conseils concernant la création d'un tableau à partir d'un fichier texte avec comme délimiteur des points virgules.

Il faut savoir que mon fichier texte contient des cases vides.

Voici un morceau de mon fichier texte :

350;501;
;;11809
;;16819
385;137;
;;11809
;;17320
805;-202;

Je voudrais obtenir un tableau avec trois colonnes et un nombre de ligne indéfini.

Voici ou j'en suis dans mon code :

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
 
open ( FILE , "$ARGV[0]") || die "Impossible de d'ouvrir le fichier $ARGV[0]";
 
my $ligne;
 
my @lig;
 
my @tab;
 
 
while ( $ligne = <FILE> ) {
 
	print $ligne || "Impossible d'afficher le contenu du fichier $ARGV[0]";
 
	chomp ( $ligne );
 
	@lig = split ( /;/ , $ligne );
 
	push ( @tab , @lig );
 
}

Avec ce script, je n'arrive pas a afficher la troisième colonne des lignes commençant par une cellule vide.

Merci d'avance pour votre aide....

[Jedai]

Code :

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

1
2
3
4
5
6
7
8
9
my @datas;
 
while( <> ) {
  print; chomp;
 
  push @datas, [ split /;/, $_, 3 ];
}
 
# work with @datas

--
Jedaï

[matafan]

En voilà une bonne idée de ne pas mettre de parenthèses autour des arguments, ça va sûrement l'aider à comprendre

[Jedai]

En voilà une bonne idée de ne pas mettre de parenthèses autour des arguments, ça va sûrement l'aider à comprendre

Les parenthèses ne sont pas obligatoires autour des paramètres en Perl et il le sait déjà puisqu'il n'en a pas mis autour de "$ligne || ...." après print(). Pour des raisons stylistiques autant que pratique, j'ai tendance à ne mettre des parenthèses qu'après les fonctions non-builtin.

Si tu veux critiquer mon code, il y a bien d'autres choses plus importantes, entre autre et surtout un usage important de l'implicite typique du Perl comme <> et $_.

Mais mon objectif n'était pas de lui présenter un code tout fait qu'il puisse comprendre à moitié et intégrer directement dans son programme, mais plutôt de lui présenter quelques nouvelles notions de Perl et de l'obliger à poser des questions supplémentaires sur les aspects qu'il ne comprend pas. C'est une approche que j'ai trouvé plutôt fructueuse dans mon expérience.

J'échoue par contre à discerner l'intérêt pratique de ton post...
--
Jedaï

[matafan]

Ne pas mettre de parenthèses quand l'écriture ne prete pas à confusion d'accord, mais là en l'occurence, [ split(/;/, $_, 3) ] et [ split(/;/), $_, 3 ] sont deux syntaxes correctes qui ne font pas du tout la même chose.

[Jasmine80]

Coucou,

Il est vraiment bien ce forum, j'avais essayé, sans succès de résoudre le problème de jchampen et voila que j'apprends qu'il suffisait de rajouter un troisième argument à split Que Perl est bien conçu, tout y est prévu.

Qu'est-ce qu'une fonction non-builtin?


Merci d'éclairer ma lanterne,