一个按照包含字符串为条件搜索文件的perl程序

#! perl -w

use File::Find;

if ($#ARGV != 0) {
	print "Invalid Usage:\n";
	print "Usage: perl browse_string.pl <str>\n";
	exit;
}

$searchStr = shift @ARGV;

@files = (); 

@directories_to_search = (".");
find(\&wanted, @directories_to_search);
foreach $file (@files) {
	if (-d $file) {
	}
	else {
		open FILE, "<".$file or die "cannot open file ".$file."\n";

		while (<FILE>) {
			if (/$searchStr/) {
				print "$file\n";
				last;
			}
		}
		close FILE; 
	}
}

sub wanted {
	@files = (@files, $File::Find::name);
}


用法:"perl program.pl <string>"

搜索目录及子目录,如果文件中包含该字符串,则打印该文件。

评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值