Je ne comprend pas vraiment ce qui te pose probleme. En gros tu fais :
print "<annuaire>";
for my $i (1..10000) {
my $lastname = randstr();
my $firstname = randstr();
print <<"EOF";
<personne>
<nom>$lastname</nom>
<prenom>$firstname</prenom>
</personne>
EOF
}
print "</annuaire>";
|
Puis voila, je te laisse le soin d'ecrire la fonction randstr().
Message édité par matafan le 24-01-2005 à 23:29:26