bin/mp3toraw

   1 #!/usr/bin/perl
   2
   3 use MPEG::MP3Info;
   4 use Data::Dumper;
   5
   6 $_ = get_mp3info($ARGV[0]);
   7 #warn Dumper($_);
   8
   9 open STDERR, ">/dev/null";
  10
  11 if(abs($_->{FREQUENCY} - 44.1) > 0.1) {
  12         $sfreq_from = int($_->{FREQUENCY} * 1000 + 0.5);
  13         if($sfreq_from) {
  14                 open STDOUT, "|resample $sfreq_from 44100";
  15         }
  16 }
  17
  18 @opts = ('-SQoraw:-');
  19
  20 # check if the --ignore-crc option is supported
  21 # madplay versions prior to 0.14.2b don't have it
  22 push @opts, "--ignore-crc" if `madplay -h 2>&1 |grep -- --ignore-crc`;
  23
  24 exec 'madplay', @opts, $ARGV[0];