2

LIKE 演算子を使用してリテラル % を見つけるにはどうすればよいですか?

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

use DBI;

my $table = 'formula';
my $dbh = DBI->connect ( "DBI:CSV:", undef, undef, { RaiseError => 1 } );

my $AoA = [ [ qw( id formula ) ], 
        [ 1, 'a + b' ], 
        [ 2, 'c - d' ], 
        [ 3, 'e * f' ], 
        [ 4, 'g / h' ], 
        [ 5, 'i % j' ],     ];

$dbh->do( qq{ CREATE TEMP TABLE $table AS IMPORT ( ? ) }, {}, $AoA ); 

my $sth = $dbh->prepare ( qq{ SELECT * FROM $table WHERE formula LIKE '%[%]%' } );
$sth->execute;
$sth->dump_results;

# Output:
# 3, 'e * f'
# 1 rows
4

1 に答える 1

4

の現在のバージョンではこれを行うことができないようですDBD::CSV。

DBD::CSVモジュールを使用してデータにアクセスしています。モジュールを使用SQL::Statementして式を処理します。ソースコードを検索したところ、次のコードがLIKESQLステートメントの条件を処理していることがわかりました。

## from SQL::Statement::Operation::Regexp::right method
unless ( defined( $self->{PATTERNS}->{$right} ) )
{
    $self->{PATTERNS}->{$right} = $right;
    ## looks like it doen't check any escape symbols
    $self->{PATTERNS}->{$right} =~ s/%/.*/g; 
    $self->{PATTERNS}->{$right} = $self->regexp( $self->{PATTERNS}->{$right} );
}

ラインを見てください$self->{PATTERNS}->{$right} =~ s/%/.*/g;。LIKEパターンを正規表現に変換します。また、エスケープ記号のチェックも行いません。すべての%シンボルはやみくもに.*パターンに変換されます。そのため、まだ実装されていないと思います。

まあ、誰かがこの問題を解決する時間を見つけるかもしれません。

于 2010-01-06T19:14:23.540 に答える