Question

perl 怎么获取特定字符前面的字符串

比如我要提取？前面的网址http://music1.baidu.com/music1-abcdefghijk.mp3?key=20150310091012

Answer 1

$re = 'http://music1.baidu.com/music1-abcdefghijk.mp3?key=20150310091012';
if ($re=~m/^(.*?)\?/){
    print $1;
}