如何用Perl匹配url根目录
发布网友
发布时间：2022-04-20 09:57
共2个回答
热心网友
时间：2023-06-28 01:07
使用File::Basename模块就可以解析这样的路径，代码如下：use File::Basename;
$url = 你的路径;
($name,$dir) = fileparse($url);
print $name,"\n";
print $dir;
其中$dir是你想要的结果。$name是最后文件的名称。
热心网友
时间：2023-06-28 01:08
你试试这段代码，其中$m可以赋值为 http://127.0.0.1/example/abc_.htm/index-.php
或者
http://127.0.0.1/exa/a-_.htm/a-b_c.f.php?to=abc/a03-2
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
$m=" http://127.0.0.1/exa/a-_.htm/a-b_c.f.php?to=abc/a03-2";
if($m=~m%( http://127.0.0.1/(.*)?.htm/)%g){
print "$1\
";
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
不知道符合不符合你的要求
祝你成功！
