File::Find模块的使用

最新推荐文章于 2022-05-20 11:36:12 发布

chuanxifu4422

最新推荐文章于 2022-05-20 11:36:12 发布

阅读量255

点赞数

原文链接：https://my.oschina.net/OliverTwist/blog/268270

版权

本文介绍了一个Perl脚本方法，用于在指定目录下的.pm文件中查找包含特定子程序名称的代码片段。通过正则表达式匹配，实现对目标子程序的精确定位，并返回匹配到的文件路径。

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

sub find_tc {
	my $tc_casename = shift;
	$tc_casename =~ s/\-/\_/g;
	# $tc_casename = s/\-/\_/ $tc_casename;
	my $dir_name = "test_package";
	my $tc_dir = catfile("$Bin","$dir_name");
	my @all_casename ;
	find(
		sub{
			if (-f $File::Find::name) {
				push @all_casename , "$File::Find::name";
			}	
		},
		$tc_dir
	);
	for my $casename (@all_casename){
		open my $fh,"<",$casename or die "can not open file: $!";
		while(<$fh>){
			if (/sub\s+(.*?)\{/) {
				my $untrimed = $1;
				if ($untrimed =~ /$tc_casename/) {
					$casename =~ s/(?:.*?)$dir_name\///;
					$casename =~ s/.pm$//;
					$casename =~ s/\//\:\:/;
					return $casename;
				}
			}
		}
	}


}

后面是查找pm文件，然后将pm文件的名字替换为用::分割的字符串

转载于:https://my.oschina.net/OliverTwist/blog/268270