我想帮助解决 Perl 语言正则表达式问题

Question

我正在研究 Perl 正则表达式脚本和这样的代码。但它不起作用。

我认为结果可能是 $file = "https://fa.t00z.tx.1p00.f0" 但事实并非如此。 它输出 $file = "https://fa.t{00}z.tx.1p00.f{0}" 我想帮忙解决这个问题。

$URL='https://fa.t{$HH}z.tx.1p00.f{$FHR3}';
$HH = 00;
$fhr = 0;
$fhr3=$fhr;
$URL =~ s/\$HH/$HH/g;
$URL =~ s/\Q${HH}/$HH/g;
$URL=~ s/\$FHR3/$fhr3/g;
$URL=~ s/\Q${FHR3}/$fhr3/g;
$URL=~ s/\$FHR/$fhr/g;
$URL=~ s/\Q${FHR}/$fhr/g;
$file = $url;
$file =~ s/^.*\///;

Answer 1

此代码将返回您想要的内容：

$HH = '00';
$fhr = 0;
$fhr3=$fhr;
$URL='https://fa.t{HH}z.tx.1p00.f{FHR3}';

$URL =~ s/{HH}/$HH/g;
$URL=~ s/{FHR3}/$fhr3/g;
$URL=~ s/{$FHR}/$fhr/g;

$file = $URL;
print $file;