大佬教程收集整理的这篇文章主要介绍了数组 – 使用Perl将文件读入数组,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
$find = "fever"; if ($_ =~ /$find/) { print "$_\n"; $number++; #@lines = #print ("there are : " . $number); }
目前,我正在使用一个带有发热值的标量$find,而不是为每个过滤器执行重复的语句.
我可以传递一个数组进行比较,而不是一个标量关键字?
@array = <$fh>; # Reads all lines into array
将其与读取到标量上下文中进行对比
$singleLine = <$fh>; # Reads just one line
一次读取整个文件可能是一个问题,但是你会得到这个想法.
然后你可以使用grep过滤你的数组.
@filteredArray = grep /fever/,@array;
然后,您可以使用标量获取已过滤行的计数,这会对数组的解释强制标量(即单值)上下文,在这种情况下返回计数.
print scalar @filteredArray;
把它放在一起…
C:\temp>cat test.pl use Strict; use warnings; # always my @a=<DATA>; # Read all lines from __DATA__ my @f = grep /fever/,@a; # Get just the fevered lines print "Filtered lines = ",scalar @f; # Print how many filtered lines we got __DATA__ abc fevered frier forever 111fever111 abc C:\temp>test.pl Filtered lines = 2 C:\temp>
以上是大佬教程为你收集整理的数组 – 使用Perl将文件读入数组全部内容,希望文章能够帮你解决数组 – 使用Perl将文件读入数组所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。