Perlでは、複数の正規表現マッチを使用してDBI selectから返されたいくつかの行をスキップできますか？

Question

HTML::Tableを書き出すときに、特定の行をスキップしたいとします。これは、私がWebページから取得し、それらを正規表現としてコンパイルするいくつかのユーザパラメータに従って行う必要があります。

パラメータは、大文字のNOT_*です（cc08などの値または郵便番号など）。 （他の場所でSQLクエリ用）whileループで

my $nameRegex = ($NOT_NAME) ? qr/$NOT_NAME/ : ''; 
my $rackRegex = ($NOT_RACK) ? qr/$NOT_RACK/ : ''; 
my $unitRegex = ($NOT_UNIT) ? qr/$NOT_UNIT/ : ''; 
my $addressRegex = ($NOT_ADDR) ? qr/$NOT_ADDR/ : ''; 
my $townRegex = ($NOT_TOWN) ? qr/$NOT_TOWN/ : ''; 
my $pcodeRegex = ($NOT_PCODE) ? qr/$NOT_PCODE/ : ''; 

私は、データを取得し、その結果、この行を追加し、「あなたはこれらのいずれにも一致しない限り、」私はイムがやって考えることです。

クエリ内の1つの結果だけが「cc08」のために省略されている必要がありながら、 $NOT_RACK = "cc08"

= qr//; 
(?-xism:cc08) = qr/cc08/; 
    = qr//; 
    = qr//; 
    = qr//; 
    = qr//; 

問題は行がすべてに追加されていないですが

ために、次のようになりRegexs唾吐き

while ((my $id, my $name, my $rack, my $unit, my $town, my $address, my $pcode, my $lat, my $lon) = $select_sites->fetchrow_array()) { 
     my $checkbox = "<input type='checkbox' name='FILTER_SITE' value='$id' $checked{$id} />"; 

     unless ($name =~ $nameRegex 
      || $rack =~ $rackRegex 
      || $unit =~ $unitRegex 
      || $address =~ $addressRegex 
      || $town =~ $townRegex 
      || $pcode =~ $pcodeRegex) { 

      $rows++; 
      $sitesResultSection->addRow($checkbox, $name, $rack, $unit, $town, $address, $pcode, $lat, $lon); 
     } 

、その他はすべて表示する必要があります。

私はこれをHTMLでやっているのは、SQLクエリに他のフィルタがあり（結果セットが大幅に制限されている）、ユーザ入力に応じてこれらのフィルタを動的にすることが悪夢になるからです。これは私が私が私のクエリのREGEXP条件に使用したのと同じやり方で、それらのNOT_sを初期化する方法である

：

回答を受け入れ、しかし、私はさらに問題がありました。ユーザーが入力Thuslyたときに「市のracknameは、」それはここでは、SQLクエリからの抜粋ですCity

my $NOT_NAME = &useOrs(&trim($cgi->param('NOT_NAME'))); 
my $NOT_RACK = &useOrs(&trim($cgi->param('NOT_RACK'))); 
my $NOT_UNIT = &useOrs(&trim($cgi->param('NOT_UNIT'))); 
my $NOT_ADDR = &useOrs(&trim($cgi->param('NOT_ADDR'))); 
my $NOT_TOWN = &useOrs(&trim($cgi->param('NOT_TOWN'))); 
my $NOT_PCODE= &useOrs(&trim($cgi->param('NOT_PCODE'))); 

my $QUICK_SEARCH_SITES = &trim($cgi->param('QUICK_SEARCH_SITES')); 
my $searchRegexp = ($QUICK_SEARCH_SITES) ? &useOrs($QUICK_SEARCH_SITES) : '.*'; 

sub useOrs { 
    my $tmp = $_[0]; 
    $tmp =~ s/\s+/|/g; 
    return $tmp; 
} 

にラックを表示しますWHERE name REGEXP ? OR rack-id REGEXP ? OR [..] だから、いくつかの合理的な柔軟性が使用するサルを訓練することなく達成され、これらのハックとツール。 は、しかし、私は下にあった

sub useAny { 
    my $tmp = $_[0]; 
    $tmp =~ s/\s/./g; 
    return $tmp; 
} 

そして、最も重要な$var =~ /.*$NOT_VAR.*/i

を使用する代わりに&useOrsを使用してのSQLフィルターの緩みを達成するために、単に$var =~ /$NOT_VAR/は明らかにのみ正確に一致します大文字と小文字の区別など を使用して印象的なのは、Perlでハックすることになっているという印象。:)まだ提案は大歓迎です。

Answer 1

更新：シナンÜnürが指摘したように

、隠された機能があり、任意の空の正規表現//ではなく、最後に正常にマッチした正規表現を使用することでperlopで説明。非常に奇妙な機能、IMO、およびこの場合、微妙なエラーが発生します。

これは、コンテンツが最初にチェックされていない限り、正規表現内の変数を使用することをお勧めしません。

ソリューション：

あなたが、IMO、サブルーチンのためにこれを交換している何をすべきか、例えば：

sub check_var { 
    my ($var, $NOT_VAR) = @_; 
    return 0 unless $NOT_VAR; 
    return ($var =~ /$NOT_VAR/); 
} 

そして、そのように使用します。perldoc perlopから

unless (check_var($name, $NOT_NAME) 
     || check_var($rack, $NOT_RACK) 
     .... 

Answer 2

：

空のパターン//

パターンは、空の文字列に最後に評価された場合 成功 m代わりに慣れた正規表現が使用されます。 この場合、空のパターンの "g"と "c"フラグだけが となります。他のフラグは元のパターンから取得されます。 以前に成功した一致がない場合、これは（黙って） を真の空のパターンとして実行します（常に一致します）。

だから、あなたが使用することによってあなたの人生を容易にすることができます。これは、列を想定してい

use List::MoreUtils qw(any); 

my %patterns = (
    name => qr/$NOT_NAME/, 
    rack => qr/$NOT_RACK/, 
    unit => qr/$NOT_UNIT/, 
    address => qr/$NOT_ADDR/, 
    town => qr/$NOT_TOWN/, 
    pcode => qr/$NOT_PCODE/, 
); 

while (my $row = $select_sites->fetchrow_hashref("NAME_lc")) { 
    my $checkbox = '...'; 

    next if any { $row->{$_} =~ $patterns{$_} } keys %patterns; 

    $rows++; 
    $sitesResultSection->addRow(
     $checkbox, 
     @{ $row }{qw(name rack unit town address pcode lat lon)} 
    } 
} 

：

my $nameRegex = qr/$NOT_NAME/; 
my $rackRegex = qr/$NOT_RACK/; 
my $unitRegex = qr/$NOT_UNIT/; 
my $addressRegex = qr/$NOT_ADDR/; 
my $townRegex = qr/$NOT_TOWN/; 
my $pcodeRegex = qr/$NOT_PCODE/; 

または、より良いが、ハッシュを（コードはをテストされていません）を使用名前は使用した変数名と一致します。

最後に、selectにwhere句を使用していますか？可能であれば、データを取得する前にどの行を除外すべきかを指定する方がはるかに優れています。

たとえば、select name, rack, unit, address, town, pcode lat lon from TABLE where rack <> 'cc08' and town <> 'Concord'またはその行に沿ったものです。