programmation avec du code dynamique

bonjour

Je voudrais savoir s'il est possible d'avoir du code dynamique? Je m'explique: J'ai un programme qui écrit dans différent onglet d'un fichier Excel avec le module Excel::Writer::XLSX.

Je crée 2 onglets avec les commandes suivantes:

Code:

---

1 2	$Onglet_1 = $workbook->add_worksheet("Onglet_1"); $Onglet_2 = $workbook->add_worksheet("Onglet_2");

---

Pour écrire, je fais une des commandes suivantes:

Code:

---

1 2	$Onglet_1->write_string(0, 0, 'Texte 1 dans l'onglet 1', $format ); $Onglet_2->write_string(0, 0, 'Texte 2 dans l'onglet 2', $format );

---

Je voudrais savoir comme j'ai beaucoup d'onglet avec la même procédure d'écriture s'il est possible d'avoir la variable dynamique en utilisant un call d'un sous-programme

Code:

---

Call ecriture("Onglet_1","texte","0","1") ;` # paramètres sont: l'onglet, le texte, la ligne et la colonne

---

Bonjour.

Je ne suis pas sûr d'avoir bien compris votre problème.

voici un exemple d'utilisation :

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 Modern::Perl; use Excel::Write::XLSX;   my $book = Excel::Write::XLSX->new('Mon_fichier.xlsx');   # hash des feuilles => data # a noter que 'data' pourrait etre une structure # plus complexe qu'une simple chaine de caracteres my %lst_sheets = { sheet_01 => 'blabla_01', sheet_02 => 'blabla_02', sheet_03 => 'blabla_03', sheet_04 => 'blabla_04', sheet_05 => 'blabla_05', sheet_06 => 'blabla_06', sheet_07 => 'blabla_07', sheet_08 => 'blabla_08', };   # traitement des feuilles du classeur for my $i ( keys %lst_sheets ) {   # creation de la feuille my $sheet = $book->add_workssheet( $i );   # ecriture de la feuille $sheet->write( 0, 0, $lst_sheets{$i} ); }   # on ferme notre fichier excel qui a maintenant # 8 feuilles avec chacune leurs data $book->close();

---