Perlの置換でURLから「http://」「.」「/」「-」を取り除く
置換え命令文をなるべくシンンプルな文でご教授ください。
前)
http://www.hoge-hoge.com/contents/test.html
↓
後)
wwwhogehogecomcontentstesthtml
$a = 'http://www.hoge-hoge.com/contents/test.html'; $a =~ s/http:\/\/|\/|\.|-//g; print $a;
コメント(0件)