Re: Find common prefix from a list of strings

[Zaxo]

Wanting the common prefix makes for a nifty shortcut. Sort the strings alphabetically and you only need to compare the first and last of them,

sub common_prefix {
    my ($first, $last) = (sort @_)[0,-1];
    my $i = 0;
    while (substr($first, $i, 1) eq substr($last, $i, 1)) { $i++}
    substr $first, 0, $i;
}

After Compline,
Zaxo