펄 해시
해시키 / 값 쌍이다.
펄 해시 변수는 퍼센트 기호 (%) 표시로 시작합니다.
액세스 해시 요소형식 : $ {키}.
다음은 간단한 해시 인스턴스입니다 :
#!/usr/bin/perl
%data = ('google', 'google.com', 'w3big', 'w3big.com', 'taobao', 'taobao.com');
print "\$data{'google'} = $data{'google'}\n";
print "\$data{'w3big'} = $data{'w3big'}\n";
print "\$data{'taobao'} = $data{'taobao'}\n";
위의 프로그램은 출력은 다음과 같습니다
해시 만들기
다음과 같은 두 가지 방법의 해시를 생성 할 수 있습니다 :
첫째, 각 키에 대한 값을 설정
$data{'google'} = 'google.com';
$data{'w3big'} = 'w3big.com';
$data{'taobao'} = 'taobao.com';
둘째, 세트리스트를 통해
키의리스트의 첫 번째 요소는, 두 번째 값이다.
%data = ('google', 'google.com', 'w3big', 'w3big.com', 'taobao', 'taobao.com');
당신은 또한=를 사용할 수 있습니다>기호는 키 / 값을 설정합니다 :
%data = ('google'=>'google.com', 'w3big'=>'w3big.com', 'taobao'=>'taobao.com');
다음 예는 사용 위의 예제의 변형이다- 대신 인용 부호의 :
%data = (-google=>'google.com', -w3big=>'w3big.com', -taobao=>'taobao.com');
이 모드 키를 사용하여 요소 방법을 읽어 공간을 가질 수 없습니다 :
$val = %data{-google}
$val = %data{-w3big}액세스 해시 소자
액세스 해시 요소형식 다음과 같이 $ {키} 예는 다음과 같습니다
#!/usr/bin/perl
%data = ('google'=>'google.com', 'w3big'=>'w3big.com', 'taobao'=>'taobao.com');
print "\$data{'google'} = $data{'google'}\n";
print "\$data{'w3big'} = $data{'w3big'}\n";
print "\$data{'taobao'} = $data{'taobao'}\n";
위의 프로그램은 출력은 다음과 같습니다
해시 값을 읽기
당신은 해시의 배열 추출물 값을 좋아 할 수 있습니다.
배열구문을 추출하는 해시 값 :@ {키 1, 키 2}.
#!/uer/bin/perl
%data = (-taobao => 45, -google => 30, -w3big => 40);
@array = @data{-taobao, -w3big};
print "Array : @array\n";
위의 프로그램은 출력은 다음과 같습니다
Array : 45 40
해시 키와 값을 읽
모든 키를 읽기
우리는 다음과 같은 모든 해시 키를 판독 할 수있는 기능키를 사용하여, 구문은 다음과
keys %HASH
이 기능은 모든 모든 키 해시의 배열을 반환합니다.
#!/usr/bin/perl
%data = ('google'=>'google.com', 'w3big'=>'w3big.com', 'taobao'=>'taobao.com');
@names = keys %data;
print "$names[0]\n";
print "$names[1]\n";
print "$names[2]\n";
위의 프로그램은 출력은 다음과 같습니다
taobao google w3big
I 해시 값의 모든값을 판독하기 위해 유사한 기능을 사용할 수있는 것 다음과 같은 구문은 :
values %HASH
이 기능은 모든 해시의 모든 값의 배열을 반환합니다.
#!/usr/bin/perl
%data = ('google'=>'google.com', 'w3big'=>'w3big.com', 'taobao'=>'taobao.com');
@urls = values %data;
print "$urls[0]\n";
print "$urls[1]\n";
print "$urls[2]\n";
위의 프로그램은 출력은 다음과 같습니다
taobao.com w3big.com google.com
요소가 존재 검출
만약 해시에 존재하는 키 / 값 쌍을 판독하고,정의되지 않은 값을 반환하고, 경고 알림의 구현 경우.
이러한 상황을 방지하기 위해, 우리는이 존재 읽을 때 키가 존재하는지 여부를 확인하는기능이 존재 사용할 수 있습니다 :
#!/usr/bin/perl
%data = ('google'=>'google.com', 'w3big'=>'w3big.com', 'taobao'=>'taobao.com');
if( exists($data{'facebook'} ) ){
print "facebook 的网址为 $data{'facebook'} \n";
}
else
{
print "facebook 键不存在\n";
}위의 프로그램은 출력은 다음과 같습니다
facebook 键不存
우리가경우 사용 위의 코드는 ...나중에 섹션에서ELSE문은 우리가 특정 소개합니다.
해시 크기를 가져옵니다
다음 해시 크기 우리는 키 또는 값 어레이의 모든 요소를 통과하고, 해시의 크기를 구하는 어레이 요소들의 수를 계산할 수있는 소자의 수이며, 예이다 :
#!/usr/bin/perl
%data = ('google'=>'google.com', 'w3big'=>'w3big.com', 'taobao'=>'taobao.com');
@keys = keys %data;
$size = @keys;
print "1 - 哈希大小: $size\n";
@values = values %data;
$size = @values;
print "2 - 哈希大小: $size\n";
위의 프로그램은 출력은 다음과 같습니다
1 - 哈希大小: 3 2 - 哈希大小: 3
추가하거나 요소를 제거 해시
추가 키 / 값 쌍은 단순한 할당하여 수행 할 수 있습니다. 그러나, 해시 요소를 제거하면삭제 기능을 사용해야합니다 :
#!/usr/bin/perl
%data = ('google'=>'google.com', 'w3big'=>'w3big.com', 'taobao'=>'taobao.com');
@keys = keys %data;
$size = @keys;
print "1 - 哈希大小: $size\n";
# 添加元素
$data{'facebook'} = 'facebook.com';
@keys = keys %data;
$size = @keys;
print "2 - 哈希大小: $size\n";
# 删除哈希中的元素
delete $data{'taobao'};
@keys = keys %data;
$size = @keys;
print "3 - 哈希大小: $size\n";
위의 프로그램은 출력은 다음과 같습니다
1 - 哈希大小: 3 2 - 哈希大小: 4 3 - 哈希大小: 3