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,

[yjuliet]

Une fonction non builtin est simplement une fonction qui ne fait pas partie des fonctions définies de base. Dès lors qu'elles nécessitent l'utilisation d'un module supplémentaire, c'est qu'elles ne sont pas "builtin" (comprendre construites à l'intérieur)

[jchampen]

Tout d'abord merci pour vos nombreuses réponses, cela m'aide beaucoup...

Je suppose que pour vous cela vous semble facile, mais lorsue que je lance mon script, il n'y a aucun problème. Je lui demande de m'afficher @datas et voici ce qu'il me renvoie (exemple) :

ARRAY(0x7110e0)
ARRAY(0x75f370)
ARRAY(0x75e8b0)
ARRAY(0x75e800)
ARRAY(0x75e7d0)
ARRAY(0x75e760)
ARRAY(0x75e730)
ARRAY(0x75e6c0)
ARRAY(0x75e690)

Quelqu'un pourrait-il m'expliquer à quoi cela correspond ??

voici le code pour rappel :

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
 
#!bin/perl
 
use strict;
use warnings;
 
open ( FILE , "$ARGV[0]") || die "Impossible de d'ouvrir le fichier $ARGV[0]";
 
my @datas;
 
while( <FILE> ) {
  print; chomp;
 
  push @datas, [ split /;/, $_, 3 ];
}
 
# work with @datas
 
foreach $_ (@datas){
   print "$_\n";
}

Les trois colonnes de mon tableau sont "delta jours", "delta baselines" et "orbites".

[matafan]

C'est parce que ton tableau contient des référence à des tableaux, pas directement des tableaux. [1, 2, 3] est une référence à un tableau anonyme qui contient les éléments 1, 2 et 3.

Concrètement il faut remplacer ton print "$_\n" par print "@$_n\n". Le "@" permet de "déréfencer" $_.

D'une manière générale, si $ref est une référence à un tableau, tu peux accéder au tableau avec @$ref, ou @{$ref} (c'est pareil). Pour accéder au premier élément du tableau tu peux donc faire ${$ref}[0], qu'on écrit en général $ref->[0].

Pareil, si $ref est une référence à un hash, tu peux accéder au hash avec %$ref, ou @{$ref} (c'est pareil). Pour accéder à un élément du hash tu peux donc faire ${$ref}{clee}, qu'on écrit en général $ref->{clee}.

[Jasmine80]

Voici un site qui m'a beaucoup appris au sujet des structures de données complexes

http://perso.univ-rennes1.fr/francoi...ERLnode15.html