NAME

WWW::Google::News::TW - Access to Google's Taiwan News Service (Not Usenet)

SYNOPSIS

  use WWW::Google::News::TW qw(get_news);
  my $results = get_news();
  
  my $results = get_news_for_topic('é‡‘ç‰Œ');

DESCRIPTION

This module provides a couple of methods to scrape results from Google Taiwan News, returning a data structure similar to the following (which happens to be suitable to feeding into XML::RSS).

  {
          'ç¤¾æœƒ' => [
                        {
                          'update_time' => '11å°�æ™‚å‰�',
                          'source' => 'è�¯å�ˆæ–°è�žç¶²-',
                          'summary' => 'ä¸�å°‘æ°‘çœ¾å�‘å…¬å¹³æœƒæª¢èˆ‰ï¼Œè³ªç–‘ä¸è�¯é›»ä¿¡æ¯�æœˆå¸³å–®æ”¶å�–äº”å…ƒã€Œå±‹å…§é…�ç·šæœˆç§Ÿè²»ã€�çš„å�ˆç�†æ€§ã€‚å…¬å¹³æœƒæ˜¨å¤©æ±ºè°ï¼Œè¦�æ±‚ä¸è�¯é›»ä¿¡è¦�è®“æ¨“é«˜å››æ¨“ä»¥ä¸‹çš„ç”¨æˆ¶ï¼Œå…�æ”¶äº”å…ƒæœˆç§Ÿè²»ï¼Œä¸¦æŠŠè¨Šæ�¯æ�éœ²åœ¨é›»ä¿¡å¸³å–® ',
                          'url' => 'http://udn.com/NEWS/LIFE/LIFS2/2233728.shtml',
                          'headline' => 'ä¸è�¯é›»é…�ç·šè²»å››æ¨“ä»¥ä¸‹å»ºç‰©å…�æ”¶'
                        },
                      ],
          'å¨›æ¨‚' => [
                        {
                          'update_time' => '2å°�æ™‚å‰�',
                          'source' => 'ç€Ÿæ¹˜æ™¨å ±-',
                          'summary' => 'æœ¬å ±ç¶œå�ˆæ¶ˆæ�¯å�°ç�£é‡‘é¦¬å½±å±•åŸ·å§”æœƒæ˜¨æ—¥å…¬ä½ˆæœ¬å¹´åº¦æ´»å‹•æµ·å ±ï¼Œå…©æ¬¾ä¸‰å¹…éƒ½ä»¥å½©è™¹ç‚ºè¦–è¦ºä¸»é¡Œï¼Œè±¡å¾µé›»å½±çš„å…‰å½±èˆ‡å¤¢æƒ³ï¼Œå¼·èª¿å‰µä½œè€…é›»å½±å¤¢çš„å¯¦ç�¾ï¼Œä¹Ÿæ˜¯è§€çœ¾é«”é©—é›»å½±å¤¢çš„é�Žç¨‹ ',
                          'url' => 'http://220.168.28.52:828/xxcb.rednet.com.cn/Articles/04/09/10/544900.HTM',
                          'headline' => '2004é‡‘é¦¬å½±å±•æµ·å ±å‡ºçˆ�'
                        },
   }

METHODS

get_news(): Scrapes <http://news.google.com.tw/news?ned=ttw> and returns a reference to a hash keyed on News Section, which points to an array of hashes keyed on URL and Headline.
get_news_for_topic( $topic ): Queries <http://news.google.com.tw/news?ned=tw> for results on a particular topic, and returns a pointer to an array of hashes containing result data.

TODO

* I haven't think about it yet....

AUTHORS

Cheng-Lung Sung <clsung@tw.freebsd.org>

KUDOS

Greg McCarroll <greg@mccarroll.demon.co.uk>, Bowen Dwelle <bowen@dwelle.org> for the basis of this module

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See <http://www.perl.com/perl/misc/Artistic.html>

POD ERRORS

Hey! The above document had some coding errors, which are explained below:

Around line 173:: Non-ASCII character seen before =encoding in 'get_news_for_topic('é‡‘ç‰Œ');'. Assuming CP1252
Around line 214:: You forgot a '=back' before '=head1'