sub rip {
my $device = shift;
my $trackcount = shift;
+ my $single_file = shift;
+ my @output;
$device ||= '/dev/cdrom';
+ if ($single_file) {
+ @output = ("1-$trackcount", 'wav');
+ } else {
+ @output = ('-B');
+ }
- exec('cdparanoia', '-Bd', $device);
- # exec prints its own error message so just
+ exec('cdparanoia', '-d', $device, @output);
die;
}
MAIN: {
my $no_mb;
my $post_processor;
+ my $single_file;
my $trackcount = 99;
my $help;
my $tempdir;
'device|d=s' => \$CDDEV,
'no-musicbrainz|m' => \$no_mb,
'post-processor|p=s', \$post_processor,
+ 'single-file|s' => \$single_file,
'tracks|t=i' => \$trackcount,
'help|h|?' => \$help,
) or pod2usage();
make_post_processor($post_processor);
$trackcount = mkcue($CDDEV, $trackcount);
tags($CDDEV, $trackcount, $no_mb);
- rip($CDDEV, $trackcount);
+ rip($CDDEV, $trackcount, $single_file);
}
\f