### URL を短くして表示 # usage: {{shorten_url(URL, LEN_MAX)}} # Ex.: {{shorten_url('http://example.com/abc/def/00101033/ # 0123456/aaaaaaaaaaaa/aaaaaaaaaaaa/index.html')}} sub shorten_url { my ($url, $max) = @_; $max = 60 if not defined $max; $url =~ s/\s+//gsm; my $urlstr = $url; $urlstr =~ s/^(.{$max}).+$/$1 .../; return qq(<a href="$url">$urlstr</a>); }
こうなります:参考:{{shorten_url('http://example.com/0123456789/0123456789/ 0123456789/0123456789/0123456789/0123456789-a.html',54)}} {{shorten_url('http://example.com/0123456789/0123456789/ 0123456789/0123456789/0123456789/0123456789-b.html')}}
参考:http://example.com/0123456789/0123456789/0123456789/01 ...
http://example.com/0123456789/0123456789/0123456789/01234567 ...
第22回人間力オープンセミナー
「日本語力を鍛えて、伝える」
明治大学教授 齋藤 孝(さいとう たかし) 氏
平成16年1月13日(火)18時45分〜 汐留シティセンター