2012 미스코리아 수영복사진 긁기

misskorea.pl

#!/usr/bin/env perl
use Encode;
use LWP::Simple;

my $c = get('http://eyenews.hankooki.com/mm_theme_view.php?gisa_id=00119568&cate_code=0402');
my %imgs = ( $c =~ m{content:"(.*?)<br>.*?(http://photo.hankooki.com/gisaphoto/inews/2012/06/29/0629.*?\.jpg)"}g );

foreach my $name ( keys %imgs ) {
    my $new_name = Encode::encode('cp949', $name); # 윈도우 일때
    #my $new_name = Encode::encode('utf8', $name); # 리눅스 utf8 환경일때 
    $new_name =~ s/[ \/]/_/g;
    print "get $new_name   $imgs{$name}\n";
    getstore($imgs{$name}, "$new_name.jpg");
}