Discussion :

[rbh]

Bonjour

habitué à d'autre langage de prog objet (delphi, VB, ...)
j'ai été très vite rebuté par ce langage choisi par un de nos stagiaire qui, depuis est parti.

en devant m'atteler à l'adaptation de son code, j'ai utilisé la classique méthode des "Ctrl + C", "Ctrl + V", ...

voici mon code

Code :

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

1
2
3
4
 
foreach my $line(@lines){
  chomp($line)
  my ($ref, $img, $dim1, $dim2, $desc, $min, $max, $rad, $len, $hght, $prix) = $line =~ m/"(.*)"\|"(.*)"\|(.*)\|(.*)\|"(.*)"\|(.*)\|(.*)\|(.*)\|(.*)\|(.*)\|(.*)/;

désolé la ligne est longue.

en déboguant mon code, j'ai trouvé que $line contenait bien la ligne que je veux qu'il lise mais pas les variables.

pour exemple une ligne à lire ressemble à ça :

"217.075|217.010|94|49|Arc surbaisse convexe pour portail battant de 1.00 … 1.30 mètres|1000|1300|7500|1250|102.9"

Merci d'avance

[Jeh]

Le m après le ~ n'est pas obligatoire mais c'est un détail.
Utilises-tu tes variables dans ta boucle for ou après ?
Perl fonctionne par bloc de commandes pour la portée des variables, chaque bloc étant délimité par des accolades. Donc si tu utilises tes variables en dehors de ta boucle, il faut déclarer ces dernières dans le même blocv( au même niveau ) que leur utilisation. Chaque variable étant visible dans chaque sous-bloc. Soit :

Code :

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

1
2
3
4
5
6
 
my ($ref, $img, $dim1, $dim2, $desc, $min, $max, $rad, $len, $hght, $prix);
foreach my $line(@lines){ 
  chomp($line) 
  ($ref, $img, $dim1, $dim2, $desc, $min, $max, $rad, $len, $hght, $prix) = $line =~ /(.*)\|(.*)\|(.*)\|(.*)\|"(.*)"\|(.*)\|(.*)\|(.*)\|(.*)\|(.*)\|(.*)/; 
.....

[rbh]

toutes les variables sont utilisé uniquement dans la boucle foreach
ce n'est pas un problème de porté puisque je les déclare directement dans le seul bloc ou je les utilise.
le problème est que le débogueur me donne pour toutes ces variables

Code :

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

1
2
3
4
5
 
$ref = undef;
$img = undef;
...
$line = '217.075|217.010|94|49|Arc surbaisse convexe pour portail battant de 1.00 … 1.30 mètres|1000|1300|7500|1250|102.9';

donc $line contient bien ce que je veux mais pas les autres variables

[Jeh]

Ta ligne possède 10 éléments à matcher et tu essaies d'en matcher 11.
Mets également un ? après chaque *, ainsi ton match s'arrête dès le premier pipe rencontré mais je sais pas si ça aura beaucoup d'impact...

[arthurr]

Le split ne serait-il pas plus simple ?

[rbh]

Désolé pas le temps (il faut que ce soit finit)

Je vais passer à une solution en delphi

Merci quand même.