我目前遇到一个非常简单的问题,即从反引用的
shell命令中捕获输出.我很抱歉问题很简单.
我有一些排序数组(@valid_runs),我知道它包含连续的重复元素.我想使用反引号将此数组回显给uniq.我想捕获数组中的STDOUT.我试图这样做.
@unique_valids = `echo '@valid_runs' | uniq`; print @unique_valids;
这个打印声明什么都没有.就此而言,这也不是.
@unique_valids = `echo '@valid_runs'`; print @unique_valids;
我知道如何使用uniq和echo.这对我来说似乎很奇怪.我认为这与perl数组有关,而不是正确使用这些命令.我在其他地方搜索了一下,所以请不要因为解决方案看起来微不足道而感谢我.感谢你的宝贵时间.
解决方案说明：
TLP的解决方案是处理uniq问题最直接的解决方案.我很灵活,因为所有的回复都表明没有系统调用这个问题.如果Perl的uniq功能与Unix的uniq相同,那么数组应该保持排序.
解决方法
使用系统调用可以使用perl代码轻松完成某些操作并不是一个好主意.模块
List::MoreUtils具有uniq功能,可满足您的需求：
use List::MoreUtils qw(uniq); my @unique = uniq @runs;
然而,模块内部的子程序非常简单,就像theglauber的答案一样：
sub uniq (@) {
my %seen = ();
grep { not $seen{$_}++ } @_;
}