Création d'un hachage en Perl

Question

Comment créer un hachage en Perl qui utilise le nom du répertoire comme clé, puis stocke à la fois le nombre de fichiers dans le répertoire et le nom de chacun des fichiers ? Est-ce possible en utilisant un hachage de hachages ou un hachage de tableaux ?

J'apprécierais tout conseil.

Answer 1

Les valeurs de hachage doivent être des scalaires, donc la vraie question est de savoir comment obtenir deux valeurs dans un scalaire. Les références sont des scalaires, donc une référence à un hash fonctionnerait.

$data{$dir} = {
   file_count => 0+@files,
   files      => \@files,
};

Notez que le nombre de fichiers est redondant. 0+@{ $data{$dir}{files} } pourrait être utilisé pour le comptage des fichiers. Si vous choisissez de vous débarrasser de cette redondance, vous pouvez utiliser

$files{$dir} = \@files;

Le nombre de fichiers est disponible en tant que

0+@{ $files{$dir} }

et les fichiers sont disponibles en tant que

@{ $files{$dir} }

(Le 0+ peut être omis dans un contexte scalaire).

Answer 2

Si je comprends bien, cela semble faire l'affaire (l'impression du hachage à l'aide de Dumper() à la fin est juste pour vous montrer ce que contient le hashref) :

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my $dir = $ENV{PWD};
opendir( DIR, $dir ) or die $!;
my @files = grep { -f "$dir/$_" } readdir( DIR );
my $hash = {
    $dir => {
        count => scalar( @files ),
        files => \@files,
    }
};

print Dumper( $hash ), "\n";

Answer 3

Personnellement, j'utilise presque toujours des références de hachage au lieu de hachages perl (et des arrayrefs au lieu de tableaux perl, aussi). Exemple :

my $dirs = {
     '/home/user' => [ '.profile', '.bashrc', 'My_pic.png' ],
     '/root'      => [ '.profile', '.zshrc' ]
};

my $var = { (...) } fait référence au hachage, => est juste un synonyme de virgule , mais permet de faire la distinction entre les clés de hachage et les valeurs. [ (...) ] crée une référence de tableau anonyme qui est assignée comme valeur de hachage.

Vous n'avez pas besoin de stocker des informations redondantes comme le nombre de fichiers, vous pouvez simplement évaluer le tableau dans un contexte scalaire :

my $root_files = $dirs->{'/root'};
$size = scalar @{$root_files};

Vous pouvez Pour en savoir plus sur les hachages, cliquez ici et ici .