[»êÀÌ]´ÔÀÌ ³²±â½Å ±Û:
>
>[Ãʺ¸¼]´ÔÀÌ ³²±â½Å ±Û:
>
>>[Ãʺ¸¼]´ÔÀÌ ³²±â½Å ±Û:
>>
>>>-----------------------------------------
>>>´äº¯ÀÚ°¡ ±âº»ÀûÀ¸·Î Âü°íÇÒ ³»¿ëÀÔ´Ï´Ù.
>>>- ¹èÆ÷ÆÇ(¿É¼Ç) : cent os 5.5
>>>- Ä¿³Î¹öÀü(¿É¼Ç) :
>>>- µ¥¸ó¹öÀü(¿¹:apache 1.3.27) :
>>>- µ¥¸ó¼³Ä¡À¯Çü(RPM/ÄÄÆÄÀÏ/±âŸ)
:
>>>-----------------------------------------
>>>
>>>
>>>¾È³çÇϼ¼¿ä ´Ù¸§À̾ƴϿÀ¶ó perlÀÇ \\\:Mechanize ÀÇ ±â´ÉÀ» ¾²±â À§ÇØ
>>>
>>>cpan ->
>>>install \\\::Mechanize ¸¦ ÀÔ·ÂÇÏ¿© ¸ðµç ¿É¼ÇÀ» ±âº»°ªÀ¸·Î ÁÖ°í
¼³Ä¡Çß½À´Ï´Ù
>>>
>>>
>>>perl ÀÇ ³»¿ëÁß
>>>use strict;
>>>use warnings;
>>>use WWW::Mechanize;
>>>
>>>my $id = 'your_naver_id';
>>>my $passwd = 'your_naver_password';
>>>my $reply = 'Check! :)';
>>>chomp($reply);
>>>
>>>my $url = 'http://nid.naver.com/nidlogin.login';
>>>my $mech = WWW::Mechanize->new();
>>>$mech->get($url);
>>>my $res = $mech->submit_form(
>>> form_name => 'frmNIDLogin',
>>> fields => {
>>> id => $id,
>>> pw => $passwd
>>> },
>>>);
>>>
>>>my $base_url = 'http://cafe.naver.com/AttendanceView.nhn';
>>>my @check_urls = (
>>> "$base_url?search.clubid=18062050&search.menuid=6", #
>>> "$base_url?search.clubid=10586415&search.menuid=108", #
>>> );
>>>
>>>for my $check_url (@check_urls){
>>> $mech->get($check_url);
>>> $mech->field('content', $reply);
>>> $mech->submit();
>>>
>>>}
>>>
>>>ÀÌ·¸°Ô Â¥°í.
>>>
>>>perl test.pl ·Î ½ÇÇàÇϸé
>>>[root@localhost ~]# perl test.pl
>>>Can't locate WWW/Mechanize.pm in @INC (@INC contains:
/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl
/usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at test.pl line
3.
>>>BEGIN failed--compilation aborted at test.pl line 3.
>>>
>>>
>>>cpan ¿¡ ´Ù½Ã µé¾î°¡
>>>cpan> install \\\::Mechanize
>>>CPAN: Storable loaded ok
>>>Going to read /root/.cpan/Metadata
>>> Database was generated on Tue, 05 Jul 2011 13:42:38 GMT
>>>Warning: Cannot install \::Mechanize, don't know what it is.
>>>Try the command
>>>
>>> i /\::Mechanize/
>>>
>>>to find objects with matching identifiers.
>>>
>>>ÀÔ·ÂÇϸé ÀÌ·¸°Ô ¶ß´Âµ¥ \::Mechanize·Î ¹Ù²¨µµ ¾ÈµË´Ï´Ù
>>>
>>> ¿À·ù°¡ ³ª´Âµ¥ ¾î¶² ¹®Á¦ÀÎÁö ¸ð¸£°Ú½À´Ï´Ù.. Á¶¾ðÁ» ºÎŹµå¸³´Ï´Ù~
>>
>>========================================
>>
>>
>>Çä ¾ËÆĺªÀε¥ WWW ¸¦ \\\·Î Ãļ ±×·¨³»¿ä ¤Ð.¤Ð;; ÀνºÅç µË´Ï´Ù
>>
>>±Ùµ¥ ¼³Ä¡ÈÄ
>>
>>Test Summary Report
>>-------------------
>>t/local/click_button.t (Wstat: 0 Tests: 19 Failed: 0)
>> TODO passed: 15-17, 19
>>t/local/nonascii.t (Wstat: 65280 Tests: 4 Failed: 0)
>> Non-zero exit status: 255
>> Parse errors: Bad plan. You planned 5 tests but ran 4.
>>Files=54, Tests=589, 33 wallclock secs ( 0.24 usr 0.07 sys + 9.92 cusr 0.77
csys = 11.00 CPU)
>>Result: FAIL
>>Failed 1/54 test programs. 0/589 subtests failed.
>>make: *** [test_dynamic] Error 255
>> /usr/bin/make test -- NOT OK
>>Running make install
>> make test had returned bad status, won't install without force
>>
>>cpan>
>>
>>¿¡·¯°¡.. ¶ß´Âµ¥
>>
>>±×¸®°í ¼³Ä¡ÈÄ ´Ù½Ã perl test.pl À» ½ÇÇàÇغ¸¸é ¸¶Âù°¡Áö·Î
>>[root@localhost ~]# perl test2.pl
>>Can't locate WWW/Mechanize.pm in @INC (@INC contains:
/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl
/usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at test2.pl
line 3.
>>BEGIN failed--compilation aborted at test2.pl line 3.
>>ÀÌ·± ¿À·ù°¡ ³³´Ï´Ù.
>>
>>
>>
>>[root@localhost ~]# find / -name *Mechanize*
>>/root/.cpan/sources/authors/id/J/JE/JESSE/WWW-Mechanize-1.68.tar.gz
>>/root/.cpan/build/WWW-Mechanize-1.68
>>/root/.cpan/build/WWW-Mechanize-1.68/lib/WWW/Mechanize
>>/root/.cpan/build/WWW-Mechanize-1.68/lib/WWW/Mechanize.pm
>>/root/.cpan/build/WWW-Mechanize-1.68/blib/man3/WWW::Mechanize::Image.3pm
>>/root/.cpan/build/WWW-Mechanize-1.68/blib/man3/WWW::Mechanize::FAQ.3pm
>>/root/.cpan/build/WWW-Mechanize-1.68/blib/man3/WWW::Mechanize.3pm
>>/root/.cpan/build/WWW-Mechanize-1.68/blib/man3/WWW::Mechanize::Link.3pm
>>/root/.cpan/build/WWW-Mechanize-1.68/blib/man3/WWW::Mechanize::Examples.3pm
>>/root/.cpan/build/WWW-Mechanize-1.68/blib/man3/WWW::Mechanize::Cookbook.3pm
>>/root/.cpan/build/WWW-Mechanize-1.68/blib/lib/WWW/Mechanize
>>/root/.cpan/build/WWW-Mechanize-1.68/blib/lib/WWW/Mechanize.pm
>>/root/.cpan/build/WWW-Mechanize-1.68/blib/lib/auto/WWW/Mechanize
>>/root/.cpan/build/WWW-Mechanize-1.68/blib/arch/auto/WWW/Mechanize
>
>========================================
>
>cpan> install WWW::Mechanize
>
>ÀÌ·¸°Ô ´Ù½ÃÇѹø ½ÃµµÇØ º¸½Ã°í ¾ÈµÇ¸é,
>
>http://search.cpan.org/CPAN/authors/id/J/JE/JESSE/WWW-Mechanize-1.68
.tar.gz
>
>ÀÌÆÄÀÏÀ» ´Ù¿î·ÎµåÇÏ°í
>
>cpan> install WWW-Mechanize-1.68.tar.gz
>
>ÀÌ·¸°Ô ¼³Ä¡Çغ¸¼¼¿ä.
>
>
>¿©±â±îÁöµµ ¾ÈµÈ´Ù¸é, WWW-Mechanize-1.68.tar.gz ÆÄÀÏÀ» ¾ÐÃàÇ®°í ÇØ´ç µð·ºÅ丮·Î
À̵¿ÇÑ ´ÙÀ½¿¡,
>¿ª½Ã root ±ÇÇÑÀ¸·Î
>
>shell> perl Makefile.PL
>shell> make
>shell> make test
>shell> make install
>shell> make clean
>
>ÀÌ·¸°Ô °Á¦·Î ¼³Ä¡Çغ¸¼¼¿ä.
========================================
yum install perl-WWW-Mechanize
À¸·ç ¼³Ä¡됬¾î¿ä À³ÀÌ ÀÖ¾ú´Âµ¥ ¸ô¶ú³×¿ä!!
»êÀÌ´Ô ÃÖ°í¿¡¿ä ¸®´ª½º´Â ¸ð¸£½Ã´Â°Ô ¾øÀ¸½Å °Í °°¾Æ¿ä
°¨»çÇÕ´Ï´Ù ~
|