#!/usr/bin/env perl

# Test for alternating case regex

use strict;
use warnings;

# Generate all lower/upper combos up to 5 characters with the characters A-E
my @test_strings = qw(
    a A
    ab aB Ab AB
    abc aBc Abc ABc abC aBC AbC ABC
    abcd aBcd Abcd ABcd abCd aBCd AbCd ABCd
    abcD aBcD AbcD ABcD abCD aBCD AbCD ABCD
    abcde aBcde Abcde ABcde abCde aBCde AbCde ABCde
    abcDe aBcDe AbcDe ABcDe abCDe aBCDe AbCDe ABCDe
    abcdE aBcdE AbcdE ABcdE abCdE aBCdE AbCdE ABCdE
    abcDE aBcDE AbcDE ABcDE abCDE aBCDE AbCDE ABCDE
);

# test all strings, save them in a hash for sorting later
my %results;
for my $test (@test_strings) {
    my $result = $test =~ m/^([a-z]([A-Z][a-z])*[A-Z]?|[A-Z]([a-z][A-Z])*[a-z]?)$/;
    $results{$test} = $result;
}

# print the results, sorted by result
for my $key (sort by_result_or_length_or_alpha keys %results) {
    printf "%10s  %d\n", $key, $results{$key};
}

exit;

sub by_result_or_length_or_alpha {
    ($results{$b} <=> $results{$a})
    or
    (length($a) <=> length($b))
    or
    ($b cmp $a)
}