ãã£ã±ãHTMLããã®æ å ±åå¾ã¯Web::Scraperãªè¨³ã§ãããGAEä¸ã§ãã¹ã¯ã¬ã¤ãã³ã°ã§ãããå¬ããã®ã§BeautifulSoupã使ã£ã¦ã¿ãã®ã§ããæ«æããã¡ã¢æ¸ãã§ãã ã¾ãã¯æå§ãã«ä»¥ä¸ã®scraperã§Yahoo Japanã®ããããã¼ã¸ãã ã¿ã¤ãã«ã¨topicsã®URLãåå¾ããperlã¹ã¯ãªããã移æ¤ãã¦ã¿ãäºã«ãã¾ããã #!/usr/bin/perl use strict; use warnings; use LWP::Simple; use Web::Scraper; use YAML; my $content = get("http://yahoo.co.jp"); my $scraper = scraper { process '//title', 'title' => 'TEXT'; process '//a[@href =~ /.+topics.+/]'
{{#tags}}- {{label}}
{{/tags}}