FuniCode 编程论坛

=info
    将 Bilibili Download 目录下的 blv 文件收集
    修改为 flv 格式 （这个目录是从手机复制到PC的）
    2019-05
=cut

use Modern::Perl;
use File::Basename;
use File::Path;
use File::Copy;
use Cwd;
STDOUT->autoflush(1);

my $wdir = "collect";
my @files = `dir /s /b *.blv`;
my $cwd = getdcwd;

mkpath $wdir unless -d $wdir;
grep { s/\r?\n$//; s/^\Q$cwd\E\\// } @files;
print join("\n", @files);

my %hash;
for my $p ( @files )
{
    my ($head) = split(/\\/, $p);
    next if $head eq $wdir;
    
    if ( exists $hash{$head} ) {
        $hash{$head} +=1;
    } else {
        $hash{$head} = 1;
    }

    my $fname = sprintf "%s_%02d%s", $head, $hash{$head}, ".flv";
    copy( $p, $wdir . "/" . $fname );
}