''그래도 우리는 게임을 만든다' 다운로더'에 해당되는 글 1건
- 2008.10.31 syntax highting 테스트 4
2008. 10. 31. 12:55
#!/usr/bin/perl
use warnings;
use strict;
use LWP::Simple;
use threads ('yield',
'stack_size' => 64*4096,
'exit' => 'threads_only',
'stringify');
my $thread;
my $episode = 0;
while (1)
{
$episode++;
my $fileTitle = "0" x (3-length($episode))."$episode";
next if -e "$fileTitle.jpg";
my $contents = get("http://www.gamtoon.com/NEW/TF/ctn99/view.gam?num=$episode");
if ($contents ne "")
{
if ($contents =~ m/<img src="down\/(.*).\w\w\w"><\/center>/g)
{
print "now downloding: $episode\n";
my $jpg = get("http://www.gamtoon.com/NEW/TF/ctn99/down/$1.jpg");
open my $out, '>', "$fileTitle.jpg";
binmode $out;
print $out $jpg;
}
}
else
{
last;
}
}
amorette님이 소개해주신 syntaxhighting 스크립트.. 괜찮아보여서 스킨에 붙이고 잠시 테스트..를 하려고 했는데.. (http://code.google.com/p/syntaxhighlighter/)
지원 언어에 perl이 없어서 좌절.. 하지만 역시나 검색해보니 누군가 펄용 스크립트도 만들어놨군요 ;) (http://code.google.com/p/syntaxhighlighter/issues/detail?id=113&q=perl)
이히.. 잘되는구나
