MTG/convert.pl

   1 #!/usr/bin/perl -w
   2
   3 my $from=$ARGV[0];
   4 my $to=$ARGV[1];
   5
   6 print "convert.pl 20020130 from $from to $to\n";
   7
   8 my $output=`file $from`;
   9 my $channels=0;
  10
  11 if($output=~m/WAVE/){
  12     print "input file is WAV...\n";
  13     if($output=~m/stereo/){
  14         $channels=2;
  15     }
  16     if($output=~m/mono/){
  17         $channels=1;
  18     }
  19
  20     $output=`sox $from -t RAW -w -s -c $channels -r 44100 $to`;
  21     tack_header();
  22     exit(0);
  23 }
  24
  25 print "input is an unsupported file type (for now)\n";
  26
  27 1;
  28
  29 sub tack_header{
  30     my$footer=pack("ii",55,$channels);
  31     die $! unless open(TEMP,">>$to");
  32     syswrite TEMP,$footer;
  33     close(TEMP);
  34 }