10/04/16 00:36:20
>>207
use URI;
sub omiturl {
my $uri = URI->new(shift);
my $maxlen = shift;
my $repl_q = quotemeta(my $repl = "...");
my $path = $uri->path;
until (length "$uri" <= $maxlen) {
$path =~ s,\A/(?:$repl_q/)?[^/]+,/$repl, or last;
$uri->path($path);
}
return "$uri";
}
手っ取り早くURI使ってるから$replに半角スペースとか使うと%20にされちゃうんで、
そのへん気に入らなかったら適当に直してくれ