作者cobain (笑哈哈)
看板perl
标题Re: 有关档案内容搜寻
时间Sun Nov 24 11:30:08 2002
※ 引述《Armstrong (薰衣草)》之铭言：
: 请问若我想要在一个目录下的多个档案内容中
: 寻找出哪个档案中有符合我想要字串的内容
: 并将有其内容的整行文字印到我开的另一个档案中
: 我该如何作呢？
: 假设档案放在c:\my_doc
: 有十几个档案
: 3q
你可以用grep这个公用程式来做, 不过还是附上一份perl code供你参考
我假设你是使用Win32环境下的Perl interpreter
把下面的code存成perl档, 例如: search.pl
然後从命令列呼叫
C:\> search.pl [directory-name] [pattern]
例如: search.pl C:\my_doc "perl"
-----------------------------------------------------------------
#! d:\Perl\bin\perl.exe
sub search_in_directory
{
# STEP 1: Open the directory handle
my($dirname, $pattern) = @_;
opendir(DIRHANDLE, $dirname) || die "cannot opendir $dirname: $!";
# STEP 2: List the content of the specifed directory
my(@entries) = readdir(DIRHANDLE);
print "Searching $dirname\n";
# STEP 3: If the entry is a plain file, we shall do the fulltext search.
# If the entry is a subdirectory, we shall lean into it!
foreach $entry (@entries)
{
# Note: Remember to skip the . and .. entries
if ($entry ne "." && $entry ne "..")
{
search_in_file("$dirname\\$entry", "$pattern") if -f "$dirname\\$entry";
search_in_directory("$dirname\\$entry", "$pattern") if -d "$dirname\\$entry";
}
}
# STEP 4: Close the directory handle
closedir(DIRHANDLE);
}
sub search_in_file
{
# STEP 1: Open the file handle
my($filename, $pattern) = @_;
open(FILEHANDLE, $filename) || die "cannot open $filename: $!";
# STEP 2: Fulltext search work
$lineno = 1;
while (<FILEHANDLE>)
{
print "$filename [$lineno]: $_" if /$pattern/;
$lineno++;
}
# STEP 3: Close the file handle
close(FILEHANDLE);
}
search_in_directory(@ARGV);
----------------------------------------------------------------------
--
※ 发信站: 批踢踢实业坊(ptt.csie.ntu.edu.tw)
◆ From: 140.112.30.182