查找文件中的特定單詞

Question

首先，我想搜索目錄中的特定文件，然後搜索文件中需要搜索的特定單詞。這是我到目前爲止有：

$show_bp = 'ShowBuildProcess'; 
$get_bs = 'GetBuildStatus'; 

opendir (DIR, $my_dir) or die $!; 

while(my $file = readdir(DIR)) 
{ 
     if($file=~/\.log/) 
     { 
       if($file=~/GetBuildStatus/) 
       { 

文件名會像GetStatus.<number>.log，例如GetStatus.123456.log。我需要：

• 在目錄中查找所有.log文件
• 搜索與文件名的文件開始GetStatus
• 搜索文件名以較低的數字部分
• 搜索一個特定的詞文件

Answer 1

這是給你一個可能的解決方案： 首先我們看一下文件模式，並提取$1，這是第一次正則表達式匹配）括號內）。如果文件符合我們打開它，並通過它看起來一行一行地尋找一個匹配您的/YourSearchPattern/：

#!/usr/bin/perl 

use warnings; 
use strict; 

my $mydir = './test/'; 

opendir (DIR, $mydir) or die $!; 

while(my $file = readdir(DIR)){ 
    if ($file =~ /^GetStatus\.(\d+)\.log$/){ 

     if ($1 >= 123456 || $1 < 345678){ 
      open(my $fh,'<', $mydir . $file) or die "Cannot open file $file: $!\n"; 
      while (<$fh>){ 
      if ($_ =~ /YourSearchPattern/){ 
       print $_; 
      } 
      } 
      close($fh); 
     } 
    } 
} 

當你從你的目錄中的文件的最小的序列號，你可以簡單地將它們存儲在一個數組，然後這些數字後，對它們進行排序：

... 
opendir (DIR, $mydir) or die $!; 

my @files; 

while(my $file = readdir(DIR)){ 
    if ($file =~ /^GetStatus\.(\d+)\.log$/){ 
     push @files $file; 
    } 
} 

my @sortedfiles = sort { my ($anum,$bnum); $a =~ /^GetStatus\.(\d+)\.log$/; $anum = $1; $b =~ /^GetStatus\.(\d+)\.log$/; $bnum = $1; $anum <=> $bnum } @files; 

print $sortedfiles[0] . " has the smallest sequence number!\n";