optimisation possible ?

3 réponses

kurtz le pirate

31/12/2005 à 19:54

bonsoir à tous.

toujours pour mon projet, j'ajoute petit à petit des fonctionalités.
j'ai écris ça :

...
my $folder = "";
while ($folder eq "") {
$folder = &getFolder("Choisissez un dossier");
}

my $file = "";
while ($file eq "") {
$file = &getFile("Choisissez un fichier");
}

print "\n\n---\n";
print " Dossier -> [$folder]\n";
print " Fichier -> [$file]\n";
...

avec :

sub getFolder {
print shift, " : ";
chomp($_ = <>);
s/\\//g;
s/\s$//;

if (-d $_) {
return $_;
}
else {
return "";
}
}

sub getFile {
print shift, " : ";
chomp($_ = <>);
s/\\//g;
s/\s$//;

if (-f $_) {
return basename($_);
}
else {
return "";
}
}

ça me permet de choisir un dossier ou un fichier par un simple
'déplacer' du dossier/fichier dans la fenêtre du shell.

ça marche bien mais peut-on faire plus simple ou "mieux" écrit ?

merci de vos avis et bon réveillon !!!

3 réponses

Klaus Eichner

05/01/2006 à 20:22

"kurtz le pirate" wrote in message
news:

bonsoir à tous.

toujours pour mon projet, j'ajoute petit à petit des fonctionalités.
j'ai écris ça :

[...]

sub getFolder {
print shift, " : ";
chomp($_ = <>);
s///g;
s/s$//;

[...]

sub getFile {
print shift, " : ";
chomp($_ = <>);
s///g;
s/s$//;

[...]

ça marche bien mais peut-on faire plus simple ou "mieux" écrit ?

Je ne l'ai pas encore essayé, mais je pense que le module "IO::Prompt" de
Damian Conway pourrait être intéressant pour simplifier la partie print
"..." / chomp(<>):
http://search.cpan.org/~dconway/IO-Prompt-0.99.2/lib/IO/Prompt.pm

Aussi, Damian parle de son module dans une présentation (sous format *.mp3
en Anglais) sur http://perlcast.com (voir le lien "Presentations Conway
Channel 2005")
http://perlcast.com/audio/Perlcast_Presentation_001_Conway_Channel_OSCON_2005.mp3

--
Klaus Eichner

FDA

05/01/2006 à 20:22

Je ne l'ai pas encore essayé, mais je pense que le module "IO::Prompt" de
Damian Conway pourrait être intéressant pour simplifier la partie print
"..." / chomp(<>):
http://search.cpan.org/~dconway/IO-Prompt-0.99.2/lib/IO/Prompt.pm

Aussi, Damian parle de son module dans une présentation (sous format *.mp3
en Anglais) sur http://perlcast.com (voir le lien "Presentations Conway
Channel 2005")
http://perlcast.com/audio/Perlcast_Presentation_001_Conway_Channel_OSCON_2005.mp3

Il ne se repose donc jamais, le Damian ! Quelqu'un a-t-il essayé son
module Quantu::Superpositions ?

FDA

05/01/2006 à 20:22

Je ne l'ai pas encore essayé, mais je pense que le module "IO::Prompt" de
Damian Conway pourrait être intéressant pour simplifier la partie print
"..." / chomp(<>):
http://search.cpan.org/~dconway/IO-Prompt-0.99.2/lib/IO/Prompt.pm

Aussi, Damian parle de son module dans une présentation (sous format *.mp3
en Anglais) sur http://perlcast.com (voir le lien "Presentations Conway
Channel 2005")
http://perlcast.com/audio/Perlcast_Presentation_001_Conway_Channel_OSCON_2005.mp3

Il ne se repose donc jamais, le Damian ! Quelqu'un a-t-il essayé son
module Quantum::Superpositions ?

optimisation possible ?

3 réponses

Veuillez sélectionner un problème