2019独角兽企业重金招聘Python工程师标准>>> 
Perl调用Shell模块
#!/usr/bin/perl -w use strict; use Shell; my $sh = Shell->new; print $sh->ifconfig; my @pslines = ps("-ef|grep httpd|grep -v grep"); print @pslines; print $sh->sed(" \"s/nameserver 210.73.64.1/nameserver 210.73.88.1/\" /etc/resolv.conf"); my $passwd = cat("/etc/passwd"); print $passwd; cp("/etc/passwd", "/etc/passwd.orig");说明：使用Shell模块时，还可以限定使用的命令范围，例如 use Shell qw(echo cat ps cp);
切记：shell语句的参数写在（"xxx"）中，复杂的shell语句中若有双引号必须使用转义字符，若有单引号是不能使用的，必须改成双引号。
转载于:https://my.oschina.net/lionel45/blog/
到此这篇perl -x_perl命令的文章就介绍到这了,更多相关内容请继续浏览下面的相关推荐文章，希望大家都能在编程的领域有一番成就！版权声明：
本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如若内容造成侵权、违法违规、事实不符，请将相关资料发送至xkadmin@xkablog.com进行投诉反馈，一经查实，立即处理！
转载请注明出处，原文链接：https://www.xkablog.com/perlbc/1785.html