以åç§ã¯æ£è¦è¡¨ç¾ã使ã£ã¦ãããã URI::Find ã¨ããã«ããã¿ãªã®ã¢ã¸ã¥ã¼ã«ãçºè¦ã以æ¥ãã¡ãã«ç§»è¡ã 使ç¨ããã¢ã¸ã¥ã¼ã« use URI::Find; #!/usr/bin/perl sub urlToLink { use URI::Find; my $text = shift; my $finder = URI::Find->new( sub { my($uri, $orig_uri) = @_; return qq|<a href="$uri">$orig_uri</a>|; }); $finder->find(Â¥$text); return $text; } 1; åèãªã³ã¯ï¼ Perl ã¡ã¢ - URI(URL) ã®æ£è¦è¡¨ç¾
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}