小编use*_*649的帖子

使用Perl Mechanize编写换行符,引号和特殊字符

我正在尝试使用Mechanize开发PERL程序,这将允许我从我的网站上重新发布其他网站上的内容.但我在编码方面遇到了一些问题:

  • 当我重新发布我的内容时,其他网站上没有换行符
  • 引号不解释
  • 像€这样的符号也没有被解释

我的网站使用UTF-8编码,另一个网站使用ISO-8859-15编码.以下是我网站上的数据样本以及其他网站上公布的结果:

10 M€d'encours/10 M?d?encours

这是我的PERL计划:

#!/usr/bin/perl

use utf8;
use strict;
use warnings;
use WWW::Mechanize;
use HTML::TreeBuilder;
use HTML::TreeBuilder::XPath;

my $mech = WWW::Mechanize->new(
   stack_depth => 0,
   timeout => 10,
);

$mech->get("RecoveredDataFromMyWebsiteUrl"); 
my $tree = HTML::TreeBuilder::XPath->new_from_content($mech->content); 
my $data = $tree->findvalue('/html/body//div[@id="content"]');
$data = Encode::encode("iso-8859-15",$data);

$mech->get("OtherWebsiteFormularUrl"); 
$mech->form_name("formular")->accept_charset('iso-8859-15');# Form Post Emploi
$mech->set_fields(
    content => $data
);
$mech->submit;

open FIC,">output.html"
or die "E/S : $!\n";
my $out = select(FIC5);
print $mech->content;
Run Code Online (Sandbox Code Playgroud)

perl encoding mechanize

5
推荐指数
1
解决办法
229
查看次数

如何使用AND运算符构建查询?

我无法使用过滤器或查询与运算符"AND"执行查询.

我读了:

我试过了:

'curl -XGET url_local:9200/chasseur_de_tete/cv/_search -d ' { 
"filtered" : { 
  "query" : { 
    "match_all" : {} },
      "filter" : { 
        "and" : { 
          "filters" : [
            {"term" : {"active" : true }},
            { "term" : { "deleted" : false }}
          ]
        }
      }
    }
} ' 
Run Code Online (Sandbox Code Playgroud)

这会产生以下错误:

{
    "error": "SearchPhaseExecutionException[Failed to execute phase [query], total failure; shardFailures {[9Fx2f7-MSNyYATEMPgemLw][chasseur_de_tete][4]: SearchParseException[[chasseur_de_tete][4]: from[-1],size[-1]: Parse Failure [Failed to parse source [ { \"filtered\" : { \"query\" : { \"match_all\" : …
Run Code Online (Sandbox Code Playgroud)

elasticsearch

1
推荐指数
1
解决办法
3068
查看次数

标签 统计

elasticsearch ×1

encoding ×1

mechanize ×1

perl ×1