当前位置：极客教程 > Perl > Perl 教程 > Perl 哈希操作

Perl 哈希操作

Perl 哈希操作

正如大多数读者可能知道的那样， 散列 通过使用一种叫做 Hashing的 机制来存储数据 。 在散列中，一个键被用来确定一个值或数据。这些键必须是 唯一的 ，然后被用作索引，与该键相关的数据被存储在该索引中。这个数据不一定是唯一的。它可能是重复的。

散列是一种数据结构，通过维护键和值 或键/值对 之间的关系来存储数据 。 给定一个键，我们可以找到它的值。键/值对是可变的对象，因此，只要你想，它们就可以被改变。散列中的键可以进一步定义为一个用于检索值的对象。与数组相比，使用哈希的主要优点是，哈希允许基本操作的执行时间保持不变，例如，在一个特定的键（在数组的情况下是索引）上获取一个值或设置一个值，即使是大型数据集。

请注意，Perl中的哈希值是 没有顺序的。 这意味着，当你在一个哈希上进行迭代时，你可能不会按照它们被插入的顺序来提取数值。

散列中存储的值可以是 整数、浮点数、字符串、布尔值、数组和散列 本身。

例子

#!/usr/bin/perl
  
# Creating a simple hash containing
# different types of values
my %hash = ( # value type string
            'MyVehicle' => 'Car',
              
            # value type integer
            'Model' => 1234,
              
            # value type float
            'Speed' => 60.7,    
              
            # value type hash
            'Traffic' => {'Red' => 'Stop',         
                        'Yellow' => 'Look and move', 
                        'Green' => 'Go'},
            # value type array
            'AllVehicles' => ['Car', 'Cycle', 
                              'Bus', 'Auto']);
  
# printing values stored 
# at key 'Traffic' and 'AllVehicles'
print "Traffic : hash{'Traffic'}\n";
print "AllVehicles :hash{'AllVehicles'}\n";
Perl

输出。

Traffic : HASH(0x242af30)
AllVehicles : ARRAY(0x24471f8)
Perl

这里，键Traffic的数据类型是哈希，键AllVehicles的数据类型是数组。因此，输出是哈希和数组的第一个元素的地址。

此外，许多操作或操作可以在散列上进行，下面将解释。

对哈希的操作

Perl的哈希操作包括各种操作，对哈希进行操作可以更有效地存储和检索数据。散列中最常用的操作是 :

  1. 访问散列中的键和值。
  2. 修改特定键的值。
  3. 循环到散列。

下面用例子解释Perl Hash中的每一个操作。

查询/访问Perl哈希值或键

查找或访问意味着能够访问散列中的每一个键/值对，以便进一步操作。Perl中的键是以一种最佳的方式来存储哈希的元素的，这样它的值就可以被快速地获取。散列中的值可以通过嵌入在{}括号中的各自的键名来进行查询。

语法 : $hash_name{key_name};

示例

# Perl program to demonstrate 
# accessing of the hash values
my %hash = ('MyVehicle' => 'Car', 
            'Model' => 1234, 
            'Speed' => 60.7, 
              
            # value type hash
            'Traffic' => {'Red' => 'Stop',             
                          'Yellow' => 'Look and move', 
                          'Green' => 'Go'},
                            
            # value type array
            'AllVehicles' => ['Car', 'Cycle', 
                              'Bus', 'Auto']);
  
# Creating array containing 
# keys of the hash
@k = keys %hash;         
  
# print all keys of the hash
print "Keys are : ";
print join(", ", @k), "\n";
  
# Creating array containing
# values of the hash
@v = values %hash;             
  
# print value of all values
print "Values are : ";
print join(", ", @v), "\n";
  
# accessing individual values of the keys
print "Speed is : hash{'Speed'}\n";
print "Yellow light indicates :hash{'Traffic'}{'Yellow'}\n";
print "$hash{'AllVehicles'}[3] is a type of vehicle \n";
Perl

输出:

Keys are : AllVehicles, MyVehicle, Speed, Traffic, Model
Values are : ARRAY(0x9361f8), Car, 60.7, HASH(0x919f30), 1234
Speed is : 60.7
Yellow light indicates : Look and move
Auto is a type of vehicle
Perl

修改哈希元素

散列中的值不是固定的，也就是说它们容易发生变化，Perl提供了修改和更新散列中的值的能力。对于一个给定的键，要修改或更新其相应的值，可以使用下面的语法。

语法 : $hash{‘Key’} = modified_value;

要修改一个给定的键而不改变其相应的值，只需创建一个额外的键，即被修改的键，并为这个键赋值（你想要这个新键），然后使用delete关键字删除之前的键/值对。

示例 :

# Perl program to demonstrate the 
# Modification of an element of a Hash 
  
# creating a hash
my %hash = ('MyVehicle' => 'Car', 
            'Model' => 1234, 
            'Speed' => 60.7, 
              
            # value type hash
            'Traffic' => {'Red' => 'Stop',             
                          'Yellow' => 'Look and move', 
                          'Green' => 'Go'},
              
            # value type array
            'AllVehicles' => ['Car', 'Cycle', 
                              'Bus', 'Auto']);
  
# previous value of key 'Model'
print ("Previous Model number is ", 
             hash{'Model'}, "\n");
  
# modifying value of key 'Model'hash{'Model'} = 7717;
  
# new value of key 'Model'
print ("New Model number is ", 
        hash{'Model'}, "\n");
  
# Changing key from 'MyVehicle' to 'Mine' 
# without changing its corresponding value
@k = keys %hash;
  
# printing previous keys
print "Previous Keys are : \n";     
print join(", ", @k), "\n"; 
  hash{'Mine'} = 'Car';
  
# deleting 'MyVehicle' key/value pair
delete $hash{'MyVehicle'};         
  
@k_n = keys %hash;
print "New Keys are : \n";    
  
# printing new keys
print join(", ", @k_n), "\n";
Perl

输出:

Previous Model number is 1234
New Model number is 7717
Previous Keys are : 
MyVehicle, AllVehicles, Model, Traffic, Speed
New Keys are : 
Mine, Speed, Traffic, Model, AllVehicles
Perl

在Perl的哈希值上进行循环操作

Perl允许对其哈希值进行循环。这意味着哈希值是迭代型的，人们可以使用 “for “循环和 “while “循环来迭代其键和值。在Perl中，哈希数据结构是由keys()函数提供的，与Python编程语言中的函数类似。这个keys()函数允许你在标量中获得一个哈希键的列表，可以进一步用来迭代哈希键的值。

语法 keys %Hash

此外，Perl提供了两种方法来循环处理哈希中的所有元素。

  1. Perl的foreach循环
  2. Perl的while循环与each函数
# Perl program to demonstrate the 
# looping over a hash using its keys
  
# creating a hash
my %hash = ('MyVehicle' => 'Car', 
            'Model' => 1234, 
            'Speed' => 60.7, 
              
            # value type hash
            'Traffic' => {'Red' => 'Stop',             
                          'Yellow' => 'Look and move', 
                          'Green' => 'Go'},
              
            # value type array
            'AllVehicles' => ['Car', 'Cycle',
                              'Bus', 'Auto']);
  
# Case 1: When hash is not large 
  
# for loop to loop over the hash
foreach my key (keys %hash)
{
      
    # do stuff
    value = hash{key};
    print "Value of key isvalue\n"; 
}
  
# Case 2: When hash is very large 
  
# traversing the hash using "each" function
while((key,value) = each (%hash))
{
      
    # do stuff
    value =hash{key};
    print "Value ofkey is $value\n"; 
}
Perl

输出:

Value of Model is 1234
Value of MyVehicle is Car
Value of Traffic is HASH(0x1049f30)
Value of AllVehicles is ARRAY(0x10661f8)
Value of Speed is 60.7
Value of Model is 1234
Value of MyVehicle is Car
Value of Traffic is HASH(0x1049f30)
Value of AllVehicles is ARRAY(0x10661f8)
Value of Speed is 60.7
Perl

在上面的例子中，代码给出了数组的第一个元素的地址，以及分别存储在键 “AllVehicles “和 “Traffic “的哈希值。为了解决这个问题，我们必须在数组和哈希内部进行循环。

示例

# Perl program to demonstrate the 
# looping over a multidimensional hash
  
# creating a hash
my %hash = ('MyVehicle' => 'Car', 
            'Model' => 1234, 
            'Speed' => 60.7, 
              
            # value type hash
            'Traffic' => {'Red' => 'Stop',             
                          'Yellow' => 'Look and move', 
                          'Green' => 'Go'},
                            
            # value type array
            'AllVehicles' => ['Car', 'Cycle',
                              'Bus', 'Auto']);
  
# Loop over the key storing array 
my @array = @{hash{'AllVehicles'}};
print "AllVehicles include \n";
  
# for loop to loop over the array
foreach myele (@array)
{
    print "ele\n";
}
  
# Loop over the key storing hash
print "\nTraffic includes\n";
  
# for loop to loop over the hash
foreach myval(keys %{hash{'Traffic'}})
{
    print "Key :val, value : hash{'Traffic'}{val}\n";
}
Perl

输出:

AllVehicles include 
Car
Cycle
Bus
Auto

Traffic includes
Key : Yellow, value : Look and move
Key : Green, value : Go
Key : Red, value : Stop
Perl

Python教程

Python 教程

Python 教程
Tkinter 教程

Tkinter 教程
Pandas 教程

Pandas 教程
NumPy 教程

NumPy 教程
Flask 教程

Flask 教程
Django 教程

Django 教程
PySpark 教程

PySpark 教程
wxPython 教程

wxPython 教程
SymPy 教程

SymPy 教程
Seaborn 教程

Seaborn 教程
SciPy 教程

SciPy 教程
RxPY 教程

RxPY 教程
Pycharm 教程

Pycharm 教程
Pygame 教程

Pygame 教程
PyGTK 教程

PyGTK 教程
PyQt 教程

PyQt 教程
PyQt5 教程

PyQt5 教程
PyTorch 教程

PyTorch 教程
Matplotlib 教程

Matplotlib 教程
Web2py 教程

Web2py 教程
BeautifulSoup 教程

BeautifulSoup 教程

Java教程

Java 教程

Java 教程

Web教程

HTML 教程

HTML 教程
CSS 教程

CSS 教程
CSS3 教程

CSS3 教程
jQuery 教程

jQuery 教程
Ajax 教程

Ajax 教程
AngularJS 教程

AngularJS 教程
TypeScript 教程

TypeScript 教程
WordPress 教程

WordPress 教程
Laravel 教程

Laravel 教程
Next.js 教程

Next.js 教程
PhantomJS 教程

PhantomJS 教程
Three.js 教程

Three.js 教程
Underscore.JS 教程

Underscore.JS 教程
WebGL 教程

WebGL 教程
WebRTC 教程

WebRTC 教程
VueJS 教程

VueJS 教程

数据库教程

SQL 教程

SQL 教程
MySQL 教程

MySQL 教程
MongoDB 教程

MongoDB 教程
PostgreSQL 教程

PostgreSQL 教程
SQLite 教程

SQLite 教程
Redis 教程

Redis 教程
MariaDB 教程

MariaDB 教程

图形图像教程

Vulkan 教程

Vulkan 教程
OpenCV 教程

OpenCV 教程

大数据教程

R语言 教程

R语言 教程

开发工具教程

Git 教程

Git 教程
VSCode 教程

VSCode 教程
Docker 教程

Docker 教程
Gerrit 教程

Gerrit 教程
Excel 教程

Excel 教程

计算机教程

Go语言 教程

Go语言 教程
C++ 教程

C++ 教程

Perl 教程

登录

找回密码？

注册