fichier résultat en sortie vide

J'ai repris le test avec ton script mais c'est le même message d'erreur.
je t'avais pas transmis le bon modèle fichier en entrée probablement. je m'excuse

Code:

---

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 53 54 55 56 57 58 59 60 61 62 63 64

@ ABOIL;   @ CEN=1/15-05-23/09 H 06 MN 18/LISTAGE CARACTERISTIQUES D'ABONNES TRAITEMENT TGLAIL ACC ND=31630000 NE =001-19-111 TAX = 00077947 TY= KLA+ SR4 CAT= IAM+ FD3+ RVT+ SRC+ CAM2+ IAI MAR=ATT ND=31633161 NE =002-13-115 TAX = 00006845 TY= KLA+ SR1 CAT= FD3+ DF2+ SRC+ DAD1+RVFO+RFNR MAR=ARFO+ARFN ND=31633703 NE =004-06-010 TAX = 00014542 TY= KLA+ SR1 CAT= FD3+ DAD1+DIPA ND=36860799 NE =014-03-001 TAX = 00006457 TY= KLA+ SR1 CAT= FD3+ SRC+ DAD1+ CAC14+ ZTX14+ ZG14+RVFO+RFNR MAR=ARFO+ARFN ND=31636758 NE =005-08-067 TAX = 00000863 TY= KLA+ SR1 CAT= FD3+ DAD1+DIPA ND=31638027 NE =002-00-098 TAX = 00017662 TY= KLA+ SR1+ DSM CAT= FD3+ SRC+ DAD1+DIPA ND=36850434 NE =014-03-121 TAX = 00001452 TY= KLA+ SR1+ DSM CAT= FD3+ SRC+ DAD1+DIPA+ CAC14+ ZTX14+ ZG14 ND=35916096 NE =028-12-064 TAX = 00000000 TY= KLA+ SR1 CAT= FD3+ DAD1+DIPA ND=35914406 NE =033-02-037 TAX = 00015336 TY= KLA CAT= FD3+ SRC+ IAI+DIPA+ CAC16+ ZTX16+ ZG16 MAR=ATT +ARC ND=31634762 NE =001-26-060 TAX = 00000401 TY= KLA+ SR1 CAT= FD3+ SRC+ DAD1+DIPA ND=31632763 NE =007-10-069 TAX = 00002734 TY= KLA+ SR7 CAT= FD3 ND=31630103 NE =002-02-070 TAX = 00077657 TY= KLA+ SR1 CAT= FD3+ SRC+ DAD1+RVFO+RFNR MAR=ARFO+ARFN ND=36850439 NE =014-06-099 TAX = 00028261 TY= KLA+ SR1 CAT= FD3+ DAD1+DIPA+ CAC14+ ZTX14+ ZG14 ND=36860131 NE =027-03-055 TAX = 00000000 TY= KLA+ SR1+ DSM CAT= FD3+ DAD1+DIPA+ CAC14+ ZTX14+ ZG14 ND=31632140 NE =001-18-002 TAX = 00114417 TY= KLA+ SR7 CAT= FD3+ DF2+ SRC NDS=31656758 ND=31653755 ND=35917235 NE =029-00-064 TAX = 00000085 TY= KLA+ SR7 CAT= FD3+ SRC ND=35912853 NE =034-08-102 TAX = 00000000 TY= KLA+ SR1 CAT= FD3+ SRC+ DAD1+DIPA+ CAC16+ ZTX16+ ZG16 TRAITEMENT TGLAIL EXC

---

Effectivement, ton fichier en entrée ne ressemble pas à ce que tu avais présenté. Du coup, les expressions régulières utilisées ne reconnaissent pas les éléments recherchés.

Je vais essayer d'adapter le script à ton nouveau format.

Bonsoir,

voici une nouvelle version du script correspondant au format de tes données:

Code:

---

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

use strict; use warnings;   my ($line); my $output = "";   my $fic_entree = shift; chomp $fic_entree;   open my $FH, "<", $fic_entree or die "Ouverture impossible de $fic_entree $!";   while ($line = <$FH>) { if ($. == 1) { # écarter les lignes du début while ($line = <$FH>) { last if $line =~ /^\s*ND=/; } } chomp $line; $line =~ s/\r//g; if ($line =~ /^\s*ND=(\d+)\s+NE +=(\d+-\d+-\d+)\s*TAX\s?=\s?(\d+)/) { print "$output\n"; $output = "$1;$2;;;$3;"; } if ($line =~ /^\s*TY/ or $line =~ /^\s*CAT/ or $line =~ /^\s*MAR/) { $line =~ s/\s+//g; $output .= ";" . (split /=/, $line)[1]; } } print "$output\n"; close $FH;

---

En exécutant ce script avec les données de ton dernier post, voici le résultat:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

$ perl ND.pl nd.txt   31630000;001-19-111;;;00077947;;KLA+SR4;IAM+FD3+RVT+SRC+CAM2+IAI;ATT 31633161;002-13-115;;;00006845;;KLA+SR1;FD3+DF2+SRC+DAD1+RVFO+RFNR;ARFO+ARFN 31633703;004-06-010;;;00014542;;KLA+SR1;FD3+DAD1+DIPA 36860799;014-03-001;;;00006457;;KLA+SR1;FD3+SRC+DAD1+CAC14+ZTX14+ZG14+RVFO+RFNR;ARFO+ARFN 31636758;005-08-067;;;00000863;;KLA+SR1;FD3+DAD1+DIPA 31638027;002-00-098;;;00017662;;KLA+SR1+DSM;FD3+SRC+DAD1+DIPA 36850434;014-03-121;;;00001452;;KLA+SR1+DSM;FD3+SRC+DAD1+DIPA+CAC14+ZTX14+ZG14 35916096;028-12-064;;;00000000;;KLA+SR1;FD3+DAD1+DIPA 35914406;033-02-037;;;00015336;;KLA;FD3+SRC+IAI+DIPA+CAC16+ZTX16+ZG16;ATT+ARC 31634762;001-26-060;;;00000401;;KLA+SR1;FD3+SRC+DAD1+DIPA 31632763;007-10-069;;;00002734;;KLA+SR7;FD3 31630103;002-02-070;;;00077657;;KLA+SR1;FD3+SRC+DAD1+RVFO+RFNR;ARFO+ARFN 36850439;014-06-099;;;00028261;;KLA+SR1;FD3+DAD1+DIPA+CAC14+ZTX14+ZG14 36860131;027-03-055;;;00000000;;KLA+SR1+DSM;FD3+DAD1+DIPA+CAC14+ZTX14+ZG14 31632140;001-18-002;;;00114417;;KLA+SR7;FD3+DF2+SRC 35917235;029-00-064;;;00000085;;KLA+SR7;FD3+SRC 35912853;034-08-102;;;00000000;;KLA+SR1;FD3+SRC+DAD1+DIPA+CAC16+ZTX16+ZG16

---

Par contre, si tu trouves d'autres irrégularités dans le format de ton fichier, je ne serais pas forcément là pour corriger le script.

Il faut donc que tu deviennes un peu autonome avec lui et comprennes comment il marche pour pouvoir t'adapter. Le script que tu as montré dans ton premier post montre que tu sais au moins un peu coder en Perl (même si ce script ne fonctionnait apparemment pas), mais certaines de tes questions montrent que tu es vraiment débutant.

Je t'en prie, lis mon script attentivement et essaie de vraiment comprendre en détail comment il marche. Et le moindre truc que tu ne comprends pas, soit dans l'algorithme, soit dans la syntaxe employée, ou autrement, n'hésite vraiment pas à demander des explications. Il n'y a aucune honte à ne pas savoir, même les meilleurs programmeurs ont été un jour débutants.

J’imagine en particulier que les lignes 17 et surtout 22 et 26 utilisant des expressions régulières peuvent paraître un peu cryptiques ou rébarbatives si tu n'y es pas habitué (c'est en fait beaucoup moins compliqué que ça en a l'air). Si c'est le cas, je me ferai un plaisir de te les expliquer afin que tu deviennes capable de les modifier toi-même si besoin est.

Citation:

---

Envoyé par Lolo78

même les meilleurs programmeurs ont été un jour débutants.

---

Et même ensuite, ils continuent d'en apprendre tous les jours (enfin, c'est tout ce qu'on peut leur souhaiter).

Merci infiniment Lolo78, je viens de faire le test et ça marche!
également merci pour les conseils, je vais m'y mettre au Perl, pas mal comme langage