Perl

[resolu]problème avec une fonction

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [resolu]problème avec une fonction

Yagmoth

Fanboy

Bon alors j'ai créé une petite fonction qui demande à l'utilisateur le chemin d'accès d'un fichier, avec en arguments une phrase de requête, une phrase en cas de non indication d'un chemin d'accès et un test à effectuer (soit en lecture, soit en écriture). Voici la fonction :

Code :

sub requete_fichier() {
($phrase,$phrase2,$test)=@_;
print "$phrase";
$fichier=<STDIN>;
chomp($fichier);
if ($fichier eq '')
{
print "$phrase2";
requete_fichier($phrase,$phrase2,$test);
}
elsif ($test eq 'L' &&!open F, ("< $fichier" ))
{
print "le fichier specifie n'existe pas ! ";
requete_fichier($phrase,$phrase2,$test);
}
elsif ($test eq 'W' &&!open F, ("> $fichier" ))
{
print "Le fichier specifie n'est pas accessible en ecriture. ";
requete_fichier($phrase,$phrase2,$test);
}
return $fichier;
}

ce qui me chiffonne c'est que ceci marche :

Code :

$fichier=requete_fichier('Quel fichier souhaitez vous analyser ? ','Vous devez choisir un fichier a analyser. ','L');

parcontre ceci déconne (too many arguments for main::requete_fichier...) :

Code :

$fichier=requete_fichier('a','b','W');

Est-ce que quelqu'un peut m'éclairer ?

Message édité par Yagmoth le 17-11-2006 à 00:39:26

Publicité

matafan

Aucun de tes deux exemples ne fonctionne.

Si tu met des () dans la declaration de ta fonction, ca veut dire que tu donnes un prototype, et que ta fonction ne prend pas d'argument. Donc il faut soit enlever les (), soit faire ($$$), qui signifie que ta fonction attend 3 scalaires.

Edit : typos

Message édité par matafan le 16-11-2006 à 15:41:44

Yagmoth

Fanboy

Ben... Le premier exemple fonctionne pourtant à l'exécution :pt1cable: . Mais je vais ôter les () et voir ce que ça donne, je suppose que tu as raison, mais je ne pige pas comment ça se fait dans ce cas que mon premier exemple a bel et bien fonctionné sans problème...

Message édité par Yagmoth le 15-11-2006 à 21:52:46

matafan

J'ai essayé sur ma machine, tes deux exemples echouent avec la même erreur (too many arguments). Perl 5.8.8.

anapajari

s/travail/glanding on hfr/gs;

+1 pour matafan

Aricoh

gentil mais fo po pousser

Ta ligne suivante me semble bizarre :

Code :

($phrase,$phrase2,$test)=@_;

Etant dans une fonction, cette déclaration devrait être préfixée par my

Code :

my ($phrase,$phrase2,$test)=@_;

Peut être pour ça que ça déconne ?

Message édité par Aricoh le 16-11-2006 à 16:50:18

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Yagmoth

Fanboy

J'ai retiré le () et ça fonctionne dans les deux cas. Parcontre je persiste à dire que le deuxieme exemple fonctionnait au sein de mon programme (une question de structure peut être, aucune idée), mais merci du renseignement et de votre aide

FORUM HardWare.fr

Programmation

Perl

[resolu]problème avec une fonction

Sujets relatifs
Appeler fonction avec NuSoap	[Resolu] JScrollPane et JTextArea
[Résolu] Problème de compilation fonction poll()	[résolu] Problème fonction remplacer les accents
[résolu]probleme entre fonction et regex	Problème envoi mail avec fonction mail() [Résolu]
[RESOLU]Fonction mail () problème d'envoi en HTML mais nickel en texte	Problème avec la fonction MoveFile [Résolu]
[php]problème avec la fonction logique \|\| [resolu]	[JAVASCRIPT] Problème d'accès à une frame dans une fonction (résolu)
Plus de sujets relatifs à : [resolu]problème avec une fonction

Page générée en 0.057 secondes