-----------------------------------------
´äº¯ÀÚ°¡ ±âº»ÀûÀ¸·Î Âü°íÇÒ ³»¿ëÀÔ´Ï´Ù.
- ¹èÆ÷ÆÇ(¿É¼Ç) : 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·Î ¹Ù²¨µµ ¾ÈµË´Ï´Ù
¿À·ù°¡ ³ª´Âµ¥ ¾î¶² ¹®Á¦ÀÎÁö ¸ð¸£°Ú½À´Ï´Ù.. Á¶¾ðÁ» ºÎŹµå¸³´Ï´Ù~
|