# get_format holt sich über den namen der Datei das Format des document
sub get_format{
  use strict;
  use warnings;
  use File::Basename;
  my $suffix;
  my @files;
  my $name = shift;
  my $doc_format = shift;
  my $srcdir    =shift;
  
  foreach my $f (glob( $srcdir."$$name.*" ) ) {
    my ($basename, $path, $ext ) = fileparse ( $f, "\..+" );
    next if $ext =~ /(JPL|a00)$/;
    push( @files, $f ); 
  }
  
  foreach my $ele (@files){
    my @s = split(/\./,$ele);
    $$doc_format = $s[1];
  }
}