Saturday, May 16, 2009

perl로 만드는 win util / wget.pl

■ wget.pl
#!/usr/bin/perl -w
use LWP::Simple;
@ARGV == 2
? (getstore($ARGV[0], $ARGV[1]) || die "Cant Download File: $!\n" )
: print "wget.pl to get html";
print @! unless @!;

사용방법은 다음과 같습니다.

C:\>wget.pl http://www.wowkorea.jp/images/logo_wowkorea.gif wowkorea.gif

■ 그러나 저는 wget.pl을 사용하지 않습니다.

리눅스계열 터미널 작업하다가 갑자기 윈도우즈 콘솔에
서 "ls" 라고 명령을 내린 경험이 있으세요?
닷넷 컴파일러 "csc.exe"가 어디에 있는지, "dir /s"로 찾아본 경험이 있으세요?

저는 리눅스 명령어를 win32로 컴파일한 유틸리티를 설치하여 사용하고 있습니다.
cygwin도 사용한 적이 있으나, 자주 사용하는 명령어만 설치하면 되므로 다음의 페이지에서 자주 사용하는 적당한 유틸리티를 다운받아 사용하고 있습니다.

http://gnuwin32.sourceforge.net/packages.html

저는 수동설치를 하지 않고, 자동설치로, 설치되는 곳은 c:\usr\local 로 해서 사용하고 있습니다.
그리고 Path에 c:\usr\local\bin를 등록해 두면 편리합니다.

그러면
C:\usr\local>ls -la 와 같은 명령을 내릴 수 있습니다.


우선은 CoreUtils 과 which, grep(egrep은 grep -E로 사용합니다.) 정도는 설치해 사용하고 있습니다.
그외에도 win32용 vim (지금은 거의 잘 사용하지 않습니다. emeditor를 사용합니다.), apache, tomcat, perl, python, mysql,등은 이쪽 디렉토리에 설치해 사용하고 있습니다.

더 좋은 방법, 정보공유 하시고 싶은 분은 가벼운 마음으로 코멘트 부탁합니다.
m(__)m

No comments: