perlの条件文

Question

私はPerlについてほとんど識字していないので、限られた時間に巨大なスクリプトをデバッグする必要があります。私はちょうど以下の言葉の説明が必要でした。

if (exists $Rows{bypassFile} && $Rows{bypassFile} =~ /\w/). 

$Rowsは、配列変数であると私は$Rows{bypassFile} =~ /\w/を理解することができませんでした'bypassFile' => ''

としてbypassFileが初期化されます。 インターネットで見つけたのは：=~は「一致」演算子です。 \wは、1文字を表す正規表現です。

Answer 1

%Rowsは、ハッシュテーブル（連想配列、辞書）です。 $Rowsは、無関係なスカラ変数です。

キーに関連付けられた値bypassFileに「単語文字」、つまり文字または数字が含まれている場合、一致が真を返します。 existsテストでは、一致していない値についての警告を防ぐテストがあります。

Cf.例：

#!/usr/bin/perl 
use warnings; 
use strict; 

my %Rows; 

sub show_result { 
    if (exists $Rows{bypassFile} && $Rows{bypassFile} =~ /\w/) { 
     print "Yes\n"; 
    } else { 
     print "No\n"; 
    } 
} 

show_result(); 
$Rows{bypassFile} = ''; 
show_result(); 
$Rows{bypassFile} = ' ,'; 
show_result(); 
$Rows{bypassFile} = 'a12'; 
show_result(); 

Answer 2

実際、%Rowsはハッシュであり、そして$Rows{bypassFile}このハッシュのエントリです。 ifbypassFileキーが%Rowsハッシュに存在するかどうかをテストし、そのキーの値に「単語文字」が含まれているかどうかをテストします。