Perl delete()函数

Perl中的 Delete() 函数用于删除散列中的指定键及其相关值，如果是数组，则用于删除指定的元素。这个操作只对单个元素或片断起作用。

语法： delete(LIST)

参数：

要被删除的LIST。

返回：

undef 如果键不存在，则返回与被删除的键相关的值。

例1： 在哈希上实现delete()操作

#!/usr/bin/perl
  
# Initializing hash 
%hash1 = ('Geeks' => 45, 'for' => 30, 'Now' => 40); 
  
# To delete the List passed as parameter
deleted_element = delete(hash1{'for'});
  
# Printing elements of Hash 
print "hash1{'Geeks'}\n"; 
print "hash1{'for'}\n"; 
print "hash1{'Now'}\n"; 
  
# Printing the deleted element
print "Deleted element:deleted_element";

输出

45

40
Deleted element: 30

例2： 在数组上实现delete()。

#!/usr/bin/perl
  
# Initializing array
@array1 = (10, 20, 30, 40, 50, 60); 
  
# To delete the array element at index 2
deleted_element = delete(@array1[2]);
  
# Printing elements of Array 
print "Updated Array: @array1";
  
# Printing the deleted element
print "\nDeleted element:deleted_element";

输出

Updated Array: 10 20  40 50 60
Deleted element: 30