[perl] Hash 크기 구하기

해쉬의 사이즈를 구합니다.

#!/usr/bin/perl

MAIN:

{

    my $test  = {};

    $test->{0}=0;

    $test->{1}=0;

    $test->{2}=0;

    $test->{3}=0;

    $test->{5}=0;

    my $len = scalar(keys %{$test});

    print "$len\n";

}

결과값

5