challenge-058/mohammad-anwar/perl/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

#!/usr/bin/perl

use strict;
use warnings;

my $v1 = $ARGV[0] // '0.1';
my $v2 = $ARGV[1] // '1.1';
print sprintf("%s cmp %s = %d\n", $v1, $v2, cmp_version($v1, $v2));

sub cmp_version {
    my ($v1, $v2) = @_;

    # Short circuit, good idea?
    return 0 if ($v1 eq $v2);

    my @v1 = split /\./, $v1;
    my @v2 = split /\./, $v2;

    my $max = (scalar(@v1) > scalar(@v2))?(scalar(@v1)):(scalar(@v2));
    my $i = 0;

    my $v1_alpha;
    my $v2_alpha;

    while ($i < $max) {
        $v1[$i] = 0 unless defined $v1[$i];
        $v2[$i] = 0 unless defined $v2[$i];

        if ($v1[$i] =~ /\_/) {
            ($v1[$i], $v1_alpha) = split /\_/, $v1[$i];
        }
        if ($v2[$i] =~ /\_/) {
            ($v2[$i], $v2_alpha) = split /\_/, $v2[$i];
        }

        if (defined $v1[$i] && defined $v2[$i]) {
            if ($v1[$i] > $v2[$i]) {
                return 1;
            }
            elsif ($v1[$i] < $v2[$i]) {
                return -1;
            }
        }

        $i++;
    }

    if (defined $v1_alpha && defined $v2_alpha) {
        if ($v1_alpha > $v2_alpha) {
            return 1;
        }
        elsif ($v1_alpha < $v2_alpha) {
            return -1;
        }
    }
    else {
        if (defined $v1_alpha) {
            return 1;
        }
        if (defined $v2_alpha) {
            return -1;
        }
    }

    return 0;
}