Perl正規表現：ユーザが入力した単語をファイル内で見つける方法

Question

私はLOGファイルを読むためのスクリプトを書いています。私は、単語を入力してからそれを探し、単語にマッチする行（文字列から）を印刷したいと思っています。

私はちょうどPerlを学んでいるので、私はそれを理解することができるように非常に具体的で簡単です。

print "Please Enter the word to find: "; 
chomp ($userInput = <STDIN>); 

while ($line = <INPUT>) 
if ($line =~ /userInput/) 
print $line; 

私はこれが完璧ではないことを知っていますが、私は学んでいます。

Answer 1

あなたは近くにいました。パターンマッチで変数を展開する必要があります。

print "Please Enter the word to find: "; 
chomp ($userInput = <STDIN>); 

while ($line = <INPUT>) { 
    if ($line =~ /$userInput/) { # note extra dollar sign 
     print $line; 
    } 
} 

それはパターンマッチであるので、あなたが潜在的にそれでワイルドカードを含む文字列で検索していることに注意してください。リテラル文字列が必要な場合は、変数の前に\Qを入れて補間します（/\Q$userInput/）。

Answer 2

ループを1回だけ実行している場合は、whileループを使用すると問題ありません。もちろん、構文を修正する必要があります。

ます。またgrepを使用することができます。

print grep /$userInput/, <INPUT>; 

あなたが複数の検索を行いたい場合は、（ファイルが大きい場合）、ファイルハンドルを再度開く、または配列に格納でき、次のいずれか

print grep /$userInput/, @array; 

あなたの入力にはもちろんメタキャラクタがあります。これは、ユーザーに応じて、良いことと悪いことがあります。たとえば、経験豊富なユーザーは、^foo(?=bar)などの検索語を入力して検索を絞り込むオプションを認識しますが、文字列foo+barが見つからないと他の人が非常に混乱することがあります。

メタ文字をエスケープする方法は、入力にquotemetaを使用することです。もう一つは正規表現の中に\Q ... \Eを使うことです。

$userInput = quotemeta($userInput); 
# or 
print grep /\Q$userInput\E/, <INPUT>; 

私があなただったら、ルックアップにサブルーチンを使用します。そうすれば、多くの検索を好きなだけ手軽に実行できます。

use strict; 
use warnings; # ALWAYS use these 

print "Please Enter the word to find: "; 
chomp (my $userInput = <>); # <> is a more flexible handle 
print lookup($userInput); 

sub lookup { 
    my $word = shift; 
    open my $fh, "<", $inputfile or die $!; 
    my @hits; 
    while (<$fh>) { 
     push @hits, $_ if /\Q$word\E/; 
    } 
    return @hits; 
} 

Answer 3

のようなものです。 \ bWORD \ b。は

http://www.regular-expressions.info/wordboundaries.html