0

まず第一に、私の英語は最高ではありません。理解していただきありがとうございます。

コード プリンシパル index.cgi の一部

my ($url, $params) = split(/\?/, $ENV{'REQUEST_URI'}); 
my @pairs = split(/&/, $params);

foreach $pair (@pairs) {

    my ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $PARAM{$name} = $value;
}
my $consulta = $PARAM{'buscar'};

print CGI::header();
print qq{<div style="font-family: monospace">\n};
$mysqltest->buscar($consulta);
print "\n<br /><br />\n";
print "\n</div>\n";

モジュール検索と結果は cgi -> index.cgi に出力されます

sub buscar{
    my $self = shift;
    my $keyword = shift;

    die "not work" if not $self->{mysqlopen};

    my $queryKeyword = $self->{connect}->prepare("SELECT * FROM savebookmarks WHERE MATCH (url,descripcion) AGAINST ('$keyword');");
    $queryKeyword->execute();

    while (my $resultKeyword = $queryKeyword->fetchrow_hashref()) {

        print dumper_html("$resultKeyword->{id} $resultKeyword->{descripcion} $resultKeyword->{url}");
    }
    $queryKeyword->finish();
    return;
}

index.cgi の結果印刷出力

...
$VAR1 = 'The Python Standard Library — Python v2.7.2 documentation http://docs.python.org/library/';
$VAR1 = 'python-nmap : using nmap from python http://xael.org/norman/python/python-nmap/';
$VAR1 = 'Manejo de Excepciones en Python « Tutorial Python http://tutorial-python.com.ar/?p=193';
$VAR1 = 'FAQ\'s de Python - Foros del Web http://www.forosdelweb.com/f130/faqs-python-591053/#post2533652';
...

私が抱えている、または解決できない問題は、クエリの印象が「$ VAR1 =」を追加することです (そうであってはなりません)結果に影響を与えます。修正する人はいますか?

これは私が必要とする完璧な出力です。->

...
'The Python Standard Library — Python v2.7.2 documentation http://docs.python.org/library/';
'python-nmap : using nmap from python http://xael.org/norman/python/python-nmap/';
'Manejo de Excepciones en Python « Tutorial Python http://tutorial-python.com.ar/?p=193';
'FAQ\'s de Python - Foros del Web http://www.forosdelweb.com/f130/faqs-python-591053/#post2533652';
 ...
4

1 に答える 1

1

追加

local $Data::Dumper::Indent = 0;
local $Data::Dumper::Terse  = 1;

でbuscar、できれば行の直前にdump_html。Data::Dumper::HTML はデバッグ ツールであることに注意してください。

于 2012-10-11T17:29:57.300 に答える