De l'aide pour vos programmes et scripts en Perl

Perl traduction d"un algo

besoin daide urgent je doit traduire cette algo en perl svp

Procédure RECHERCHE()
Variable bureau1,bureau2, adresse1, adresse2 :chaine

Debut

Ouvrir(netmap.txt, L)

Ouvrir(téléphone.txt, L)

{initialiser chaines vide}

bureau1 netmap

bureau2 téléphone

adresse2 <- téléphone.adressemac
Fintantque

Fermer(téléphone.txt)
Afficher(téléphone.numtel, netmap.bureau)
fin

sinon
Afficher("Ce bureau n'existe pas")
FinSi

Fin

Alerter Rezoweb si ce message est illégal