将 href perl 变量转换为普通标量变量

Question

我想比较这两个变量。它们都有相同的值，但是，一个是 href 变量 - 意思是，它是从这样的文件中读取的

<a href=http://google.com>Variable</a>

它是这样读取的，但在浏览器中显示为锚标记，所以当我使用print "$collect_zids{$key} --> $temp";比较一个值时，我在浏览器中看到的是

变量 --> Variable

How it appears in the browser. One text another link.

我假设这两个值是不同的，因此为什么这段代码没有运行

if($collect_zids{$key} eq $from_picture){
    print "<h1>Hello</h1>";
}

有没有办法可以将 href 变量转换为普通的标量变量，以便比较它们？

谢谢！

附：我认为 Javascript 可能是唯一的方法，但是，我没有任何经验。

Answer 1

没有“href 变量”这样的东西。你有两个标量变量。一个包含纯文本，另一个包含 HTML。您的任务是从 HTML 变量中提取 HTML <a> 标记内的文本，并将该文本与纯文本变量中的文本进行比较。

一种方法是从 HTML 变量中删除 HTML。

my $html = '<a href=http://google.com>Variable</a>';
my $text = 'Variable';

$html =~ s/<.+?>//g;

if ($html eq $text) {
  say "Equal";
} else {
  say "Not Equal [$html/$text]";
}

但无论如何强调都不过分，使用正则表达式解析 HTML 是非常脆弱的，并且保证在许多情况下都无法正常工作。使用真正的 HTML 解析器要好得多。 HTML::Strip 就是为此而生的。

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use HTML::Strip;

my $html = '<a href=http://google.com>Variable</a>';
my $text = 'Variable';

my $parser = HTML::Strip->new;
$html = $parser->parse($html);

if ($html eq $text) {
  say "Equal";
} else {
  say "Not Equal [$html/$text]";
}

还值得指出的是，Perl FAQ 已经回答了这个问题

如何从字符串中删除 HTML？

使用 HTML::Strip 或 HTML::FormatText 不仅可以删除 HTML，而且 还尝试对生成的纯文本进行一些简单的格式化 文本。

更新：在评论中，你说

我没有办法使用这些方法，因为我没有明确定义变量。

这显然不是真的。变量的初始化方式与您如何使用它没有任何关系。

我假设您的 HTML 文本位于变量 $from_picture 中，因此您可以使用如下代码剥离 HTML：

my $parser = HTML::Strip->new;
my $stripped = $parser->parse($from_picture);

if($collect_zids{$key} eq $stripped){
  print "<h1>Hello</h1>";
}

我不知道你从哪里得到不能使用我的解决方案的想法，因为我直接初始化变量，而你正在从文件中读取数据。编程中的一项重要技能是看穿复杂情况并提取相关细节的能力。看来你需要在这方面做更多的工作:-)

Answer 2

我使用 Perl 模块HTML::FormatText;找到了答案

use HTML::FormatText;
my $formatter = HTML::FormatText->new();
my $string = HTML::FormatText->format_file("path_to_the_file"); #$string variable to hold the result and the path must be for a file.

使用HTML::FormatText 模块后，我能够获取正在读取的原始字符串，而不是将其解释为 HTML。所以，我得到了<a href=http://google.com>Variable</a> 的返回，而不仅仅是Variable。得到原始字符串后，我可以使用正则表达式来提取我需要的部分。

归功于 - https://metacpan.org/pod/HTML::FormatText