mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
561 B
33 lines
561 B
;# Usage:
|
|
;# %foo = ();
|
|
;# &abbrev(*foo,LIST);
|
|
;# ...
|
|
;# $long = $foo{$short};
|
|
|
|
package abbrev;
|
|
|
|
sub main'abbrev {
|
|
local(*domain) = @_;
|
|
shift(@_);
|
|
@cmp = @_;
|
|
local($[) = 0;
|
|
foreach $name (@_) {
|
|
@extra = split(//,$name);
|
|
$abbrev = shift(@extra);
|
|
$len = 1;
|
|
foreach $cmp (@cmp) {
|
|
next if $cmp eq $name;
|
|
while (@extra && substr($cmp,0,$len) eq $abbrev) {
|
|
$abbrev .= shift(@extra);
|
|
++$len;
|
|
}
|
|
}
|
|
$domain{$abbrev} = $name;
|
|
while ($#extra >= 0) {
|
|
$abbrev .= shift(@extra);
|
|
$domain{$abbrev} = $name;
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|