#!/usr/bin/perl -w
use strict;
use warnings;

my %tests = (
    1 => {
        a           => '0.710.08',
        b           => '0.710.09',
        erwartet    => '<',
    },
    2 => {
        a           => '0.710.00',
        b           => '0.710.00',
        erwartet    => '=',
    },
    3 => {
        a           => '0.710.00',
        b           => '0.710',
        erwartet    => '=',
    },
    4 => {
        a           => '0.710.09',
        b           => '0.710.08',
        erwartet    => '>',
    },
    5 => {
        a           => '0.710',
        b           => '0.710.00',
        erwartet    => '=',
    },
    6 => {
        a           => '1.93_99',
        b           => '1.93_099',
        erwartet    => '=',
    },
    7 => {
        a           => '1.93_99',
        b           => '1.94',
        erwartet    => '<',
    },
    8 => {
        a           => '2',
        b           => '1',
        erwartet    => '>',
    },
);

foreach my $nr (keys %tests) {
    my $erg = versionsvergleich($tests{$nr}{a},$tests{$nr}{b});
    print "$tests{$nr}{a} / $tests{$nr}{b} => '$erg' " . ($erg eq $tests{$nr}{erwartet} ? 'passed' : 'FAILED!!!') . "\n";
}

###############################################################################

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 @teil;
    @{$teil[0]} = split /[^0-9]/,$_[0];
    @{$teil[1]} = split /[^0-9]/,$_[1];
    my $ret = '';
    my $kuerzer = (scalar @{$teil[0]} <= scalar @{$teil[1]} ? 0 : 1);
    for (my $z = 0; $z < scalar @{$teil[$kuerzer]}; $z ++) {                                                    # von links den ersten Unterschied finden
        if ($teil[0][$z] > $teil[1][$z]) {
            $ret = '>';
            last;
        }
        elsif ($teil[0][$z] < $teil[1][$z]) {
            $ret = '<';
            last;
        }
    }
    if ($ret eq '') {                                                                                           # bis hierher gleich
        if (scalar @{$teil[0]} == scalar @{$teil[1]}) {                                                         # müssen gleich sein
            $ret = '=';
        }
        else {                                                                                                  # andere Länge
            my $laenger = ($kuerzer ? 0 : 1);                                                                   # der längere ist der der nicht der kürzere ist
            my $start = scalar @{$teil[$laenger]} - (scalar @{$teil[$laenger]} - scalar @{$teil[$kuerzer]});    # Beginn ab dem überschüssigen Teil
            for (my $z = $start; $z < scalar @{$teil[$laenger]}; $z ++) {
                if ($teil[$laenger][$z] > 0) {
                    $ret = ($laenger ? '<' : '>');
                    last;
                }
            }
            $ret = '=' if $ret eq '';
        }
    }
    return $ret;
}