关于perl中命令执行以及@ARGV的使用

关于
perl
中命令执行以及@ARGV的使用

在
perl
中提供了很方便的命令行执行的工具。
``
（键盘上
Tab
建上边的键）可以用于执行
perl
命令行。

下面就以一个例子来说明具体的用法。

程序一（
Demo.pl


）



#!/usr/bin/perl

use

strict
;

use

warnings
;

if

(
$
ARGV
[
0
] eq
"1"
){

`perl F://Demo2.pl`
;

}
else

{

`perl F://Demo3.pl`
;

}

程序二
(Demo2.pl)



#!/usr/bin/perl -w

use

strict
;

use

warnings
;

unless

(
open

(
FILE_F
,
">>F://log2.log"
)){

print

"Can not open the
file"
;

}

print

FILE_F
"Demo2"
;

close

(
FILE_F
);

程序三
(Demo3.pl)



#!/usr/bin/perl

use

strict
;

use

warnings
;

unless

(
open

(
FILE_F
,
">>F://log3.log"
)){

print

"Can not open the
file"
;

}

print

FILE_F
"Demo3"
;

close

(
FILE_F
);

程序解释

我们在命令行中执行使用
perl
命令（
perl ${Demo.pl
所在的目录
}//Demo1.pl
，例如
perl F://Demo1.pl 1
）来执行程序一
，然后如果后面的参数为
1
，则执行
`
perl F://Demo2.pl
`
，
perl
就会执行
F
盘目录下的
Demo2.pl
，执行
Demo2.pl
后
Demo2.pl
就会在
F
盘目录下建立文件
log2.log
，并写入“
Demo2
”；如果后面的参数不是
1
，则执行
`
perl F://Demo3.pl
`
，
perl
就会执行
F
盘目录下的
Demo3.pl
，执行
Demo3.pl
后
Demo3.pl
就会在
F
盘目录下建立文件
log3.log
，并写入“
Demo3
”。

同时，我们也看到了
@ARGV
的使用方法。

@ARGV
就是接受
perl
的命令行执行参数。