Perl unshift()用法及代码示例

Perl中的unshift()函数将给定的元素列表放置在数组的开头。从而将数组中的所有值右移。使用此操作可以取消多个值的移位。此函数返回数组中新元素的数量。

用法： unshift(Array, List)

返回值：数组中新元素的数量

示例1:

#!/usr/bin/perl  
    
# Initalizing the array  
@x = ('Geeks', 'for', 'Geeks');  
    
# Print the Inital array  
print "Original array: @x \n";  
    
# Prints the number of elements  
# returned by unshift  
print "No of elements returned by unshift: ",  
                   unshift(@x, 'Welcome', 'to');  
    
# Array after unshift operation  
print "\nUpdated array: @x";

输出：

Original array: Geeks for Geeks 
No of elements returned by unshift: 5
Updated array: Welcome to Geeks for Geeks

示例2:

#!/usr/bin/perl  
    
# Initalizing the array  
@x = (10, 20, 30, 40, 50);  
    
# Print the Inital array  
print "Original array: @x \n";  
    
# Prints the number of elements  
# returned by unshift  
print "No of elements returned by unshift: ",  
                   unshift(@x, 70, 80, 'Geeks');  
    
# Array after unshift operation  
print "\nUpdated array: @x";

输出：

Original array: 10 20 30 40 50 
No of elements returned by unshift: 8
Updated array: 70 80 Geeks 10 20 30 40 50

相关用法

注：本文由纯净天空筛选整理自Code_Mech大神的英文原创作品 Perl | unshift() Function。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。