read_tags
mangle_for_file_name
quote
+ two_digits
]);
sub main {
$track->{DISCNUMBER} = \@discnumber;
}
my $title = join(' ', @{$track->{TITLE}});
- my $tracknum_s = sprintf('%02d', $tracknum);
+ my $tracknum_s = two_digits($tracknum);
my $fn = join('/',
$dir,
join('_',
- (map { sprintf('%02d', $_) } @discnumber),
+ (map { two_digits($_) } @discnumber),
$tracknum_s,
mangle_for_file_name($title) . '.flac',
),