谁能看明白这句话

谁能看明白这句话

my ($host,$path)=$url=~m!^http://([^/]+)(/[^\#]*)

希望高手能耐心指导小弟,不要看完就走了,好歹支持一下,把自己知道的说出来,3Q
my ($host,$path) =
        $url =~
                m!
                ^http://([^/]+)
                        (/[^\#]*)
                !

这个正则式用 ! 做分隔符,我一般就用 {} 了

my ($host,$path) =
        $url =~
                m{
                ^http://([^/]+)
                        (/[^\#]*)
                }
为什么我觉得应该是

[Copy to clipboard] [ - ]
CODE:
my ($host,$path)=$url=~m!^http://([^/]+)/([^\#]*)

明白了,谢谢!
呵呵 学习啦
推荐使用Regexp::Common