CnUnix

[알림판목록 I] [알림판목록 II] [글목록][이 전][다 음]
[ CnUnix ] in KIDS
글 쓴 이(By): wang (Chip쟁이)
날 짜 (Date): 2002년 6월  4일 화요일 오후 07시 18분 50초
제 목(Title): Re: [Q] Perl 로 웹에 파일 올리기...



먼저 HTTP계열의 펄 모듈들을 미리 깔아놓았다고 가정하고,,

#!/opt/gnu/bin/perl -w

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

$ua = LWP::UserAgent->new();
my $req = POST 'http://blah.blah.ac.kr/2insert.php',
                [ name => 'CCCCCC',second => 'Mail',mail => 'blah@blah.ac.kr' ];
$content = $ua->request($req)->as_string;

위와 같이 하시면 파일 첨가가 없는 경우이고요.

#!/opt/gnu/bin/perl -w
# web post test program with file upload

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

$ua = LWP::UserAgent->new();
my $req = POST 'http://blah.blah.ac.kr/CrazyWWWBoard.cgi',
            Content_Type => 'form-data',
            Content =>
            [ db => 'LoveDog',
              mode => 'writesave',
              num => '0',
              page => '1',
              ftype => '6',
              fval => '',
              pName => 'XXX',
              pEmail => '',
              pSubject => 'testtest sorry',
              pAttachFile => ['blah.gif'],
              pPassword => '1234',
              pText => 'blahblah'];
$content = $ua->request($req)->as_string;

이 미친웹보드에다 그림파일을 자동으로 올리는 것을 테스트해본 것입니다.
[알림판목록 I] [알림판목록 II] [글 목록][이 전][다 음]
키 즈 는 열 린 사 람 들 의 모 임 입 니 다.