- Timestamp:
- 03/28/15 00:12:19 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cd2flac
r23 r38 11 11 use Getopt::Long qw{:config no_ignore_case no_auto_abbrev}; 12 12 use Cwd; 13 use Audio::FLAC::Header; 13 14 14 15 GetOptions( 15 'device|D=s' => \my $CD_DEVICE, 16 'output|o=s' => \my $OUTPUT_NAME, 17 'force|f' => \my $FORCE, 16 'device|D=s' => \my $CD_DEVICE, 17 'output|o=s' => \my $OUTPUT_NAME, 18 'force|f' => \my $FORCE, 19 'barcode|b=s' => \my $BARCODE, 18 20 ); 19 21 … … 38 40 $ripper->rip_to_flac($archive_flac); 39 41 42 if ($BARCODE) { 43 print "Writing barcode\n"; 44 system 'metaflac', '--set-tag', "BARCODE=$BARCODE", $archive_flac; 45 } 46 40 47 print "Rip saved as $archive_flac\n"; 41 48 system 'eject', $CD_DEVICE;
Note: See TracChangeset
for help on using the changeset viewer.