perl是怎样执行linux命令的

2025-04-27 05:27:27

推荐回答（3个）

回答1：

perl中的文件判断 -s file 返回的就是文件大小，单位Byte。你这个可以这么写：

#!/usr/bin/perl
opendir DF,"/home/perl" or die "$!";
for (readdir DF){
next if -d $_; #遇到目录就跳到下一次循环
if (-s $_ > 100000) { #100K
unlink; #相当于shell里的rm
}
}
closedir DF;

我也是才学perl。希望对你有所帮助。

回答2：

直接用``括起来执行就好了。
注意`，是主键盘上1前面那个键
比如：
my $num;
$num = `grep -c 菠菜`;
print $num."个菠菜";

解释：
.操作符可以连接字符串。

回答3：

perl可以用``来调用shell命令并获取输出结果，如
my $ret = `ls /home`;
该行即表示将“ls /home”的输出结果赋给$ret。