[Perl] perl file download script use LWP

2013/07/29 16:25 이전자료

웹에접속해서 파일 다운로드 하는 스크립트.

 

#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;

my $url = 'http://192.168.200.104:8080/imsi/test.zip'; (가저올 IP 와 포트와 퍄일이름)
my $file = 'test.zip'; (파일 저장 위치 와 이름)
 
getstore($url, $file);

-------------------------------------------------

이것이 무슨 내용인지 잊어버렸다.