#
# perl_reget_bijin_03_3__etc05.PL
# 美人時計の画像を取得するスクリプト
# wroted shift-jis
# ---------------------------------------------------------
use LWP::Simple;
# ---------------------------------------------------------
$begin_time   = "0000";                     # ０時００分
$end_time     = "0020";                     # ０時２０分  ２４時間取得なら、２３５９（２３時５９分）とする
&area;      print join("\n",@area);<stdin>; # 美人時計のエリアを呼び出す
foreach $area (@area) {                     # 全エリアの画像を取得
my  @jpeg_org = ();
my  %mark     = ();
my  $url_org  = 'http://www.bijint.com/assets/pict/' . $area . '/pc/';  # エリアごとの[url]を作成
my  $out_drc  = "_bijin_time_" . $area;                                 # エリアごとのディレクトリを作成
    mkdir($out_drc,"0644");
    @jpeg_org = ($begin_time .. $end_time);                             # 取得時間をマーキングする
    foreach $jpg_org (@jpeg_org) {$mark{"$jpg_org\.jpg"}++;}
    for $n(0 .. 9) {                                                    # １回だと取りこぼすので、１０回実行
      print "n[$n]\n";
      foreach $key (sort keys %mark) {
        if($mark{$key} == 1) {
          print "    key[$key]:";
          $name2    = $key;
          $url      = $url_org . $name2;
          $content  =  get($url);
          if ($content eq '') {print "\n";next}
          print "url[$url]\n";                                          # 取得出来たものは、表示する
          $mark{$key}++;
          open(OU,"> $out_drc/$key");
          binmode(OU);
          print OU $content;
          close(OU);
          sleep(1);                                                     # １秒のウエイトを掛ける
        }
      }
      print "areas[$area]_end\n";
    }
}
print "end";<stdin>;
# sub -----------------------------------------------------
sub area {
  @area   = qw (
    binan-kagoshima
    chiba
    fukushima
    hiroshima
    hokkaido
    iwate
    iwate
    jp
    kagawa
    kagoshima
    kanazawa
    kids
    miyazaki
    model
    mote1
    nagoya
    nagoya
    nara
    okayama
    okinawa
    panahome-hyogo/
    saitama
    sendai
    sendai
    shizuoka
  );
}