將foobar的播放列表中的文件整理起來的perl代碼

原创于 2007-08-03 17:28:00 发布 · 603 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl #string #path #file #input #list

本文介绍了一个使用Perl脚本从特定播放列表中读取音频文件路径并进行重命名的方法。该脚本能够解析播放列表(.fpl)中的文件路径，并针对这些路径中的音频文件（如.mp3, .wma, .m4a等格式）进行批量重命名。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

# The readfpl accept a file's path while is fpl(foobar play list),
# and return a list which holds all the file'path
sub readfpl
{
    my @files;
    my @chunks;
    my $index = 0;

    open(INPUT, "< $_[0]")
        or die "can't open";

    @chunks = split(m{file://}, <INPUT>);

    foreach(@chunks)
    {
        if($_ =~ m/.+/.(mp3|wma|m4a)/)
        {
            $files[$index] = $&;
            $index ++;
        }
    }

    print $files[0];

    return @files;
}

my @files = readfpl($ARGV[0]);
my $string;

foreach(@files){
     $string = $_;
        # the next while get name from path
     while( substr($string, 1) =~ m{//.+/.(mp3|wna|m4a)}) {
         $string = $ARGV[0].$&;
         }
     rename $_, string;
}

將這段代碼存為movefpl.pl然后在命令行打入 movefpl.pl 播放列表的全路徑要存歌曲的新路徑
就可以了呢呵呵