#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

sub version_vergleich {
	# Thema "version kaputt?" --> https://www.perl-community.de/bat/poard/thread/20476
	my ($v1,$v2) = @_;
	my $praefix = scalar(split /\./,$$v1) > 2 || scalar(split /\./,$$v2) > 2 ? 'v' : '';
	my $links = version->parse(($$v1 =~ /^([0-9.]+)/ ? $praefix : '').$$v1);
	my $rechts = version->parse(($$v2 =~ /^([0-9.]+)/ ? $praefix : '').$$v2);
	return $links < $rechts ? 1 : $links == $rechts ? 2 : 3;
}

my @deut = ('','<','=','>');
my $nr = 0;
foreach my $ref (
	{
		zeile			=> __LINE__,
		wert1			=> '1.2.4',
		wert2			=> '1.1',
		sollergebnis	=> 32,
	},
	{
		zeile			=> __LINE__,
		wert1			=> 'v1.2.4',
		wert2			=> '1.1',
		sollergebnis	=> 32,
	},
	{
		zeile			=> __LINE__,
		wert1			=> '1.2.4',
		wert2			=> 'v1.1',
		sollergebnis	=> 32,
	},
	{
		zeile			=> __LINE__,
		wert1			=> 'v1.2.4',
		wert2			=> 'v1.1',
		sollergebnis	=> 3,
	},
	{
		zeile			=> __LINE__,
		wert1			=> '1.1',
		wert2			=> '1.2.4',
		sollergebnis	=> 1,
	},
	{
		zeile			=> __LINE__,
		wert1			=> '1.2.4',
		wert2			=> '1.2.4',
		sollergebnis	=> 2,
	},
	{
		zeile			=> __LINE__,
		wert1			=> '1.2.4.0',
		wert2			=> '1.2.4',
		sollergebnis	=> 2,
	},
	{
		zeile			=> __LINE__,
		wert1			=> '1.2.4.0',
		wert2			=> '1.2.4',
		sollergebnis	=> 32,
	},
	{
		zeile			=> __LINE__,
		wert1			=> '1.19',
		wert2			=> '1.5',
		sollergebnis	=> 1,
	},
	{
		zeile			=> __LINE__,
		wert1			=> '1.19',
		wert2			=> '1.5',
		sollergebnis	=> 12,
	},
	{
		zeile			=> __LINE__,
		wert1			=> 1.19,
		wert2			=> 1.50,
		sollergebnis	=> 12,
	},
	{
		zeile			=> __LINE__,
		wert1			=> 1.19,
		wert2			=> 1.5,
		sollergebnis	=> 1,
	},
	{
		zeile			=> __LINE__,
		wert1			=> 'v1.19',
		wert2			=> 'v1.50',
		sollergebnis	=> 12,
	},
	{
		zeile			=> __LINE__,
		wert1			=> 'v1.19_01',
		wert2			=> 'v1.19_02',
		sollergebnis	=> 1,
	},
) {
	$nr ++;
	printf "Zeile %03d mit $ref->{wert1} ",$ref->{zeile};
	print map {$deut[$_]} (split //,$ref->{sollergebnis});
	print " $ref->{wert2}  -->  ";
	my $erg = version_vergleich(\$ref->{wert1},\$ref->{wert2});
	my $treffer = 0;
	foreach my $char (split //,$ref->{sollergebnis}) {
		if ($erg == $char) {
			$treffer = 1;
			last;
		}
	}
	if ($treffer) { say "OK"; }
	else {
		say "FEHLER, tatsaechliches Ergebnis: $deut[$erg]";
		exit;
	}
}