sub versionsvergleich {
    #
    # Rückgabe:
    # =========
    # > = linke Version ist höher
    # = = Versionen sind gleich
    # < = rechte Version ist höher
    # E = Fehler aufgetreten
    #
    return 'E' if !defined $_[0] || $_[0] eq '' || !defined $_[1] || $_[1] eq '';    
    my @versions=@_;
    for my $ver (@versions)
    {
      my @l=split(/\D+/$ver);
      return 'E' unless(@l);
      $ver=\@l;
    }

    for my $pos (0..2)
    {
      return '<' if($versions[0][$pos] < $versions[1][$pos]);
      return '>' if($versions[0][$pos] > $versions[1][$pos]);
    }
    return '=';
}