Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Langage Perl question de style.

question de style.

1 réponse
Avatar
kurtz_le_pirate
bonjour,

un petit de code qui fonctionne bien :

if(-f){
my $fileSize = (stat($_)->size)/1024/1024;
my(undef, undef, $ftype) = fileparse($_,qr/\.[^.]*/);
$ftype=lc($ftype);
if (exists($files{$ftype})) {
$files{$ftype}[0]++;
$files{$ftype}[1]+=$fileSize;
}
else {
$files{$ftype}[0]=1;
$files{$ftype}[1]=$fileSize;
}
}

deux questions :
- je trouve le if(exists()) pas très élégant.
existe-t-il une autre moyen ?
- peux-t-on "definir" une "constante" pour
remplacer et faciliter les accès au hash
<reve on>
use constant NB_FICHIERS $files{$ftype}[0]
use constant TAILLE_TOTALE $files{$ftype}[1]
<reve off>



merci
--
klp
"bug : probleme d'interface entre la chaise et le clavier"
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
espie
In article <49478e0d$0$7167$,
kurtz_le_pirate wrote:
bonjour,

un petit de code qui fonctionne bien :

if(-f){
my $fileSize = (stat($_)->size)/1024/1024;
my(undef, undef, $ftype) = fileparse($_,qr/.[^.]*/);
$ftype=lc($ftype);
if (exists($files{$ftype})) {
$files{$ftype}[0]++;
$files{$ftype}[1]+=$fileSize;
}
else {
$files{$ftype}[0]=1;
$files{$ftype}[1]=$fileSize;
}
}

deux questions :
- je trouve le if(exists()) pas très élégant.
existe-t-il une autre moyen ?


Oui, le test ne sert plus a rien sur les perl recents, qui ont un
truc sympa qui s'appelle l'autovivification...

- peux-t-on "definir" une "constante" pour
remplacer et faciliter les accès au hash
<reve on>
use constant NB_FICHIERS $files{$ftype}[0]
use constant TAILLE_TOTALE $files{$ftype}[1]
<reve off>


Fais de l'objet.