Perlでは、マッチした部分文字列を正規表現からどのように得ることができますか？

Question

私のプログラムは、他のプログラムのソースコードを読み、使用されたSQLクエリに関する情報を収集します。私は部分文字列を得ることに問題があります。

... 
$line = <FILE_IN>; 
until(($line =~m/$values_string/i && $line !~m/$rem_string/i) || eof) 
{ 
    if($line =~m/ \S{2}DT\S{3}/i) 
    { 

    # here I wish to get (only) substring that match to pattern \S{2}DT\S{3} 
    # (7 letter table name) and display it. 
     $line =~/\S{2}DT\S{3}/i; 
     print $line."\n"; 
... 

結果の印刷では、行全体が表示され、部分文字列は表示されません。私は別のアプローチを試みましたが、私はPerlをほとんど使用せず、おそらく基本概念の誤りを作ります。 （tablenameの行の位置は固定されていません。別の問題は[... SELECT * FROM AADTTAB、BBDTTAB、...]）です。その部分文字列を取得するにはどうすればよいですか？

Answer 1

FROMに従うとパターンが一致する方が良いでしょう。テーブル名はASCII文字のみで構成されていると仮定します。その場合、あなたが望むものを言うのが最善です。これらの2つの注意点を除いて、リストコンテキストでの正規表現の一致が成功した場合、一致した部分文字列が返されることに注意してください。

#!/usr/bin/perl 

use strict; 
use warnings; 

my $s = 'select * from aadttab, bbdttab'; 
if (my ($table) = $s =~ /FROM ([A-Z]{2}DT[A-Z]{3})/i) { 
    print $table, "\n"; 
} 
__END__ 

出力：お使いのシステム上のperlのバージョンに応じ

C:\Temp> s 
aadttab 

、あなたが読むために全部が容易になるかもしれないという名前のキャプチャグループを使用することができる場合があります

if ($s =~ /FROM (?<table>[A-Z]{2}DT[A-Z]{3})/i) { 
    print $+{table}, "\n"; 
} 

perldoc perlreを参照してください。

Answer 2

括弧でグループ化し、最初のグループを格納します。

if($line =~ /(\S{2}DT\S{3})/i) 
{ 
    my $substring = $1; 
} 

上記のコードは、最初のテーブル名を引き出す直前の問題を修正しています。しかし、この質問では、すべてのテーブル名を引き出す方法も尋ねました。だから、：

# FROM\s+  match FROM followed by one or more spaces 
# (.+?)  match (non-greedy) and capture any character until... 
# (?:x|y)  match x OR y - next 2 matches 
# [^,]\s+[^,] match non-comma, 1 or more spaces, and non-comma 
# \s*;  match 0 or more spaces followed by a semi colon 
if($line =~ /FROM\s+(.+?)(?:[^,]\s+[^,]|\s*;)/i) 
{ 
    # $1 will be table1, table2, table3 
    my @tables = split(/\s*,\s*/, $1); 
    # delim is a space/comma 
    foreach(@tables) 
    { 
    # $_ = table name 
    print $_ . "\n"; 
    } 
} 

結果：

$ラインは= "SELECT * AADTTAB、BBDTTAB FROM;" 場合

出力：

AADTTAB 
BBDTTAB 

$ラインは= "AADTTAB SELECT * FROM;" 場合

出力：

AADTTAB 

Perlのバージョン：MSWIN32-のx86マルチスレッド

Answer 3

のために構築されv5.10.0がキャプチャグループを使用します。

$line =~ /(\S{2}DT\S{3})/i; 
my $substr = $1; 

Answer 4

括弧を使用して、一部をつかむようになります$ 1、$ 2、$ 3の正規表現に変換することができます。 So：

$line = ' abc andtabl 1234'; 
if($line =~m/ (\S{2}DT\S{3})/i) { 
    # here I wish to get (only) substring that match to pattern \S{2}DT\S{3}  
    # (7 letter table name) and display it.  
    print $1."\n"; 
} 

Answer 5

$&には、最後のパターンマッチでマッチした文字列が含まれています。

例：

$str = "abcdefghijkl"; 
$str =~ m/cdefg/; 
print $&; 
# Output: "cdefg" 

だからあなたは

if($line =~m/ \S{2}DT\S{3}/i) { 
    print $&."\n"; 
} 

警告のような何かができる：

あなたはそれがすべてのパターンが一致遅くなりますあなたのコードで$&を使用する場合

。

Answer 6

私はこれを好む：

my ($table_name) = $line =~ m/(\S{2}DT\S{3})/i; 

この

1. スキャン$lineと "リスト" にパターンに
2. 戻り、 "すべて" のキャプチャ（1）に対応するテキストをキャプチャします反対側に。

この擬似リストコンテキストは、リスト内の最初のアイテムを捕捉する方法です。これは、サブルーチンに渡されるパラメータと同じ方法で行われます。

my ($first, $second, @rest) = @_; 


my ($first_capture, $second_capture, @others) = $feldman =~ /$some_pattern/; 

注：：あなたの正規表現は、状況の一握り以上に有用であることが文章についてはあまり想定している、と述べました。 7のうち3位と4位のようにdtを持たないテーブル名を取り込みませんか？ 1）クイックアンドダーティー、2）あなたが適用範囲が限定されていれば十分です。