好奇葩！不知道正则什么地方有问题。。

墨迹哥

1. $a="http://www.163.com/";
   
2. 
   
3. if($a = ~m/^(http|https|ftp):\/\/((.*)\/|(.*))/)
   
4. {
   
5.    print $a;
   
6. }
   

复制代码

root@smart:~# perl c.pl
Use of uninitialized value $_ in pattern match (m//) at c.pl line 5.
18446744073709551615root@smart:~#


一直都这么写，，不知道今天出什么问题了。。

zhlong8

= ~ 不等于 =~

墨迹哥

回复 2# zhlong8


    好坑爹。。感觉最近精神不佳。。。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Ipmodule;
   
5. 
   
6. $a="http://www.baidu.com/";
   
7. if($a =~m/^(http|https|ftp)\:\/\/((.*)\/|(.*))/){
   
8.    print $2;
   
9. }
   

复制代码

zhong8 大仙。。看看有什么地方可改进？ 取URL。。

墨迹哥

防暑降温。。。自己干吧。。。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Ipmodule;
   
5. 
   
6. $a="http://www.baidu.com/";
   
7. if($a =~m/^(http|https|ftp)\:\/\/(.*)/){
   
8.    if($2 =~m/(.*)\/$/){
   
9.          print $1;
   
10.    }
    
11. }
    

复制代码

qq27898

感觉有进步了

zhlong8

回复 4# 墨迹哥


    一看错误提示就知道了，这里 $_ 只可能是做为匹配的默认参数出现，但是你是想要用 $a 匹配的，没有用默认的 $_ 然后问题就找到了。说明你不太清楚 m// s/// 的默认参数

    这里取 url 还是用模块吧，想写个完美的正则表达式一时我也写不出来。至于三楼的那个正则表达式 ｜ 的优先级最低啊，你有3个括号却只取 $2 对吗？

mcshell

regexlib.com 适合你

墨迹哥

回复 6# zhlong8


    是的啊。。最终我选择了4楼我写的那个方案。。这是个坑爹的节奏。。。

   

墨迹哥

回复 7# mcshell


    其实是写的太着急，开始没耐心了。。。

pitonas

感觉好奇葩！