perl LWP::UserAgent 모듈을 이용해서 http get 하기

perl 로 스크립트를 짜다 보면 http get 을 할 일이 종종 있다. socket 으로 구현하기도 하고 HTTP::Tiny 를 사용하기도 하고 LWP::UserAgent 를 사용하기도 하는데 여기서는 간단한 LWP::UserAgent 사용 예를 들어 본다. (HTTP::Tiny 를 사용하려고 했었는데 599 Internal Exception 이 자꾸 발생해서 LWP::UserAgent 를 사용 했다.)

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $response = $ua->get("http://127.0.0.1:8080/index.php");

print $response->decoded_content;

좀 더 자세한 사용법은 아래 링크를 참고 한다.

https://metacpan.org/pod/LWP::UserAgent

timeout 이나 agent 설정 등 여러 기능들을 가지고 있다.

덤.

좀 오래된 리눅스 머신에는 GET 이라는 커맨드가 있는 경우가 있는데 LWP::UserAgent 를 사용하고 있다. GET 이 없는 경우 lwp-request 를 사용 할 수 있다. 둘 다 같은 커맨드라고 보면 된다.