regex - 如何使用 perl 在不应用两次的情况下提取文本，向前看和向后看字符串？

Question

我目前有一个字符串:

https://drive.google.com/file/d/j2903r293rj092j3r20/view?usp=sharing

我想从中提取j2903r293rj092j3r20。我在 Mac OS 中使用标准的 perl 安装。我有

URL="https://drive.google.com/file/d/j2903r293rj092j3r20/view?usp=sharing"
echo $URL | perl -pe 's/https\:\/\/drive.google.com\/file\/d\///g' | perl -pe 's/\/view\?usp=sharing//g'

我在前面和后面应用 perl 的地方。有没有一种方法可以一步完成？谢谢

Answer 1

解析 URL 时，最好使用合适的解析器，例如 URI

use strict;
use warnings;
use URI;

my $uri = URI->new("https://drive.google.com/file/d/j2903r293rj092j3r20/view?usp=sharing");
my @path = $uri->path_segments;
print $path[-2];

这打印:

j2903r293rj092j3r20

我想如果你需要在一行中使用它，它会是这样的:

perl -MURI -lne'$u = URI->new($_); print (( $u->path_segments )[-2])'