KORG Gadget2 -> SP-404MK2 インポート補助ツール: このファイルと同じところに置かれた全てのWAVファイルをffmpegを通して1階層上のIMPORTフォルダに出力する

convert.pl

#!/usr/bin/env perl
# ---------------------------------------------
# このファイルと同じところに置かれた全てのWAVファイルを
# ffmpegを通して1階層上のIMPORTフォルダに出力する
# ---------------------------------------------
use strict;
use warnings;
use Cwd 'getcwd';
use feature 'say';
use File::Basename;
use Data::Dumper;
use File::Spec;

my $ffmpeg='ffmpeg';
my $basedir=dirname(File::Spec->rel2abs($0));
chdir($basedir);
my @files=glob('*.wav');

foreach my $fn(@files) {
    my $fnd=File::Spec->catfile('../IMPORT','(E)'.$fn);
    say "$fn -> $fnd";
    system($ffmpeg,'-i',$fn,'-vn',$fnd);
}