my $img_url = $1;
my ($img_name) = $img_url =~ m/[^\/]+$/;
$img_name =~ s/\?.*$//; # remove query string, if any
print "Downloading $img_url to $img_name ...\n" alt="使用Perl轻松下载你所需的文件" class="img img_hover" />
ZTHZ2028
长按复制微信号,添加好友
QQ客服专员
电话客服专员
24h咨询☎️:157-1842-0347
🔺🔺 棋牌游戏开发24H咨询电话 🔺🔺