Perl

正規表現、urlの一番後ろの/から右側をとる

公開済み 2011年6月16日 · 更新済み 2011年6月16日

#! /usr/bin/perl

use strict;
use warnings;

my $str = "//wrs.search.yahoo.co.jp/S=2114736003/K=%E3%81%8D%E3%82%8A%E3%82%93%E5%BA%A7/v=2/SID//=w/l=WS1/R=2/IPC=us/SHE=0/H=0//SIG=11p8an274/EXP=1171686616/*-http%3A//d.hatena.ne.jp/camelopardalis/index.html";

$str =~ m{^.*/(.*?)$};
print $1;