短く書ける気がする jQuery ならぬ pQuery

pQuery をちょっと使ってみた。全然使い方違うと思うけど、短く書けるような気がします。以下は Google への ping 送信でてっとり早く件名が取得したかったというだけなのだがw

#!/usr/bin/perl
# $Id: $
use strict;
use warnings;
use utf8;
use Encode;
use LWP::Simple;
use pQuery;

# =========================================================================== #
# Ping 設定
# =========================================================================== #
my %google_ping_params = (
	uri		=> 'http://blogsearch.google.com/ping',
	rss		=> 'https://blog.neoflow.jp/?feed=rss2',
	page	=> pQuery( 'https://blog.neoflow.jp/' ),
	contents=> '',
);

# --------------------------------------------------------------------------- #
# Google
$google_ping_params{ping} = URI->new( $google_ping_params{uri} );
$google_ping_params{ping}->query_form(
	name		=> encode_utf8( $google_ping_params{page}->find('title')->text ),
	url		=> 'https://blog.neoflow.jp/',
	changesURL	=> $google_ping_params{rss},
);

$google_ping_params{contents} = get( $google_ping_params{ping} );
print q{My RSS is here Google-san ! -> }.$google_ping_params{rss}."\n";
print q{Google says "}.$google_ping_params{contents}.q{"}."\n";
print $google_ping_params{page}->find('title')->text;


__END__
スポンサーリンク