'hack/perl'에 해당되는 글 2건

  1. 2008.10.31 syntax highting 테스트 4
  2. 2008.10.09 네이버 웹툰을 다운받아 보자. 1
2008. 10. 31. 12:55

syntax highting 테스트

hack/perl
#!/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)

이히.. 잘되는구나

Posted by envi
2008. 10. 9. 21:18

네이버 웹툰을 다운받아 보자.

hack/perl
...회사에서 IRC 눈팅을 하다가 네이버 웹툰 다운로더에 대한 이야기가 나오길래.. 대충 한번 만들어봤습니다.

월화수목금에 나오는 만화들을 대상으로 했구요. 스크립트 실행시 각 만화가 디렉토리 별로 분류되어 다운로드가 되게 만들었습니다.

근데 C 에 익숙해지니 뭔 언어를 해도 C 코드처럼 나오네요 T.T.. 자주 만들고 자주 소스를 보면서 Perl스러운 문법을 구사할 수 있도록 해야겠습니다.. ~_~

추가해야 할 것 :
1. 디렉토리 이름 Unicode 변환
2. 여러개로 나뉜 그림파일 하나로 합치기
3. 다운받다가 중간에 빼먹는 것들이 발생.. (왜 그러지.. thread 문제인듯한데..)


네이버 웹툰 다운로더 소스보기


Posted by envi

티스토리툴바