寻求功能不在perl中工作

概述我尝试了下面的代码片段,搜索功能似乎不起作用. funct("ls -ltr /scratch/dummy/dum*");sub funct {print "\nRecording\n";open(SENSOR_LIST1, "$_[0] |") || die "Failed to read sensor list: $!\n";for $sensor_line1 (<SENSOR_L 我尝试了下面的代码片段,搜索功能似乎不起作用.

funct("ls -ltr /scratch/dummy/dum*");sub funct {print "\nRecording\n";open(SENSOR_List1,"$_[0] |") || dIE "Failed to read sensor List: $!\n";for $sensor_line1 (<SENSOR_List1>) {   print "$sensor_line1";}my $pos = tell SENSOR_List1;print "\nposition is $pos"; #Here the position is 613print "\nRecording again";seek (SENSOR_List1,SEEK_SET,0);$pos = tell SENSOR_List1; # Here again the position is 613,even after a seekprint "\nposition Now is $pos";for $sensor_line1 (<SENSOR_List1>) {        print "$sensor_line1";    }close SENSOR_List1;}

注意：所有搜索变体都不起作用.

输出：

即使在寻求之后,该位置也不会改变.它仍然在613.

你们可以检查并告诉我这里的问题是什么？

谢谢.

解决方法 你不能在管道上寻找.

使用临时文件或将数据存储在内存中.

您选择最佳解决方案

总结

以上是内存溢出为你收集整理的寻求功能不在perl中工作全部内容，希望文章能够帮你解决寻求功能不在perl中工作所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。