如何在Perl中迭代/取消引用子例程引用数组？
在Perl中，要迭代/取消引用子例程引用数组，可以使用map函数。map函数可以将一个函数应用于一个列表的所有元素，并返回一个新列表。在这种情况下，我们可以使用map函数将子例程应用于数组的每个元素。
以下是一个示例：
sub my_subroutine {
my $element = shift;
# 对数组元素进行操作
return $result;
}
my @array = (1, 2, 3, 4);
my @mapped_array = map { my_subroutine($_) } @array;在这个示例中，我们定义了一个名为my_subroutine的子例程，它接受一个参数并返回一个结果。然后，我们创建了一个名为array的数组，其中包含一些元素。我们使用map函数将my_subroutine应用于array的每个元素，并将结果存储在名为mapped_array的新数组中。
这种方法可以让您轻松地迭代/取消引用子例程引用数组。
相关·内容
1回答
我只是Perl的初学者，所以如果这听起来很愚蠢--很抱歉:)
我的问题是-我试图写一个类，它有一个空数组，在类的构造函数中定义。所以我这样做：
package MyClass;
use strict;
sub new {
my ($C) = @_;
my $self = {
items => ()
};
bless $self, ref $C || $C;
}
sub get {
return $_[0]->{items};
}
1;
稍后，我使用简单的脚本测试我的类：
use strict;
use Data::Du
浏览 3提问于2010-04-25得票数 4
回答已采纳
我正在重构这个脚本，我真的不理解我得到的错误。
#!/sbcd/GSD/scripts/perl/bin/perl
use DBI ;
use strict ;
use warnings;
use Data::Dumper;
my $dbUser = 'foo_01';
my $dbPass = 'foo_01';
my $dbSid = 'foo.WORLD';
my $dbh = DBI->connect("dbi:Oracle:$dbSid","$dbUser","$dbPass")
浏览 0提问于2014-08-25得票数 0
回答已采纳
在上传excel电子表格的代码中，它给出了数组引用中的数据：
for( @{$listref} ){...
我使用$_->{'whateverthehashkeyis'}访问它，没有问题。
我需要做的是将在当前循环迭代中访问的散列传递给另一个子例程。
这就是我遇到麻烦的地方。我在没有运气的情况下尝试过不同的事情。
这不起作用，但它应该是我需要做的一个例子。
%args = @{$_};
$results = &format_trading_card_preview_item(\%args);
....
sub format_trading_card_previe
浏览 4提问于2015-12-23得票数 2
回答已采纳
我一直在代码中看到->，我不太确定它是什么意思。例如：
@top_links = @{$m->links};
这一行是做什么的？另外，我在哪里可以读到关于它的文章？
浏览 0提问于2011-02-06得票数 38
我正在尝试使用以下perl函数，但我不太清楚三点：
sub inittwiddle {
my ($m,$n,$aref) = @_;
my $i;
$$aref[0] = $n+1;
for ($i=1; $i != $n-$m+1; $i++) {
$$aref[$i] = 0;
}
while($i != $n+1) {
$$aref[$i] = $i+$m-$n;
$i++;
}
$$aref[$n+1] = -2;
$$aref[1] = 1 if
浏览 5提问于2012-02-10得票数 3
回答已采纳
1回答
我有一个数组：
print ("Grade\n");
for (my $j=0; $j < $size; $j++){
for (my $i=0; $i < $sizeCol; $i++){
print("$newMatrizGrades[$j][$i] ");
}
print ("\n");
}
newSubject ($name,@newArrayNames,@newMatrizGrades);
浏览 2提问于2016-12-05得票数 0
2回答
我正在发送一个引用的数组，下面是我的子例程：
sub multiply
{
my @product;
my $ref1 = $_[0];
my $ref2 = $_[1];
my @array1 = @$ref1;
my @array2 = @$ref2;
}
my ($rowsA,$columnsA) = &dimensions(@$ref1);
my ($rowsB,$columnsB) = &dimensions(@$ref2);
for $i (0..$rowsA-1){
for
浏览 3提问于2012-02-28得票数 0
我在包含Perl模块时遇到了麻烦，这些模块必须从Perforce存储库中获取。我通过使用P4 print从Perforce中读取它们的文本来包含这些模块。
对于不熟悉Perforce的人来说，它是一个代码版本控制工具。我不能直接从该路径读取文件，就像它是一个映射驱动器一样，所以我需要运行此命令。
p4 print等同于cat，只不过路径是特殊的，并且只有p4命令可以访问Perforce工作区中的文件。
BEGIN {
push @INC, (
sub {
open my $fh, "p4 print -q //sw/pvt/shashikanths/perl/m
浏览 3提问于2013-11-06得票数 1
2回答
我试图将内部数组传递给Perl中的函数。这是我的Perl程序。
#!/usr/bin/perl
use strict;
use warnings;
my %data = (
'a' => (
x => 'Hello',
y => 'World'
),
'b' => (
x => 'Foo',
y => 'Bar'
)
);
#prototype
sub p(\%);
浏览 5提问于2017-11-15得票数 0
回答已采纳
在执行语句$obj->method();时，说Perl需要知道该方法属于哪个包。这就是为什么它需要被祝福
不能在未加祝福的引用上调用方法"%s“
(F)方法调用必须知道它应该在哪个包中运行。它通常从提供的对象引用中发现这一点，但在本例中没有提供对象引用。在被祝福之前，引用不是对象引用。见。
因此，不可能执行以下操作：
my $data = [
[ 1, 2, 3 ],
[ 4, 5, 6 ],
];
$data->process( @params ); # Can't call met
浏览 6提问于2011-11-14得票数 9
回答已采纳
我在看一篇关于如何用标量传递数组(或列表)的文章时，偶然发现了这个S.O.的帖子.
我发现所选择的答案解决方案有效，但由于我正在尝试学习Perl，我想知道它是如何工作的。在这一行
my($inVal, $inValTwo, $inArray, $inArrayTwo) = @_;
我看到作者将传递给子程序的输入参数放入标量变量中。然后，在这一行
@{$inArray}
他说“将引用用作数组”。他说这是什么意思，第二行到底是怎么回事？我从未见过这些经营者如此合并。
浏览 6提问于2014-03-25得票数 3
回答已采纳
2回答
转换子例程语法
、、
我想知道为什么下面的语法失败
#!/usr/bin/env perl
use warnings;
use strict;
sub add { return $_[0]+5; };
my $add_ref = \&add;
my $result = 0;
$result = &add(5);
print " result is $result \n";
$result = add(5);
print " result is $result \n";
#$result = $add_ref(5); --------------->
浏览 4提问于2014-03-19得票数 2
回答已采纳
2回答
假设我有一个数字，$x = 0;和我想用一个子例程来增加它，但是子例程不会返回它的值：
sub increment {
my ($var) = @_;
my @list = (
'a',
'b',
'c',
...
'x',
'y',
'z'
);
return $list[$var++];
}
while ($x < 10) {
p
浏览 3提问于2015-09-02得票数 4
回答已采纳
是否可以将数组变量赋值给数组引用而不是标量变量？
而不是这样：
($a, $b) = some_sub(\@d, \@e);
我想要这样的东西：
(@x, @y) = some_sub(\@x1, \@y1);
如果是这样的话，我怎么能像以前那样去引用it.where，@$xxxx为我们做了呢？
谢谢。
浏览 3提问于2009-10-07得票数 3
在Statistics::Regression的文档中，添加观察的说明是：$reg->include( 2.0、1.0、3.0、-1.0 )；
然后，只对您自己的数据运行回归：
my @obs;
observations are like: %oneobs= %{$obs[1]};
...
foreach my $obshashptr (@obs) { $reg->include( $_[1], $_[3] ); }
我对%oneobs= %{$obs[1]}感到困惑:这个表示法是什么意思？此外，foreach my $obshashptr (@obs) { $reg->in
浏览 2提问于2014-07-11得票数 0
回答已采纳
3回答
我有一个子例程，它应该接受数组作为输入，将其转换为CSV，并将其发送到URL。这是我到目前为止所得到的：
一个示例数组：
[ 2823383062, 1411691539, 1411691541, 'outgoing',
'SIP/fr', 'user@2000', '2000', 'SIP/2000-000000a2',
undef, '6125551234', 'SIP/fr-000000a3', und
浏览 4提问于2014-09-26得票数 1
对于我的第一个perl程序，我的最终目标是:创建一个用于报告的excel工作表，并将该工作表作为附件通过电子邮件发送。
我已经完成了创建csv文件的工作。现在我想把它转换成excel表格，并自动调整内容。
我在我们的环境中有一个示例代码，如果有人花时间解释一下下面代码中的每一行，我将非常感激。
outputfile、urloutputfile、scomoutputfile -是csv文件，现在正在转换为excel工作表。
请解释一个元素是如何被传递给另一个函数的。
my $parser = Text::CSV::Simple->new;
my $workbook = Excel::Wri
浏览 0提问于2018-10-20得票数 1
alias在perl中传递数组参数是什么意思？下面的代码正确吗？
#!/usr/bin/perl
@myarray = (1, 2, 3, 4, 5);
&my_sub(@myarray);
sub my_sub {
my (@subarray) = @_;
print @subarray;
}
浏览 0提问于2013-03-21得票数 0
回答已采纳
3回答
我始终确信，如果我传递一个Perl子例程--一个简单的标量--它永远不会在子例程之外更改它的值。这就是：
my $x = 100;
foo($x);
# without knowing anything about foo(), I'm sure $x still == 100
因此，如果我希望foo()更改x，则必须将它传递给x。
后来我发现事实并非如此：
sub foo {
$_[0] = 'CHANGED!';
}
my $x = 100;
foo($x);
print $x, "\n"; # prints 'CHANGED!'
浏览 7提问于2010-11-03得票数 10
回答已采纳
3回答
我有一个Perl程序和包Worker和Log。
工作人员几乎完成了所有的计算，我希望通过引用Worker子例程以及其他一些参数(标量和数组)传递一个对象。我见过像和这样的例子。
他们通过在subs中放置@_，然后操作对象来处理这个问题。我还找到了一种通过使用索引来操纵它们的方法，比如@{$_[i]}。问题是，当我尝试这样的代码时，我会得到一个错误：Can't call method "write" on unblessed reference at ...
下面的代码片段。
Main：
use strict;
use warnings;
use Log;
use Wor
浏览 6提问于2015-10-20得票数 3
回答已采纳
来自C++背景，我虔诚地使用Perl的use strict和use warnings特性：
#!/usr/bin/perl -w
use strict;
use warnings;
$foo = 1; #Throws "$foo" requires explicit package name error
foobar( 1 );
当您键入变量名时，use strict构造对于捕获错误非常有帮助。是否有一个等价的构造来捕获错误类型的函数名？在上面的例子中，如果有像perl -c这样的东西捕捉到没有foobar函数可调用的事实，那就太好了。当然，运行脚本会抛出一个未定义的子
浏览 9提问于2011-12-14得票数 11
回答已采纳
2回答
我有一个要返回的哈希数组。
在返回数组之前，我对它进行了交叉检查。它工作得很好。
但是在将hashess数组返回给调用sub之后，我无法读取它。
请找到下面的参考代码..并且一定要让我知道如何读取/返回散列数组
谢谢..。:)
#!/usr/bin/perl
use strict;
use warnings;
# Subroutine prototypes
sub get_two_arrays();
my @one=();
@one = get_array_Hashes();
print "\n First: @one->{Version}\n"; // Prin
浏览 3提问于2012-08-27得票数 1
回答已采纳
1回答
我认为这是一个非常基本的perl问题，但我不能通过它。
我正在使用LWP::UserAgent包在perl脚本中构建post请求。代码如下：
my $urlStr = "http://localhost/testproj/AServlet";
my $postDataStr = "{name => \'ankur434\'}";
my $response = $ua->post($urlStr, $postDataStr);
上面的代码不起作用，并给出以下错误-
<Dec 6, 2010 3:15:54 PM IST> &
浏览 1提问于2010-12-06得票数 0
回答已采纳
我对Perl语法感到困惑。这是一个关于的例子。
my $t = scraper {
process "li", "list[]" => "TEXT";
};
print ref($tweets), "\n";
输出：
Web::Scraper
我不明白大括号的意思。如果scraper是一个函数，那么为什么要使用{}而不是()
浏览 4提问于2011-03-04得票数 6
回答已采纳
就Perl而言，->到底是做什么的？
例如，我调用main：
$result = a::b->mymethod( );
在我定义mymethod()的包中，我使用了以下内容：
my( $class ) = @_;
在main中，我显然没有向mymethod()传递任何参数，那么$class参数从何而来？有没有人对此有一个很好的解释，或者有一个文档来解释这个？
浏览 0提问于2012-05-28得票数 2
回答已采纳
没有技术原因不允许@array和/或%hash作为子例程的参数。例如：push @list, 1, 2，-允许这样做。
我们可以用来实现这一点。
mypop (\@)
但是，尽管如此，我们还是得到了数组/哈希作为引用：
sub test (\%\@) {
my( $hash, $array ) = @_;
...
有什么历史原因不允许下一个呢？
my( %hash, @array ) = @_;
禁止这样做有什么好处呢？
浏览 1提问于2018-02-16得票数 0
回答已采纳
我正在尝试弄清楚如何将$opt{p}中的值和一个直接字符串发送给子例程，而不是数组。
use Getopt::Std;
my $opt_string = 'hdp:j:';
getopts( "$opt_string", \%opt ) or usage();
usage() if $opt{h};
}
sub usage()
{
print STDERR << "EOF";
This program grabs the problem print request and puts them
浏览 0提问于2011-05-24得票数 2
回答已采纳
我是第一次接触perl和使用regex。我有一个子例程，它应该显示我们正在寻找一个具有多个点的模式“.”。下一行是使用此子例程检查某些模式中是否有点。但是，我发现if/else语句中的if块没有被计算，它只计算else块。
my $hostname1 = "hh.uu";
my $hostname2 = "yyhu";
sub isDotted {
return 1 if @_ =~ /\./g; return 0;
}
if (isDotted($hostname1) != isDotted($hostname2))
{
pr
浏览 20提问于2019-08-14得票数 0
5回答
需要帮助才能弄清楚如何做到这一点。我的代码：
my %hash;
$hash{'1'}= {'Make' => 'Toyota','Color' => 'Red',};
$hash{'2'}= {'Make' => 'Ford','Color' => 'Blue',};
$hash{'3'}= {'Make' => 'Honda','Color'
浏览 2提问于2011-02-04得票数 23
回答已采纳
3回答
假设多维数组是这样的，
$myarray = [ [1, 2, 3], [4, 5, 6], [7, 8, 9]];
试图以三种方式访问它，
print $myarray->[1][1] #prints 5
print $myarray->[1]->[1] #also prints 5
print $myarray[1][1] #prints nothing
我不知道第一种访问方式和第二种访问方式之间的区别。具体来说，第二个更明确，但仍然是第一个工作。这也迫使我认为第三，更好的工作(我知道不会，因为myarray实际上是一个引用，而不是数组)。
浏览 0提问于2019-01-18得票数 2
回答已采纳
3回答
我正在尝试传递两个数组和一个对子例程的引用。它适用于数组，但不适用于引用"$plistref“。当我尝试在子例程中像以前一样使用它时，它不起作用。
...
my $locPlist = "conf.plist";
my $configdict = NSDictionary->dictionaryWithContentsOfFile_($locPlist);
my $plistref = Foundation::perlRefFromObjectRef($configdict);
my @contentMatchs;
f
浏览 0提问于2016-10-14得票数 0
5回答
可能复制：
我有一个函数或子例程，它接受第一个参数作为数组，第二个参数作为标量。例如,
sub calc {
my @array = $_[0];
my $scalar = $_[1];
print @array, $scalar;
}
问题是，函数使数组等于传入的数组的第一个值，而标量是数组传入的第二个值。当我希望第一个数组是整个数组时，我不需要对数组进行深度复制。例如,
my @array = ('51', 'M');
my $scalar = 21;
和
calc(@array, $scalar)
当我想要51 M的时候会
浏览 0提问于2012-05-23得票数 37
回答已采纳
3回答
我有一个多维散列，如下所示：
my %hashTable;
$hashTable{'1'}{'A'} = "red";
$hashTable{'1'}{'B'} = "blue";
$hashTable{'2'}{'A'} = "orange";
$hashTable{'2'}{'B'} = "purple";
我想将内部哈希作为参数传递给子例程。例如,
hashFunc($hashTable{'
浏览 4提问于2016-07-07得票数 0
回答已采纳
我使用的是perl 5.16。
我有以下函数来给出任何给定数组中的平均值：
sub GetAvgValue {
my @Array = @_;
my $Sum = 0;
foreach my $CurVal (@Array) {
$Sum += $CurVal;
}
if ( scalar(@Array) ) {
return $Sum / scalar(@Array);
}
else {
return undef;
}
}
当数组中没有元素时，我希望它返回undef，但是它返回
浏览 2提问于2022-10-11得票数 1
回答已采纳
3回答
我想把两个参数传递给我的子程序。第一个参数是必需的，第二个参数是可选的。实际上，它适用于此脚本中的非数组参数：
deftest ("string value test",9);
sub deftest{
my ($strvalue, $num) = @_;
if (defined $num){
print "\nCHECK 1 - Defined value $num";
} e
浏览 2提问于2016-07-19得票数 1
回答已采纳
参数传递给Perl子例程的顺序重要吗？当我调试以下代码时：
my $loopCounter = 1;
foreach(@authors) {
my @splitAffiliations = splitAffiliations($params);
my @foundItems = findAffiliationForAuthor($_, @splitAffiliations, $loopCounter);
# Process @foundItems
$loopCounter++;
}
...
sub findAffiliationForAuthor {
浏览 3提问于2015-02-01得票数 1
回答已采纳
我正在开发一个应用程序，它必须一块一块地替换现有的意大利面条代码。为此，我有一个dispatcher，它在URI匹配时运行所需的HTTP资源，否则使用遗留的HTTP资源类。
因此，这个遗留的HTTP资源必须对旧系统的入口点文件执行require操作，我正在尝试找出如何测试这个过程。我现在看到的是，我想用一个模拟子例程替换原来的require函数，并检查它是否已使用适当的文件名调用。
这可能吗?如果不可能，也许有更好的方法来做到这一点？
浏览 3提问于2011-09-10得票数 5
回答已采纳
3回答
嘿，我只是想知道是否有一个很酷的“一行”可以对我的散列进行排序，保存数组引用。所以我的散列中有一堆键/值，如下所示：
$DataBase{$key} = \@value;
但是，我想按array[0]元素对散列进行排序。然后遍历它们。我一开始就是这样的：
foreach my $key (sort {$DataBase{$a} cmp $DataBase{$b} } keys %DataBase)
但这显然只是根据数组的指针值对我的散列进行排序。它不一定非得是“一行”，但我希望得到一个不涉及重构散列的解决方案。
浏览 2提问于2009-05-05得票数 3
回答已采纳
我对Perl很陌生，这是我的第二节课。
我理解如何在Perl中使用引用(在基本级别上)，但我不明白为什么。这里有一个例子，介绍了教科书中的参考资料，以及我补充的评论。
$array_ref = ["val1", "val2", "val3"]; #create an array reference
print("$$array_ref[1]\n"); #immediately dereference it to print the second element
为什么要使用引用，而不是写：
@array_name = ("
浏览 2提问于2014-01-25得票数 2
回答已采纳
我知道'can‘方法检查包是否有’some‘方法。但是，“->(动物=> $x)”部分发生了什么？
$z = __PACKAGE__->can("some_method")->(animal => $x)
浏览 1提问于2020-06-03得票数 3
回答已采纳
2回答
我在用。
对于此代码示例，是否有更简单的方法将字符串转换为常量？
use Sphinx::Search;
my $config = {
x => 'SPH_MATCH_EXTENDED2',
};
my $x = $config->{x};
print Sphinx::Search->$x(); # output: 6
我使用了来自的建议，这个例子很有效，但是如果我总是使用散列中的字符串，那么是否需要将它放入一个单独的变量中才能以这种方式使用呢？
my $x = $config->{x};
print Sphinx::Search->$
浏览 0提问于2018-09-21得票数 2
回答已采纳
我开始学习Perl，并对下面这段Perl代码有疑问。
我知道"my“是用来定义局部变量的，"shift”是用来从数组中获取head元素的。让我困惑的是，在下面的代码段中数组是从哪里来的。
此外，my @positives = keys %{$lab1->{$cate1}}代表什么？
preData($cate1, $lab1)
sub preData
{
my $cate1 = shift;
my $lab1 = shift;
my @positives = keys %{$lab1->{$cate1}};
}
浏览 1提问于2011-12-14得票数 2
回答已采纳
我的程序处理两种“某样东西”，每种口味都有自己的数据结构和处理它们的过程。用户使用以下任一项或两者之一调用该程序：
-f1 path_to_file_with_flavor_1_data
-f2 path_to_file_with_flavor_2_data
我的程序被编码为：
GetOptions ('f1=s' => \$f1_path,
'f2=s' => \$f2_path,
);
if (defined $f1_path) {
subroutine_to_process_f
浏览 1提问于2020-06-20得票数 2
回答已采纳
我读过perl在执行subrutines时使用逐引用调用。我做了一段简单的代码来检查这个属性，但是它的行为就像perl是按值调用的：
$x=50;
$y=70;
sub interchange {
($x1, $y1) = @_;
$z1 = $x1;
$x1 = $y1;
$y1 = $z1;
print "x1:$x1 y1:$y1\n";
}
&interchange ($x, $y);
print "x:$x y:$y\n";
这将产生以下输出：
$ perl example.pl
x1:70 y
浏览 8提问于2014-06-05得票数 2
回答已采纳
按引用传递和使用C指针表示法有什么区别？
void some_function(some_type& param)
和
void some_function(some_type *param)
谢谢
浏览 2提问于2009-10-30得票数 6
回答已采纳
我正在尝试实现一个子例程，它将一个数组作为其参数(或者使用多个参数-仍然没有弄清楚其中的区别)，并根据该数组是否为递增序列返回true或false (每个数字必须比最后一个数多1)：
isIncreasingArray(1,2,3,4); # true
isIncreasingArray(1,2,3,1); # false
isIncreasingArray(0,9,1); # false
isIncreasingArray(-2,-1,0); # true
isIncreasingArray(1,1,1,1); # false
这就是我想出来的：
sub isIncreasingArra
浏览 54提问于2011-11-17得票数 17
回答已采纳
是否可以在perl中使用push将元素添加到多个数组中？
例如。
my @arr1 = qw/one two three/;
my @arr2 = qw/four five six/;
push (@arr1,@arr2), "extra";
预期输出:：
@arr1 = one two three extra
@arr2 = four five six extra
浏览 1提问于2019-04-05得票数 0
我想返回一个空数组，而不是一个空列表。
我有个子，它能返回一系列的东西。我想用它做这件事：
my $count = scalar getArray();
我就是这样做的：
sub getArray {
if ( !isGood() ) {
return ();
} else {
my @array = calculateSomehow();
return @array;
}
}
my $count = scalar getArray();
当!isGood()和$count变成undef，而不是0时，我有了一个惊喜！在阅读
浏览 7提问于2016-03-17得票数 2
回答已采纳
4回答
我正在尝试迭代一个以这种特定方式构造的二维数组。这是否是构造数组的好方法是另一个问题-我仍然需要能够迭代它(如果可能的话)。
@row1 = ( "Current Scan", "Last Month");
@row2 = ( "240", "0");
@row3 = ( "226", "209");
@row4 = ( "215", "207");
@array = (\@row1, \@row2, \@row3, \@row4);
print Dumper(@a
浏览 2提问于2010-09-14得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
