Perl et la génération de nombres, possible ?

**cooljojo** · 11/03/2010, 20h27

Bonjour a tous !
J'espère que vous allez bien !

J'aurais une requête concernant un script Perl, s'il vous plaît.
J'ai essayé de nombreuses fois, .... sans succès

Je commence à m'inquiéter

Alors voilà, je vous explique en espérant qu'une âme de bonne volonté pourrait m'aider:

Example:

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
22
23
24
25
26
27
28
29
30
31
32
33
34
^XA
^PMN
^MNY
^MMR
^MTT
^MD20
^LH0,0
^LL150
^PR2
^JMA
^FO20,4^CI0^A0N,50,25^FR^FDID^FS00001^FS
^FO20,50^BY1.6,3.0,45^BCN,75,N,N,N^FR^FD^FS
^FO95,132^CI0^A0N,47,35^FR^FD00001^FS
^PQ1
^XZ

^XA
^PMN
^MNY
^MMR
^MTT
^MD20
^LH0,0
^LL150
^PR2
^JMA
^FO20,4^CI0^A0N,50,25^FR^FDID^FS00002^FS
^FO20,50^BY1.6,3.0,45^BCN,75,N,N,N^FR^FD^FS
^FO95,132^CI0^A0N,47,35^FR^FD00002^FS
^PQ1
^XZ

etc.

J'aurais besoin d'un script qui génère 10000fois, le bloc de text entre "^XA" et "^XZ" (inclus) et qui incrémente chaque fois de 1 la valeur indiqué en gras souligné.
Les zéros, et les espaces entre chaque bloc de texte sont importants.
Donc on aura quelque chose comme 00001, 00002, 00003 ... à 10000.
Seulement ce nombre change, bonne nouvelle!

Le résultat final, ca serait cool si je l'obtenais dans un fichier.

Je suis ouvert a toute aide car pour honnête avec vous, je ne suis pas développeur mais technicien

Je vous remercie d'avance et

Passez une bonne journée !

**djibril** · 11/03/2010, 22h19

Qu'avez vous déjà fait ?

**cooljojo** · 11/03/2010, 22h30

Un algorithme qui me semble correct si je le suis.
mais je ne sais pas écrire* le code

Pas d'expérience en programmation :-/

**Philou67430** · 11/03/2010, 23h34

Sans être indiscret, c'est quoi comme langage ces blocs ?

Une idée serait de créer dans une variable scalaire, un "modèle" (template) du bloc à écrire qui soit accepté par printf. Dans ce bloc, tout le contenu fixe sera inséré tel quel, et la partie variable sera insérée sous forme de format printf (dans ton cas, %05d). Pour initialiser une telle variable, tu peux utiliser l'opérateur de chaine "here document" (<<FIN_CHAINE), ou encore l'opérateur qq().

Ensuite, une simple boucle affichant ce texte pour des valeurs numérique de 1 à 10000 grâce à l'opérateur .. devrait faire l'affaire.

J'ai pratiquement écrit le code en t'indiquant cela. Tu peux chercher la syntaxe de ces opérateurs et fonction à l'aide de la commande

Code :

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

1
2
perldoc -f printf
perldoc perlop

Si tu veux plus d'aide, n'hésite pas

**cooljojo** · 12/03/2010, 17h49

Bonjour !

C'est du ZPL*.
Ok, je vais regarder aussi les cours de PERL sur le site, car c'est ma première fois :-/
Je te remercie bien Philou67430 !
Mais je suis sûr que je vais te revenir car je doute que je réussisse ca du premier coup, je suis pas magicien

Bonne journée!