Perl - regex - 文字列の後に ";"をつけて各行を読み込んで検索したい。

Question

私はPerlを学んでいるので、ログファイルを読むことができます。私はすべての行を検索し、各行の先頭に英数字の文字列とそれに続く;を探したい。

if ($line =~ /\S([a-zA-Z][a-zA-Z0-9]*)/) 

が、私は、これは間違っていると思う：

これは私が持っているものの一部です。

お知らせください。

Answer 1

試してみてください。

if ($line =~ /^[a-z0-9]+;/i) { ... } 

^は、行の先頭に一致します。 +は1回以上一致します。 /iは大文字と小文字を区別しない検索を行います。

Answer 2

まだASCIIに感染している多くの人が0-9のA-Zを意味すると思うので、「英数字」は少し曖昧ですが、Perlはバージョン（Know your character classes under different semantics）によって異なると考えています。正規表現と同様に、あなたの仕事はあなたが望むものだけを含むパターンをデザインすることであり、あなたが望むものはすべて除外しません。

また、多くの人々は^を文字列の先頭に使用しています。これは、/mフラグがない場合と同じです。しかし、reモジュールはデフォルトのフラグを設定できるようになったので、他のプログラマが参考にしようとしているときのあなたの正規表現は、あなたの考えではないかもしれません。

my $alphanum = qr/[a-z0-9]/i; 
my $regex = qr/ 
    \A    # absolute start of string 
    (?:$alphanum)+ # I can change this elsewhere 
    ; 
    /x; 

if($line =~ $regex) { ... }