如何移除字符串变量末尾字符？Perl抓取链接时如何去除末尾引号？

Hey，让我来逐个帮你搞定这两个Perl相关的问题：

在Perl里有几种实用的方法可以实现，你可以根据场景选择：

• 使用substr函数（推荐，不修改原变量）：
  substr支持负数长度参数，表示从字符串末尾反向截取。比如：

  my $original_str = "hello world!";
  my $trimmed_str = substr($original_str, 0, -1); # 结果是 "hello world"
  

  这里substr($str, 0, -1)的意思是：从索引0开始，截取到倒数第一个字符之前的所有内容，原变量不会被改动。

• 使用chop函数（直接修改原变量）：
  这个函数会直接移除字符串的最后一个字符，并返回被移除的字符。适合需要修改原变量的场景：

  my $str = "test_string";
  chop $str; # $str现在变成 "test_strin"
  

  注意：如果字符串为空，chop不会报错，只会返回空字符串。它常用来移除末尾的换行符，但也通用在任何字符串上。

• 使用正则替换：
  通过匹配字符串末尾的任意字符并替换为空，也能达到效果：

  my $str = "example_text";
  $str =~ s/.$//; # $str变成 "example_tex"
  

  解释：.匹配任意单个字符，$锚定到字符串末尾，所以.$精准匹配最后一个字符，替换为空就完成了移除。

你的代码里生成的链接带末尾引号，是因为正则表达式把双引号包含到$2的捕获组里了。这里有两种解决方式：

方法1：调整正则，把双引号排除在捕获组外（推荐） #

Google Play的分类名都是大写字母加下划线的格式，完全可以简化正则，同时把双引号移到捕获组外面：

use LWP::Simple;
my $url = 'https://play.google.com';
my $html = get($url);
while ($html =~ /href\="(\/store\/apps\/category\/)([A-Z_]+)"/g) {
    print "$url$1$2\n";
}

这样修改后，$2只会捕获纯分类名（比如ART_AND_DESIGN），不会包含末尾的双引号，生成的链接自然就正常了。

方法2：手动移除$2中的引号（兼容原有正则） #

如果不想改动正则逻辑，可以在使用$2之前，用正则替换掉末尾的引号：

use LWP::Simple;
my $url = 'https://play.google.com';
my $html = get($url);
while ($html =~ /href\="(\/store\/apps\/category\/)([A-Z]+"|[A-Z]+_[A-Z]+"|[A-Z]+_[A-Z]+_[A-Z]+")/g) {
    my $category = $2;
    $category =~ s/"$//; # 移除末尾的双引号
    print "$url$1$category\n";
}

这种方法虽然能解决问题，但多了一步字符串处理，效率不如第一种方法，所以优先推荐调整正则的方案。

内容的提问来源于stack exchange，提问作者GrassyGlide