文字列内の単語与えられた単語

Question

のいずれかの側には、私はいくつかの文字列の後と前に持っているものを知りたいコメント# Check if exists the name columnsを持っている部分では、次のPerlスクリプト

$filters = "SELECT lead_id, status, user, title, first_name, last_name, city, phone_number FROM vicidial_list , vicidial_lists WHERE vicidial_list.list_id = vicidial_lists.list_id"; 
$stmtA = "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_SCHEMA = 'asterisk' AND TABLE_NAME = 'vicidial_list'"; 
$sthA = $dbhA->prepare($stmtA) or die "preparing: ", $dbhA->errstr; 

$sthA->execute or die "executing: $stmtA ", $dbhA->errstr; 

$counter = 0; 
$columns =(); 

while (my @row = $sthA->fetchrow_array) { 

    # GET the name columns by pos 
    $column = "@row[0] \n"; 

    # Check if exists the name columns 
    if (index($filters, @row[$counter]) > -1) { 

     $find = @row[$counter]; 
     $replace = "vicidial_list." . @row[$counter]; 

     # Replace the name column 
     $filters =~ s/$find/$replace/g; 

    } 
} 

print $filters . "\n\n"; 

#Close connection 
$sthA->finish(); 

を持っていて下さい。私はNAMEを選択した場合、それはそれはMYが先行し、ISが続いていることを返す必要がありますMY NAME IS CRISTOPHERで例えば

、。

Answer 1

あなたの質問は非常に1つの答えは正規表現であることができ、perlで、文字列のパターンを見つけることについてである場合：

my $string='MY NAME IS'; 
my $pattern='NAME'; 
if ($string =~ /$pattern/) { 
    print "Before: $`\n"; 
    print "After: $'\n"; 
} 

も特別RE variablesの全リストを参照してください。