如何在Perl中缩小数组？
在Perl中缩小数组可以使用shift和pop两个内置函数。
shift函数从一个数组头部删除第一个元素，然后返回删除元素的位置。该函数通常用于将数组的第一个元素移除并替换为新值。如下示例：
my @array = 1, 2, 3, 4, 5;
my $removed_element = shift @array;
print "Removed element: $removed_element\n";
print "Modified array: \@array\n";输出将显示以下结果：
Removed element: 1
Modified array: [2, 3, 4, 5]pop函数则从一个数组的末尾移除并返回一个元素。如果数组的索引大于0(不是数组的最后一个元素)，就会从数组中删除并返回该索引位置的元素。如下示例：
my @array = 1, 2, 3, 4, 5;
my $removed_element = pop @array;
print "Removed element: $removed_element\n";
print "Modified array: \@array\n";输出将显示以下结果：
Removed element: 5
Modified array: [2, 3, 4]需要注意的是，如果pop函数返回的是没有元素的位置(-1)，那么它会将数组的长度减一，然后在下一次的pop操作中返回下标+1的位置，直到数组被shift完全清空。
此外，在Perl中也可以使用splice函数将元素从数组中移出，但需要注意的是splice函数的结果可能会使元素的位置被更新，并且可能会改变数组长度。
相关·内容
2回答
我试图使用Perl中的另一个数组过滤一个术语数组。我在OS上有Perl5.18.2，但是如果我是use 5.010的话，行为是一样的。以下是我的基本设置：#use strict;
my @terms = ('alpha','beta test','gamma','delta quadrant','epsilon',/
浏览 5提问于2016-12-11得票数 4
回答已采纳
我试图消除程序对从文件中读取信息然后解释该信息的依赖。我已经创建了一个Perl命令库，它可以根据需要生成必要的信息。我遇到的一个问题是Perl有时会调用expect脚本，expect脚本目前被设计为接受文件路径、打开文件、读取信息，然后使用这些信息。set port [lindex $argv 2]此时，我不知道如何在@config
浏览 2提问于2016-02-15得票数 1
回答已采纳
如何在Perl中生成具有100个随机值的数组，而不使用循环？在C中，生成这个数组非常容易，但我不知道如何在Perl中做到这一点。
浏览 0提问于2010-11-04得票数 25
回答已采纳
如何在jquery自动完成中搜索一个单词？假设我有一个数组如下所示。如果我输入的是'S‘，那么我必须打印所有与'S’相关的结果，如ActionScript、AppleScript、Scala、BASIC、Haskell、Scheme、ColdFusion等等。ColdFusion", "Fortran", "Haskell",
"Java&quo
浏览 5提问于2015-05-07得票数 0
回答已采纳
1回答
我正在为vnstat/vnstati上的网站前端编写Perl脚本。我不知道如何在没有任何特殊模块(如Net::Interface或OS::Interface )的情况下构建一个接口列表ip addr show|grep "^[0-9]:"|grep -e "state UP"|cut -d':' -f2
它返回wlan1，但我需要让它在Perl中创建一个数组。
浏览 4提问于2013-03-05得票数 0
3回答
如何在Perl 6中切断数组或数组引用？在Perl 5中，我可以这样做：$#$d = 4;my $d = [0 .. 9];这是可行的，但它看起来不像Perl 5那样漂亮，而且可能很昂贵：
$d.
浏览 3提问于2016-01-18得票数 8
回答已采纳
split有一个奇怪的问题，因为它在默认情况下不会将split放入默认数组中。#!/usr/bin/perl
split (":",$A);这个不印任何东西。但是，如果我显式地拆分为默认数组，如@_=split ("
浏览 4提问于2017-05-24得票数 6
回答已采纳
如何在Perl 6中声明并创建一个类型为“数组数组”的变量？在Perl的6文档中，这一点都没有。理论上，我能做到但这不管用。
浏览 3提问于2015-10-23得票数 4
回答已采纳
1回答
Delphi中有散列数组吗？
、、、、
我正在学习Delphi，但喜欢在Perl和Java中使用哈希数组。Delphi中是否有复合的数据结构？我知道可以使用TStringList作为哈希数组： myHash:TStringList);
myHash.valuescolor']:='blue';
Showmessage(myHash.Values['color']); //blue
浏览 2提问于2014-08-19得票数 6
回答已采纳
我有一个名为@missing_ports的数组，这个数组一直在从不同的子例程和循环中更新。所以数组需要是全局的。如何在perl中将此数组定义为全局数组。代码包含使用警告；使用严格；
我在程序开始时声明了这个数组，没有" my“关键字，面对错误@missing_ports”在experiment.pl上需要显式的包名，我的关键字能够解决错误，但是数组最终是空的如何在perl中</em
浏览 3提问于2022-01-23得票数 1
回答已采纳
1回答
如何在Perl中连接别名数组，使得到的数组也包含别名？对于短数组，这不是问题，但随着数据的增长，这意味着别名数组上的所有数组操作都是O(n)的，包括传统的O(1)操作，如push或unshift。Data::Alias可以提供帮助，但它不适用于最新版本的Perl。Array::RefElem包含av_store和av_push原语的包装器，这些原语可用于实现此功能。
浏览 0提问于2010-10-08得票数 6
1回答
我是perl的初学者，我试图编写一个使用Net::OpenSSH在给定主机上运行命令的脚本。如何在Net::OpenSSH中执行交互式模式，类似于我们在Net:SSH::Perl中所拥有的方式。Net:SSH::Perl有一个交互式标志，如果设置为true，则接受密码，否则是公钥。下面是我在Net：：ssh中拥有的SSH对象：：Perl，我想在Net::OpenSSH中复制它：
$ssh = Net::SSH::Perl->n
浏览 0提问于2018-06-28得票数 3
回答已采纳
在Perl 5中，我可以使用use warnings;my-help>
输出我试图在Perl--help>
A sample
浏览 4提问于2019-04-18得票数 5
3回答
如何对多个文件执行字符串替换？
、、、、
我想以某种方式将这个路径名替换为pathname2，用于该子目录中的所有bash脚本*.sh。perl -pi -e 's/pathname1/pathname2/g' file1
*.sh，如何在所有文件中完成这一任务？它不一定是用perl编写的，但这是我想到的一种方法。我怀疑还有一种方法可以用其他shell脚本和其他语言来实现-
浏览 1提问于2016-12-31得票数 0
回答已采纳
4回答
在Perl5中，我们可以应用函数式编程技术(使用闭包、高阶函数，如map、grep等)。但是函数组合又如何呢？比方说，在Haskell中，使用(.)可以非常容易地完成此任务。功能：Perl中这种“点函数”的等价物是什么？
浏览 0提问于2012-08-20得票数 8
回答已采纳
例如：@array = (1,2,3);
在我的shell脚本中，如何在shell脚本中处理这个数组？如何处理接收参数的shell脚本，以及如何在shell脚本中使用该数组变量？
浏览 1提问于2010-05-26得票数 2
回答已采纳
1回答
在写过程中更改文件名
、、、、
我试图获取我用Perl创建的一个非常大的txt文件(超过一百万行)，并在Perl中运行它，这个语句在本质上是这样的(注意，下面是shell)b=1doecho $line >> "Write file"${b} done b=($b + 1)试图缩小到每个文件的5k行，每次递增(filename1.txt，fil
浏览 1提问于2015-11-25得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
