【唐澤貴洋殺す】雑談★54【カリフ逮捕】 (1001)

585 - 一般ノルウェー市民 2020/09/14(月) 15:30:39.88 ID:mHRUJgBH0

>>583
とりとり

#!/usr/bin/perl
use strict;
use warnings;

if (@ARGV == 1) {
my $str = $ARGV[0];
my $dst = $ARGV[0];
$str =~ s"share\/\?uid=([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{4})"data/$1/$2/$3/$4/";
$dst =~ s".*/share/\?uid="";
system("wget", "-O", $dst . ".mp3", $str . "/mix.mp3");
}