| 1 |
#!/usr/bin/perl |
| 2 |
use strict; |
| 3 |
use encoding 'iso-2022-jp'; |
| 4 |
|
| 5 |
our $UA = q<getja12000.pl>; |
| 6 |
our $data_dir_name = q<../.data/>; |
| 7 |
|
| 8 |
## NOTE: 58 keywords based on Yahoo! Category Mobile Version |
| 9 |
## <http://view-mobile.dir.yahoo.co.jp/i/> (2007-06-09) |
| 10 |
## <http://view-mobile.dir.yahoo.co.jp/e/> (2007-06-09) |
| 11 |
## <http://view-mobile.dir.yahoo.co.jp/y/> (2007-06-09) |
| 12 |
## i$B%"%W%j(B and i$B%b!<%7%g%s(B: only in i-Mode version |
| 13 |
## $B3(J8;z(B and ezmovie: in EZWeb version |
| 14 |
## $B3(J8;z(B and S!$B%"%W%j(B: in Yahoo! Keitai version |
| 15 |
## $B3F<o?)IJ!"NAM}(B -> $B?)IJ(B and $BNAM}(B |
| 16 |
## $B4k6H4V<h0z(B -> $B<h0z(B |
| 17 |
## $BN99T%,%$%I(B -> $BN99T(B |
| 18 |
## $B3F<o;qNA(B -> $B;qNA(B |
| 19 |
## $BF|K\$NCOJ}(B and $B@$3&$NCOJ}(B -> $BCOJ}(B |
| 20 |
## $B%(%j%"%,%$%I(B -> $B%(%j%"(B |
| 21 |
our @keyword = qw/ |
| 22 |
$BBT<u(B $BCe%a%m(B $B%a!<%k(B |
| 23 |
i$B%"%W%j(B i$B%b!<%7%g%s(B $B3(J8;z(B ezmovie S!$B%"%W%j(B |
| 24 |
$B7]G=(B $B2;3Z(B $B%"%K%a(B $B@j$$(B $B%f!<%b%"(B |
| 25 |
$B0{?)E9(B $B%l%7%T(B $B%G%6!<%H(B $B%I%j%s%/(B $B?)IJ(B $BNAM}(B |
| 26 |
$B<V(B $B%[%S!<(B $B%Z%C%H(B $B$*$b$A$c(B $B%"%&%H%I%"(B |
| 27 |
$B%7%g%C%T%s%0(B $B8[MQ(B $B%U%!%$%J%s%9(B $B7r9/(B $B<h0z(B |
| 28 |
$BE75$(B TV $B%i%8%*(B $B?7J9(B |
| 29 |
$B=IGq(B $BN99T(B $B4Q8wCO(B $B%Q%9%]!<%H(B |
| 30 |
$B7]=Q(B $B650i(B $B;qNA(B $B;q3J(B $B<+A32J3X(B |
| 31 |
$B=;$^$$(B $BJk$i$7(B $B5-G0F|(B $B%(%A%1%C%H(B $B%U%'%9%F%#%P%k(B |
| 32 |
$BIB5$(B $BIB1!(B $B%@%$%(%C%H(B $BLt(B $B%5%W%j%a%s%H(B |
| 33 |
$BK!N'(B $B@G6b(B $B9T@/(B $B@/<#(B $BCOJ}(B $B%(%j%"(B |
| 34 |
/; |
| 35 |
|
| 36 |
require 'get.pl'; |
| 37 |
|
| 38 |
=head1 AUTHOR |
| 39 |
|
| 40 |
Wakaba <w@suika.fam.cx>. |
| 41 |
|
| 42 |
=head1 LICENSE |
| 43 |
|
| 44 |
Copyright 2007 Wakaba <w@suika.fam.cx> |
| 45 |
|
| 46 |
This library is free software; you can redistribute it |
| 47 |
and/or modify it under the same terms as Perl itself. |
| 48 |
|
| 49 |
=cut |
| 50 |
|
| 51 |
1; |
| 52 |
## $Date: 2007/06/02 12:12:28 $ |
| 53 |
|
Parent Directory
| 
Revision Log