한국어

tc_backup

use strict;
use warnings;
use LWP 5.64;
my $browser = LWP::UserAgent->new;
my $url = 'http://rain9.com/api/save_replays.php';

for(my $i=1;$i<=300;$i++)
{
    my $response = $browser->post($url,['winner' => '0', 'losses0' => '33', 'point0' => '9999', 'losses1' => '74', 'point1' => '4', 'id0' => '2666379', 'id1' => '1564987', 'seed' => '0415000000000000', 'wins0' => '18', 'wins1' => 42]);

die "$url error: ", $response->status_line
   unless $response->is_success;
  die "Weird content type at $url -- ", $response->content_type
   unless $response->content_type eq 'text/html';

# failed라는 단어가 있으면 failed 출력
  if( $response->content =~ m{failed} ) {
    print "failed!!!\n";
  } else {
    print "secess!!\n";
  }
}
http://www.perl.com/pub/a/2002/08/20/perlandlwp.html?page=2

음.... 급하게 http post 데이터 날릴일이 있어서 검색해서 급조....
그런데 서버가 해외 서버라 그런지 응답 속도가 너무 느려서 300번 도는데 하루종일 걸리길래
perl test.pl & 로 백그라운드로 10개 동시에 돌려버렸음.......
쉽게쉽게 쓰기 좋다.....

분류 :
Programming
태그 :
조회 수 :
10719
등록일 :
2010.06.07
00:53:28 (*.234.246.12)
엮인글 :
http://www.rain9.com/xe/tc_backup/3928/e07/trackback
게시글 주소 :
http://www.rain9.com/xe/tc_backup/3928
List of Articles
번호 제목 글쓴이 날짜 조회 수
220 [iphone] decrypt 도구 file 엔신 2012-06-11 16581
219 udp tunnel 엔신 2012-06-11 11344
218 ubuntu APM(apache2 php mysql) 설치 방법 엔신 2012-06-11 17247
217 [perl] AES 암호화/복호화 엔신 2012-06-11 19976
216 iPhone code sign 엔신 2012-06-11 9870
215 [excel] 최대 행과 열 엔신 2012-06-11 21596
214 [WMI,VBS] IIS FTP 서버 IPSecurity 설정 확인 엔신 2012-06-11 21332
213 [WMI,VBS] WMI를 이용한 vbs 작성시 Windows 2008에서 오류 해결 엔신 2012-06-11 18606
212 Windows [VBS] xml parsing file 엔신 2011-01-11 19649
211 Windows WMI 엔신 2011-01-07 14049
210 이란과 아랍간의 사이가 나쁜 이유가 뭘까요? [2] 엔신 2010-11-28 12876
209 ETC 메모 엔신 2010-10-30 9847
208 Linux 패키지 파일 만들기 엔신 2010-10-30 11667
207 Programming [JSP] getParameter() 사용시 파라미터가 있고 없고 엔신 2010-07-08 13621
206 DBMS Oracle 요약 엔신 2010-07-08 20501
205 DBMS PL-SQL 엔신 2010-07-08 7339
204 Programming [JSP] JSP 요약 엔신 2010-07-07 31677
203 Programming [JSP] JDBC를 이용한 데이터베이스 활용법 엔신 2010-07-07 10629
» Programming perl http post 엔신 2010-06-07 10719
201 Ambiguous 인터넷 엔지니어링 태스크 포스 file 엔신 2010-04-27 11483