使用system函数的一个例子。

devel

#!/usr/bin/perl -w
$stant=system("ls");
print "$stant\n";

$well=system "'date'";
print "threewell\n-------------\n";

@hello=("echo","hello,world!");
system(@hello);

x11

｀｀ 也可以用的吧

devel

最初由 x11 发表
｀｀ 也可以用的吧

你说得对，当时还没学到用` ` 捏:p

一个简单的例子：

#!/usr/bin/perl -w
@a=`ls /root` ;
foreach ( @a ) {
print $_ ;
}

libinary

再紧凑一点：

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. foreach (`ls /root`){
   
5.   print;
   
6. }

复制代码

devel

原来这样也行

georgek

為什麼不直接 print `ls /root`; ?

devel

最初由 georgek 发表
為什麼不直接 print `ls /root`; ?

这样更简单