Perl에서 해시 만들기

Question

디렉토리 이름을 키로 사용하는 Perl에서 어떻게 해시를 생성 한 다음 디렉토리의 파일 수와 각 파일의 이름을 모두 저장합니까? 배열의 해시 또는 해시 해시를 사용할 수 있습니까?

나는 모든 조언을 고맙게 생각합니다.

Answer 1

정확하게 이해하면이 작업이 트릭 (마지막에 덤퍼()를 사용하여 해시의 인쇄는 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 2

해시 값은 스칼라 여야하므로 실제 질문은 두 값을 하나의 스칼라로 가져 오는 방법입니다. 참조는 스칼라이므로 해시에 대한 참조가 작동합니다.

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

파일 개수가 중복됩니다. 파일 수에 0+@{ $data{$dir}{files} }을 사용할 수 있습니다. 이 중복 제거하도록 선택하면 파일 수가

0+@{ $files{$dir} } 

로 사용할 수 있습니다

$files{$dir} = \@files; 

사용할 수 있고 파일이

@{ $files{$dir} } 

합니다 (0+로 사용할 수 있습니다 스칼라 컨텍스트에서 생략하십시오.)

Answer 3

개인적으로 거의 항상 내가 너무 해시 참조 대신 대신 펄 해시 (및 arrayrefs 펄 배열을 사용하여). 예 :

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

my $var = { (...) } 해시 참조하여

, => 쉼표 , 단지 동의어이지만 해시 키와 값을 구별 허용한다. [ (...) ]은 해시 값으로 할당 된 익명의 배열 참조를 만듭니다.

당신은 파일의 번호와 같은 중복 된 정보를 저장하지 않아도, 당신은 단지 스칼라 문맥에서 배열을 평가할 수 :

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

할 수 있습니다 read more about hashes here 및 here.