第一个perl程序

http://bbs.csdn.net/topics/390272012 帮完成了这个问题，收藏下

use strict;
use File::Find;
use Getopt::Std;

my @allcsvfile;
my @targetfile;

if($#ARGV == -1  ) 
{
   print "使用格式如下：perl list.pl 路径 关键字  > 保存文件路径n";
   exit;
}

sub searchfile
{
   my $path = @_[0];   
   open(MYHANDLE,$path);
   my @str = <MYHANDLE>;
	
	for my $k (@str)
	{
	    #print $k,"n";
		if($k =~ /.*$ARGV[1].*/)
		{
		   push @targetfile,$path;
		}
	}
   
}

sub test{
	if($_ =~ /.+.csv$/)
	{
		my $path = $File::Find::name;
        $path =~ s////g;
		push @allcsvfile,$path;
		
		searchfile($path);
		
	}
}

find &;test,"$ARGV[0]";

print "all csv file:n";
foreach (@allcsvfile)
{
   print $_,"n";
}

print "all target csv file:n";
foreach (@targetfile)
{
   print $_,"n";
}