與URL匹配的Perl正則表達式模式

Question

我有一個舊的perl代碼，需要通過在apache服務器中調試它來即興使用，但是其中包含一些正則表達式，我無法確切地了解我是perl的新手。 有人可以解釋一下下面的代碼做什么嗎？

my $target = " ";
$target = $1 if( $url =~ m|^$shorturl(\/.*)$|);

在這里，URL是http://127.0.0.1/test.pl/content/dist/hale_bopp_2.mpg shorturl是http://127.0.0.1/test.pl

Answer 1

是提取URL的“路徑信息”部分，即腳本路徑之后的路徑多余部分。

http://127.0.0.1/test.pl/content/dist/hale_bopp_2.mpg
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

（它實際上應該是$target = unescape_uri($1)來處理轉義字符。）

Answer 2

從語言的角度來看，它將$ url與包含在m |中的regexp匹配。 | 如果匹配，則將第一個捕獲（parens中正則表達式的一部分）放入$ target。