2007-08-29 YouTubeのURLからIDを引っこ抜く perl って my $regexp = qr{^http://(?:jp|www)\.youtube\.com/watch\?v=([^&]+)}; こんな感じか。 ほんとか?