在Perl中运行system()命令时显示进度
发布时间:2020-12-15 21:55:32 所属栏目:大数据 来源:网络整理
导读:我有一个Perl脚本执行一些任务,其中一个是调用系统命令“tar -cvf file.tar …..”. 这通常需要一些时间,所以我希望命令行回显一个进度指示器,比如在系统调用正在进行时#echo回到屏幕. 我一直在做一些挖掘,偶然发现叉子.这是最好的方式吗?是否可以分叉系统
我有一个Perl脚本执行一些任务,其中一个是调用系统命令“tar -cvf file.tar …..”.
这通常需要一些时间,所以我希望命令行回显一个进度指示器,比如在系统调用正在进行时#echo回到屏幕. 我一直在做一些挖掘,偶然发现叉子.这是最好的方式吗?是否可以分叉系统命令,然后创建一个while循环来检查fork返回的$pid的状态? 我也看过对waitpid的引用….我猜我也需要使用它. fork system("tar ... ") while ( forked process is still active) { print # sleep 1 } 我吠叫错了树吗? 非常感谢 解决方法
Perl有一个很好的结构,称为“管道打开”.您可以通过在shell提示符下键入perldoc -f open来了解更多相关信息.
# Note the use of a list for passing the command. This avoids # having to worry about shell quoting and related errors. open(my $tar,'-|','tar','zxvf','test.tar.gz','-C','wherever') or die ...; 这是一个显示示例的片段: open(my $tar,...) or die "Could not run tar ... - $!"; while (<$tar>) { print "."; } print "n"; close($tar); 替换打印“.”每隔10到100行打印一个哈希标记,以获得一个漂亮的标尺. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |