在Perl中使用shell命令和管道

在Perl中使用shell命令有三种方法

* system函数
* 反引号``
* qx{}

第一种方法，system函数格式如下

[html] view plaincopyprint?

1. system("command");

system("command");

若命令正常运行则返回0，否则返回非零值

此方法的缺点是不能将shell命令的输出直接捕获到Perl程序中来

第二种方法，使用反引号``，可直接将shell命令的输出捕获到Perl程序中（即其返回值）

对于多行输出，将其赋给数组变量，如

[plain] view plaincopyprint?

1. @a = `ls -al`;

@a = `ls -al`;

第三种方法，使用qx{}，该方法适用于command包含多个反引号的情况。另外，花括号{}也可换为别的符号


Perl中的管道被视为即可读取也可写入的文件，如

[plain] view plaincopyprint?

1. open(RHANDLE, "ls -al | sort | "); //RHANDLE是读文件句柄，读入sort命令输出的部分
2. open(WHANDLE, " | more"); //WHANDLE是写文件句柄，写入的内容通过管道传给more命令进行分页显示 在Perl中使用shell命令有三种方法

    * system函数
    * 反引号``
    * qx{}

第一种方法，system函数格式如下

[html] view plaincopyprint?

       system("command"); 

若命令正常运行则返回0，否则返回非零值

此方法的缺点是不能将shell命令的输出直接捕获到Perl程序中来

第二种方法，使用反引号``，可直接将shell命令的输出捕获到Perl程序中（即其返回值）

对于多行输出，将其赋给数组变量，如

[plain] view plaincopyprint?

        @a = `ls -al`; 

第三种方法，使用qx{}，该方法适用于command包含多个反引号的情况。另外，花括号{}也可换为别的符号


Perl中的管道被视为即可读取也可写入的文件，如

[plain] view plaincopyprint?

       open(RHANDLE, "ls -al | sort | ");  //RHANDLE是读文件句柄，读入sort命令输出的部分  

       open(WHANDLE, " | more");   //WHANDLE是写文件句柄，写入的内容通过管道传给more命令进行分页显示