perl 如何统计某个目录下有多少指定类型文件！(以解决！谢谢！)

mousejsh

#!/bin/perl -w
print "请输入你要统计的目录：";
$a=<>;
print "请输入你要统计的文件类型（以后缀结尾）:";
$b=<>;
system("find $a -name *.$b \|awk \'END{print NR}\'");

运行错误！请大家帮我看看是怎么回事呀！

[ 本帖最后由 mousejsh 于 2007-12-13 17:50 编辑 ]

ly5066113

$a和$b都会有新行(\n)符在里边吧。

老手

原帖由 ly5066113 于 2007-12-13 16:41 发表
$a和$b都会有新行(\n)符在里边吧。

是这样.

#!/usr/bin/perl -w print "请输入你要统计的目录："; chomp($a=<>); print "请输入你要统计的文件类型（以后缀结尾）:"; chomp($b=<>); system ("find $a -name \"*.$b\" \| awk \'END{print NR}\'");

这样写perl还不如直接运行find.

Nosferatu

没必要用perl， 而且$a,$b在perl里是有特殊含义的

mousejsh

chop($a=<>);
chop($b=<>);
改这两个就可以了。忘记了"\n"
我是想以后方便通过mysql传值进来统计！谢谢各位了。小弟初学！