Changeset 46
- Timestamp:
- 01/08/06 00:28:02 (3 years ago)
- Files:
-
- mixi/trunk/post_blog_to_mixi.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
mixi/trunk/post_blog_to_mixi.pl
r45 r46 6 6 use Jcode; 7 7 use LWP::Simple; 8 use Data::Dumper;9 8 use XML::RAI; 10 9 use Date::Parse; … … 12 11 my $id = 'xxx@xxxx'; 13 12 my $password = 'xxxx'; 14 my $feed_url = 'http://xxxx /index.rss';13 my $feed_url = 'http://xxxxx/index.rss'; 15 14 16 15 my $rai = XML::RAI->parse_string(get($feed_url)); … … 29 28 30 29 if($time > $last_update){ 31 my $description = "€³€ÎÆüµ€Ï³°Éô¥Ö¥í¥°€«€éŒ«Æ°Åê¹Æ€µ€ì€Æ€€€Þ€¹¡£\n" 32 . "¥Ö¥í¥°¥š¥ó¥È¥ê€Î permalink €Ï " . $item->link . "€Ç€¹¡£\n" 33 . Jcode->new($item->description)->euc; 30 my $description = "€³€ÎÆüµ€ÎÆâÍƀϡ¢³°Éô¥Ö¥í¥°€Ëœñ€«€ì€Æ€€€Þ€¹¡£\n" 31 . $item->link . "\n" 34 32 35 33 my %diary = (
