小编Leh*_*ann的帖子

嗨,这个网站已经帮我几次修复我在perl的问题.这是我第一次提出问题,因为我无法在谷歌和堆栈溢出中找到答案.

我想要做的是获取两个单词之间的内容.但他们必须匹配的模式正在发生变化.我正在尝试获取产品详细信息.品牌,描述,名称等.我试图在另一个之后进行正则表达式匹配,但遗憾的是这不起作用,因为$ 1保持定义.试图取消$ 1变量取消给我错误消息"只读"这是合乎逻辑的.我将在下面发布我的代码,也许有人有一个想法如何让它工作.

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use IO::File;
use utf8;
my $nfh = IO::File->new('test.html','w');
my $site = 'http://www.test.de/dp/';
my $sku = '1550043196';
my $url = join('',$site,$sku);
my $content = get $url;
my $name = $1 if ($content =~ m{<span id="productTitle" class="a-size-large">(.*?)</span>}gism);
print "$name\n";

# My attempt of undefying 
#undef $1;

my $marke = $1 if ($content =~ m{data-brand="(.*?)"}gism);
print "$marke\n";

有什么建议？