system

perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.

[root@AX3sp2 ~]# cat aa.pl
#! /usr/bin/perl -w
$file = "wt.pl";
system("ls -l wt.pl");
$result = system "ls -l $file";
print "$result \n"; #输出命令的退出状态
system "date";
[root@AX3sp2 ~]# perl aa.pl
-rwxr-xr-x 1 root root 126 12-16 15:12 wt.pl
-rwxr-xr-x 1 root root 126 12-16 15:12 wt.pl
2010年 12月 16日 星期四 15:58:34 CST     
perl的system函数和awk的一样不能够返回命令的输出. 
 要得到命令的输出,就得使用和shell本身一样的命令: ` ` 
 
[root@AX3sp2 ~]# cat bb.pl
#! /usr/bin/perl
print `date`;
print "this is test \n";
[root@AX3sp2 ~]# perl bb.pl
2010年 12月 16日 星期四 15:51:59 CST
this is test
最后,perl还可以使用exec来调用shell的命令. exec和system差不多,不同之处在于,调用exec之后,perl马上就退出,而不会去继续执行剩下的代码
 
[root@AX3sp2 ~]# cat cc.pl
#! /usr/bin/perl
exec ("echo this is test");
print "good bye !\n";  #这句话不会被输出
[root@AX3sp2 ~]# perl cc.pl
this is test
 
为避免shell命令的特殊符号，采用先变量定义的方法
 
qilei@AFAAW-704030720:~$ cat simple.pl
#!/usr/bin/perl
use strict;
use warnings;
my $shellcmd="cat test.txt";
print `$shellcmd`;
qilei@AFAAW-704030720:~$ ./simple.pl  test.txt
a11111
a22222
a33333
a44444
a55555
a66666
a77777
a88888
a99999
a00000
b11111
b22222
b33333
b44444
b55555
b66666
b77777
b88888
b99999
b00000
qilei@AFAAW-704030720:~$
                    一、system perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.[root@AX3sp2 ~]# cat aa.pl#! /usr/bin/perl -w$file = "wt.pl";system("ls -l wt.pl");$result = system "ls -l $file";print "$result
				
1 systemperl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.如果向system传递一个字符串作参数,则perl会调用shell来执行这个命令,在这个字符串内也就不可以有perl 的变量了;如果传递多个字符串作参数,则perl会自己执行这个命令,且可以传递perl自己的变量给它,因为perl会对这些变量扩展成它们的值
				
众所周知，perl处理字符串的功能十分强大，然而，作为一种语言，强大是一回事，简单方便则是另外一回事。
今天就遇到一个例子，是这样的，想要在xen上获取某个虚拟机的CPU使用率，于是使用命令“xentop -b -i 2 > /tmp/xentop.tmp”，获得类似下面的数据：
 NAME STATE CPU(sec) CPU(%...
$request->header('Authorization' => 'Bearer <your_access_token>');
$request->header('Content-Type' => 'application/json');
5. 发送HTTP请求。
可以使用$ua对象的request()方法发送HTTP请求并接收响应。例如：
my $response = $ua->request($request);
6. 处理响应。
根据API的要求，可以使用$response对象的不同方法来处理响应，例如：
- $response->is_success()：检查响应是否成功。
- $response->status_line()：获取响应的状态行。
- $response->content()：获取响应的内容。
以上是使用Perl调用接口方法的基本步骤。根据不同的API和需求，可能需要进行更多的自定义和错误处理。