gstreamer/tools/gst-launch-ext

#!/usr/bin/perl -w

# launch a gst-launch pipeline for the supplied media file
# use the extension to determine the gst-launch pipeline
# make use of default output sinks

### packages

use File::Basename;



sub extension
{
  my $path = shift;
  my $ext = (fileparse ($path, '\..*'))[2];
  $ext =~ s/^\.//;
  return $ext;
}

sub read_config
{
  my $config_file = "~/.gst";
  if (-e $config_file)
  {
    open CONFIG, $config_file;
    while (<CONFIG>)
    {
      chomp;
      s/#.*//;
      s/\s+$//;
      next unless length;
      my ($var, $value) = split (/\s*=\s*/, $_, 2);
      $cfg{$var} = $value;
    }
    if (!($cfg{AUDIOSINK}))
    {
      print "Please add an AUDIOSINK to $config_file !\n";
    }
    if (!($cfg{VIDEOSINK}))
    {
      print "Please add a VIDEOSINK to $config_file !\n";
    }
  }
  else
  {
    print "No configuration file $config_file found.  You might want to create one.\n";
    $cfg{AUDIOSINK} = "osssink";
    $cfg{VIDEOSINK} = "xvideosink";
    $cfg{CVS_PATH} = "~/gst/cvs";
  }

  # check for gst-launch in cvs dir
  $GST_LAUNCH=$cfg{CVS_PATH}."/gstreamer/tools/gst-launch";
  if (! -x $GST_LAUNCH)
  {
    # let's hope it's installed ...
    $GST_LAUNCH="gst-launch";
  }
}

### main

read_config ();

my %pipes = ( 
  "mp3", "mad ! $cfg{AUDIOSINK}",
  "ogg", "vorbisdec ! $cfg{AUDIOSINK}",
  "mpg", "mpegdemux video_00! { queue ! mpeg2dec ! $cfg{VIDEOSINK} } audio_00! { queue ! mad ! $cfg{AUDIOSINK} }",
  "avi", "avidemux video_00! { queue ! windec ! $cfg{VIDEOSINK} }",
  "vob", "mpegdemux video_00! { queue ! mpeg2dec ! $cfg{VIDEOSINK} }",

);
my $file = shift @ARGV or die "Please give a file name !";

my $ext = extension ($file);

if ($pipe = $pipes{$ext})
{
  $command = "$GST_LAUNCH filesrc location=\"$file\" ! $pipe";
  print "Running $command\n";
  system ($command);
}
else
{
  print "No suitable pipe found for extension $ext.\n";
}