HTML-TokeParser-Simpleã使ã£ã¦HTMLã¿ã°ãé¤å»ãã ããã å·®å ä¸è¦§ ã½ã¼ã¹ æ¤ç´¢ ãã«ã PDF RSS ãã°ã¤ã³ ã«ãã´ãª[Perl] ã»ã¼PODã®ãµã³ãã«ã¾ãã¾ã ãã©ãHTML::TokeParser::Simpleã使ã£ã¦HTMLã®ã¿ã°ãé¤å»ããã use HTML::TokeParser::Simple; print remove_html('htttp:://yusukebe.com./'); sub remove_html{ my($url) = shift @_; my $text; my $p = HTML::TokeParser::Simple->new(url => $url); while(my $token = $p->get_token){ next unless $token->is_text; $text = $text . $to
{{#tags}}- {{label}}
{{/tags}}