IF文の正規表現マッチ（Perl）からの値

Question

現在、ファイル内のテーブルからREGEX行のマッチを使ってテーブル行に対して値を抽出しています。

foreach my $line (split("\n", $file)) { 
    if ($line =~ /^(\S+)\s*(\S+)\s*(\S+)$/) { 
     my ($val1, $val2, $val3) = ($1, $2, $3); 

     # $val's used here 
    } 
} 

私は意図的にコードを明確にするために値を割り当てます。私のテーブル行の中には、10個以上のval（aka columns）が含まれています。 - val = $（$ 1、$ 2、...、$ n）ではなくvalを割り当てるより効率的な方法がありますか？

Answer 1

リストコンテキストで一致すると、キャプチャグループのリストが生成されます。失敗した場合は、空のリストを返します。これはfalseです。したがって、

if(my ($val1, $val2, $val3) = $line =~ m/^(\S+)\s*(\S+)\s*(\S+)$/) { 
    ... 
} 

ただし、このコードでは多くの赤旗が明白です。その正規表現のキャプチャは分割と非常によく似ています：

if(my ($val2, $val2, $val3) = split ' ', $line) { 
    ... 
} 

次に、なぜ$ fileをlinefeedsで分割するのですか？あなただけのスペースでテーブルを使用しているdelimiter.Youはsplit機能を使用することができるように

while(my $line = <$fh>) { 
    ... 
} 

Answer 2

が見える：あなたは、ファイルの内容を読んでいる場合は、はるかに良く、実際に一度に単一のラインを読むことです

@valuearray = split(" ", $line)

そしてとしての要素を扱う：

@valuearray[0] ,@valuearray[1]など。

Answer 3

私はそうならば、それは動作しませんので、これは、あなたの実際のコードではないことを前提としています

foreach my $line (split("\n", $file)) { 
    if ($line =~ /^(\S+)\s*(\S+)\s*(\S+)$/) { 
     my ($val1, $val2, $val3) = ($1, $2, $3); 
    } 
# all the $valX variables are now out of scope 
} 

あなたはまた\s*も空の文字列に一致することに注意する必要があり、微妙なエラーが発生することがあります。たとえば：

"a bug" =~ /^(\S+)\s*(\S+)\s*(\S+)$/; 
# the captures are now: $1 = "a"; $2 = "bu"; $3 = "g" 

でも\S+は貪欲であるという事実にもかかわらず、アンカー^ ... $は空の文字列は単語を分割することができ、したがって、収まるように正規表現を強制します。

空白で区切られたすべての単語をキャプチャする場合は、splitを使用することをお勧めします。

open my $fh, "<", "file.txt" or die $!; 
my @stored; 
while (<$fh>) { 
    my @vals = split; 
    push(@stored, \@vals) if @vals; # ignore empty values 
} 

これは、キャプチャされた値を2次元配列に格納します。何らかの理由でファイル全体を実際にメモリに保存する必要がないかぎり、ファイルハンドルを直接使用して行単位で読み取ることをお勧めします。