第一个perl程序

坏脾气的猪

于 2012-11-09 14:30:31 发布

阅读量516

点赞数

分类专栏： Perl

本文链接：https://blog.youkuaiyun.com/ritazuozuo/article/details/8166358

版权

Perl 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一个使用Perl编写的脚本，该脚本能够在指定路径下查找所有CSV文件，并进一步筛选出包含特定关键字的文件。通过命令行参数指定路径及关键字，脚本将输出所有匹配的CSV文件列表。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

http://bbs.youkuaiyun.com/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";
}