Re: Find common prefix from a list of strings (tye)

sub FindCommonPrefix {
    my $model= pop @_;
    my $len= length($model);
    for my $item (  @_  ) {
        my $dif= $model ^ substr($item,0,$len);
        $len= length( ( $dif =~ /^(\0+)/ )[0] );
        substr( $model, $len )= "";
    }
    return $model;
}
[download]

- tye

Comment on Re: Find common prefix from a list of strings (tye) Download Code

Replies are listed 'Best First'.
Re: Re: Find common prefix from a list of strings (tye) by sauoq (Abbot) on Jul 14, 2003 at 20:41 UTC
Nice solution; ++tye. Changing `$len= length( ( $dif =~ /^(\0+)/ )[0] );` [download] to `$len= length( ( $dif =~ /^(\0+)/ )[0] \|\| '' );` [download] will make it run quiet under warnings when the common prefix is the empty string. -sauoq "My two cents aren't worth a dime.";	[reply] [d/l] [select]
Re^3: Find common prefix from a list of strings (*) by tye (Sage) on Jul 14, 2003 at 20:48 UTC
Oops. That + should have been a *. Thanks for the hint. (: - tye	[reply]