[Perl][CPAN][Web::Scraper][API][JSON][JavaScript]Web::Scraperを使ってみたくてニフティクリップのJSONを作ってみた最近perlの勉強してて、naoyaのはてなダイアリー - Web::ScraperでWeb::Scraperを知り、試しにはてブのAPIを真似してニフティクリップのコメントを吐くJSONを作った。 #!/usr/local/bin/perl -T # # use strict; use warnings; use URI; use Web::Scraper; use JSON::XS; use CGI; use Encode; my $q = new CGI; print $q->header( -type=>'text/plain', -charset=>'UTF-8'); my $path_info = $q->path_info; my $path = $path_info =~ m{^/?(nobracket/)?(http\w?)://?(.*)$}xms ? $2.'://'
![[Perl][CPAN][Web::Scraper][API][JSON][JavaScript]Web::Scraperを使ってみたくてニフティクリップのJSONを作ってみた](https://cdn-ak-scissors.b.st-hatena.com/image/square/5b03bdcbd79d7674b4bd0cfbeeb71f3ffc84b99f/backend=imagemagick;height=288;version=1;width=512/https%3A%2F%2Fanond.hatelabo.jp%2Fimages%2Fog-image-1500.gif)
