해쉬의 사이즈를 구합니다.
#!/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
'업무 > Perl' 카테고리의 다른 글
[perl] trim 구현하기..함수.. (0) | 2012.12.10 |
---|---|
[perl] HP-UX에서 Text::Iconv 가 안될때해결법.. (0) | 2012.05.25 |
[perl] DBD-mysql 모듈 경로지정해서 설치하기 (0) | 2012.02.20 |
[perl] 핸들변수 함수인자로 넘겨버리기 (0) | 2012.02.02 |
[perl] 어제날짜 구하기 (0) | 2012.02.02 |