检索Perl的一个特定的返回值

我在寻找一个班轮,让我从一个子程序抢第二返回值。

而不是这样的:

($a,$b)=function; print $b

它应该可以做这样的事情

print ??? function

--------------解决方案-------------

这工作:

sub test { return (1,2) }
print ((test)[1]); # Returns 2

这也适用:

print +(func())[1], "\n";

假设()函数返回一个列表,然后使用类似建议的作品就好了上面的海报中分得一杯羹。 如果它返回一个数组引用,那么你就需要适当地访问它,例如(@ {功能()})[1]取消引用AREF,然后切片。

分类:perl的 时间:2012-01-01 人气:0
本文关键词: perl的
分享到:

相关文章

  • 是否所有的Mac OS X 10.6的安装已经默认安装的Perl? 2012-01-01

    对于Mac OS X应用程序,其中一个Perl脚本(Markdown.pl)将被调用,我需要知道,如果所有的Mac OS X 10.6及更高版本的安装有Perl安装为默认值. 否则,我们将不得不与应用程序打包. 难道这证实了,我可以放心地假设呢? --------------解决方案------------- 是. Mac OS X中已经安装的Perl. 打开终端应用程序(在您的应用程序文件夹的实用工具文件夹),并运行perl -v找出哪个版本. http://www.perl.org/get.

  • 我怎么能转换成一个shell脚本到一个Perl脚本? 2012-01-01

    我怎么能转换成一个shell脚本到一个Perl脚本? 我有一个10K线shell脚本,并希望将其转换成Perl的. 是否有任何工具这样做,或者有没有办法做到这一点? --------------解决方案------------- 有没有简单的转换器. 从Perl的常见问题解答"如何能-I-转换-MY-shell脚本到perl的?" 学习Perl然后重写. 严重的是,有没有简单的转换. 事情是尴尬的壳里做用Perl很轻松的事,这很尴尬是什么使一个用shell> perl转换程式近了

  • perl脚本连接到MySQL服务器端口3307 2012-01-01

    我试图连接到运行在端口3307如何连接到服务器的MySQL服务器? 我没有看到指定端口的任何其他方式. 我使用的是这样的: #!/usr/bin/perl use Mysql; $host = "localhost"; $database = "abc"; $tablename = "def"; $user = "uuu"; $pw = "ppp"; $connect = Mysql->connect

  • 直接STDERR在Perl打开管道时 2012-01-01

    我使用open( my $command_out, "-|", $command_string )执行命令和处理其在飞行输出(不必等待命令先完成,如system() 我注意到,当我调用一些ř脚本这样一来,一些R的消息在内的打印屏幕(如Loading required package: ... 我想这是因为R发出此输出到stderr(?虽然这些都不是真正的错误). 是否有可能直接将此输出太$command_out时open()所以屏幕将保持清洁? --------------解决方案--

  • 我如何可以计算在Perl双阶乘? 2012-01-01

    鉴于双阶乘的维基百科的讨论,任何人都可以提出,我可能会发现这是一个BIGNUM版本的Perl,否则建议它可能如何写? --------------解决方案------------- Perl会处理任何你的C编译器可以处理,对任何事情做大,你应该使用数学:: BigInt有. 我建议你​​读perlnumber. 对于双阶乘的定义(在Perl高尔夫): sub f{$_[0]&&$_[0]>=2?$_[0]*f($_[0]-2):1} 这里有大量的替代方法来实现快速因子的功能. 穷人的

  • 我怎样才能EVAL在Perl环境变量? 2012-01-01

    我想评价一个环境变量,并将结果设置为变量: $x=eval($ENV{EDITOR}); print $x; 输出: /bin/vi 工作正常. 如果我设置环境变量QUOTE为\',并尝试同样的事情: $x=eval($ENV{QUOTE}); print $x; 输出: (什么) $@ set to: "Can't find a string terminator anywhere before ..." 我不想简单地设置$x=$ENV{QUOTE};作为EVAL也用于调用脚本,并返

  • perl的日期计算与格式的日期2012-02-03 00:00:00 2012-01-02

    我需要一些帮助的日期计算在Perl与日期格式为"2012-02-03 00:00:00". 特别是有一个工具,我可以用它来只增加了天,并切换到月份和年份是否正确? 谢谢. --------------解决方案------------- 请参阅日期时间. #!/usr/bin/env perl use strict; use warnings; use DateTime; my $ts = '2012-02-03 00:00:00'; my ($y, $m, $d) = ($ts =~

  • Perl的单行正则表达式投掷的bash:附近意外的标记'语法错误)“ 2012-01-02

    我有我试图用对包含电子邮件地址的逗号分隔的列表一个配置文件中的PERL单行. perl -nle 'print for m/\* Members= (\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*)*([,])*)*$/i)/g' 返回的bash: syntax error near unexpected token `)' 这似乎正则表达式不与外壳打得很好. 我怀疑自己是不是被正确地转义但由于错误的性质正则表达式本身,我不知道去哪里找. 有任何想法吗?

  • 保留YAML秩序的perl 2012-01-02

    我想从一个YAML文件中读取数据,但我需要的元素的顺序被保存下来. 有没有在具有这种功能,以及如何做到这一点的Perl模块? 为了应对@mugen健一 我设法做我想做的,但我不认为这是一个合理的解决方案. 老YAML: foo: bar: some value baz: other value qwe: bar: yet another value baz: again 新YAML - foo: bar: some value baz: other value - qwe: bar: yet a

  • 我如何可以匹配Perl中两个文档之间的字符串命令? 2012-01-02

    我在做一个Perl程序在两个文件相匹配的话已经出现问题. 比方说,有文件A和B. 所以,我想删除文件中的话,这不是在文档B. 实施例1: 答:我吃披萨 B:她去市场吃比萨饼 结果:吃披萨 例2:A:吃披萨 B:披萨吃 结果:比萨(词序是相关的,所以"吃"被删除.) 我使用Perl的系统和每个文档中的句子是不是一个很大的数字,所以我想我不会用SQL 而该计划是一个subproram自动作文评分印尼语言(中文) 感谢名单,很抱歉,如果我的问题是有点混乱. 我是真正的新"这个世界:

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 0.251 (s). 10 q(s)