사용자 길잡이
이 모듈을 사용하기위해 스크립트의 첫줄에 다음과 같은 행을 추가해야 한다:
use Win32::Internet;
그리고 다음 명령으로 인터넷 접속을 열어야 한다:
$Connection = new Win32::Internet();
이 것은 이 모듈의 임의의 함수를 사용하기위해 필요하다. 이 것으로 펄내에 Internet 개체가 생성되며 이 개체로 나중에 설명할
인터넷 함수를 동작시킬 수 있다.
사용할 수 있는 개체는 다음과 같다:
펄의 관례에따라 이 확장에서도 같은 것을 하는 서로 다른 방법이 존재한다; 사실 Win32 인터넷 함수를 구현하는 다른 수준의 함수가 존재한다. 몇몇 루틴은 하번의 호출로 복잡한 작업을 수행하기위해 여러 Win32 API 함수를 사용한다; 물론 이들이 사용하기 간단하지만 기능은 다소 떨어진다.
단지 API 함수를 구현한 다른 함수가 존재하며 따라서 이들이 가지고 있는 모든 강력한 기능을 사용할 수 있다. 그러나 몇몇 추가적인 프로그래밍 단계를 더 요구한다.
예로서 HTTP, FTP, GOPHER의 URL을 가져오는데 사용할 수 있는
FetchURL이라는 함수는 다음과 같은 간단한 명령으로 가능하다:
$INET = new Win32::Internet();
$file = $INET->FetchURL("http://www.yahoo.com");
다음 방법을 사용해서도 동일한 결과를 얻을 수 있다(이것은 사실 FetchURL에의해 수행된 것이다):
$INET = new Win32::Internet();
$URL = $INET->OpenURL("http://www.yahoo.com");
$file = $URL->ReadFile();
$URL->Close();
또한 완전한 HTTP 세션을 열 수도 있다:
$INET = new Win32::Internet();
$HTTP = $INET->HTTP("www.yahoo.com", "anonymous", "[email protected]");
($statuscode, $headers, $file) = $HTTP->Request("/");
$HTTP->Close();
마지막으로 HTTP 요청을 하기위해 사용될 수도 있다:
$INET = new Win32::Internet();
$HTTP = $INET->HTTP("www.yahoo.com", "anonymous", "[email protected]");
$HTTP->OpenRequest($REQ, "/");
$REQ->AddHeader("If-Modified-Since: Saturday, 16-Nov-96 15:58:50 GMT");
$REQ->SendRequest();
$statuscode = $REQ->QueryInfo("",HTTP_QUERY_STATUS_CODE);
$lastmodified = $REQ->QueryInfo("Last-Modified");
$file = $REQ->ReadEntireFile();
$REQ->Close();
$HTTP->Close();
완전한 FTP 세션을 열고, 제어하기위해 다음과 같이 입력한다:
$Connection->FTP($Session, "ftp://ftp.activeware.com",
"anonymous", "[email protected]");
이 것으로 이 패키지에의해 제공되는
FTP 함수를 적용할 수 있는 펄 개체가 생성된다:
$Session->Cd("/ntperl/perl5.001m/CurrentBuild");
$Session->Ascii();
$Session->Get("110-i86.zip");
$Session->Close();
보다 복잡한 예는 이 패키지에 포함되어 있는 TEST.PL을 참조하기 바란다.
(