Script en perl je débute dans ce language

Script en perl je débute dans ce language - Perl - Programmation

Marsh Posté le 05-07-2007 à 04:59:32    

Je dois faire ces deux scripts qui ne doivent pas avoir des beaucoup de lignes entre 10-15. Moi je l'ai fait en 80-90 donc c'est sur que ca marche pas pouvez-vous m'aider svp ??
 
 
 
1-écrire un programme auquel on donnera un répertoire en argument (sur la ligne de commande) et qui, dans ce répertoire, devra créer un répertoire pour chaque fichier qui s’y trouve, et déplacer ce fichier dans ce nouveau répertoire. Le nom de chacun des répertoires sera le nom du fichier correspondant (sans l’extension). Si jamais plusieurs fichiers portaient le même nom (avec des extensions différentes), alors ces fichiers se retrouveraient dans le même répertoire. Les fichiers dont le nom commence par un point seront ignorés.
 
 
2-écrire un programme qui permet de vérifier le « parenthésage » d’un fichier contenant du texte. Dès qu’une parenthèse fermante de trop sera détectée, votre script s’arrêtera et vous afficherez la ligne du fichier contenant la parenthèse fermante de trop, ainsi que le numéro de la ligne. Si vous constatez après avoir parcouru tout le fichier qu’il manque une ou plusieurs parenthèses fermantes, vous l’indiquerez par un message du genre : « il manque 2 parenthèses fermantes », par exemple. Des options permettront de faire le même travail pour des crochets OU des accolades OU des guillemets, par défaut on vérifiera pour les parenthèses.
 
 
Merci infiniment de votre aide

Reply

Marsh Posté le 05-07-2007 à 04:59:32   

Reply

Marsh Posté le 05-07-2007 à 10:01:43    

On n'est pas là pour écrire des programmes, mais pour aider sur des questions plus précises...
 
Quelques aides pour réduire la taille d'un programme en perl, surtout quand il y a des boucles ou des listes :
- grep { [condition] } @list : renvoi une liste filtré suivant la condition mise
- map { [bout de code] } @list : execute le bout de code pour chaque élément de la liste
 
Pour le deuxième : cherche dans perl func http://perl.enstimac.fr/DocFr/perlfunc.html tu devrais y trouver ton bonheur (du coté des fonctions chaines ou expressions régulières)
 
Pour moi tes programmes peuvent s'ecrire avec ce que j'ai dit ci-dessus en 4-5 lignes avec les commentaires qui vont bien...
 

Reply

Marsh Posté le 05-07-2007 à 10:03:14    

1- tu peux poster ce que t'as déjà écrit (en 80-90 lignes) ?

 

2- qui t'impose de faire un programme en 10-15 lignes ? Je trouve ça un peu débile comme contrainte : un programme ultra-compact est souvent plus difficile à comprendre et à maintenir...[edit] ceci dit, comme le dit dreamddeath, ces deux programmes particuliers peuvent s'écrire de manière à la fois courte et claire.


Message édité par franceso le 05-07-2007 à 10:05:25

---------------
TriScale innov
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed