■ 드라이버 다운로드 경로 : http://support.creative.com/downloads/download.aspx?nDownloadId=1843
■ 대체 다운로드 경로(이 블로그) : [첨부 파일 링크가 있습니다.] (위 드라이버 다운로드 경로에서 다운로드 받을 수 없는 경우에만)

(주) 많은 종류의 악성 코드 퇴치 프로그램에서 이 프로그램이 생성하는 파일(*.tmp)을 악성코드로 진단할 수 있습니다. 사실 이 프로그램 뿐만 아니라, 현존하는 거의 대부분의 BAT TO EXE 변환기는 (프로그램 그 자체이건, 그 프로그램의 생성물이건) 대다수의 악성 코드 퇴치 프로그램에 의해 악성 코드로 진단되고 있습니다.

필자가 생각하기에는, 실제로 그 프로그램이 악성코드일 수도 있지만, 많은 경우 그 변환기를 이용하여 제작된 악성 코드가 존재하기 때문에, 악성 코드 퇴치 프로그램이 이 악성 코드를 진단하는 과정에서 동일하거나 유사한 코드를 가지고 있는 변환기 그 자체 또는 그 변환기를 이용하여 만들어진 다른 실행 파일들을 아울러 악성 코드로 진단하는 것이 아닌가 합니다.

실제로, 과거에는 BAT2EXEC 라는 툴을 이용하여 파괴적인 동작을 하는 배치 파일을 실행 파일(.COM 파일)로 변환한 형태의 트로이 목마 프로그램이 다수 존재하였던 시기도 있었습니다. 요즘은 그 자체가 파괴적인 행동을 하기보다는, 이들 배치 파일을 이용하여 트로이 목마 프로그램 등 악성 코드를 시스템에 설치하는 종류의 악성 코드가 이들 툴을 이용하여 제작될 것으로 생각됩니다.

이 프로그램도 많은 악성 코드 퇴치 프로그램이 중간 생성물(*.tmp)을 악성 코드로 진단합니다. 특히 외산 악성 코드 퇴치 프로그램인 BitDefender 엔진에서도 이를 악성코드로 진단하고 있기 때문에, 국내에서 많이 사용되고 있는 알약 등의 악성 코드 퇴치 프로그램에서도 (이들 프로그램이 BitDefender 엔진을 사용하는 관계로) 이 파일을 악성 코드로 진단할 것으로 예상됩니다. V3의 경우, 이 중간 생성물을 Dropper/Win32.Mudrop 으로 진단하여 필자가 직접 안철수연구소에 문의하였으며, 악성코드라고 판단하기 애매한 점이 있어 진단 제외하였다는 회신을 받았습니다.

[첨부 이미지가 있습니다.]

* 하단의 링크는 이 계정에 등록된 파일입니다. 위의 제작사 홈페이지에서 직접 다운로드 받으실 것을 강력하게 권장하지만, 혹시 링크가 깨진 경우에는 아래의 복사본을 다운로드 받으셔도 됩니다.

[첨부 파일 링크가 있습니다.]

my $errvalue = system( "apprun.exe" );

if ( $errvalue == 1 ) {
  print "Process OK!\n";
}
else {
  print "Process Error!\n";
}

undef $errvalue;

my $MAIN_WIN = Win32::GUI::Window->new(
    -name   => "MAIN_WIN",
    -title  => "윈도우 테스트",
);
my $STATUS_BAR = $MAIN_WIN->AddStatusBar();

...(중략)...

my $err = $MAIN_WIN->ShellExecute('open',"apprun.exe",'','',1);

if ( $err > 32 ) {
    $STATUS_BAR->SetText( 0," 프로그램이 시작되었습니다.");
}
else {
    $STATUS_BAR->SetText( 0," 프로그램을 시작하지 못했습니다($err).");
}

undef $err;

* 사용례:

my $err = $MAIN_WIN->ShellExecute('open',"http://www.naver.com/",'','',1);
my $err = $MAIN_WIN->ShellExecute('open',"help.chm","",'',1);
my $err = $MAIN_WIN->ShellExecute('open',"perl.exe","script.pl",'',1);

먄약, 윈도우 환경에서 .pl 확장자를 perl.exe 와 연결해 놓았다면, 이렇게도 가능합니다.

my $err = $MAIN_WIN->ShellExecute('open',"script.pl",'','',1);

Win32::GUI 를 사용하지 않더라도, 윈도우 환경에서 Win32::API 를 이용하여 직접 shell32.dll 을 호출하여 ShellExecute 를 실행하는 방법으로 사용할 수도 있습니다. 이에 대한 자세한 설명은 생략합니다.

Win32::GUI 의 ShellExecute 에 대한 자세한 설명은 다음의 페이지를 참조하시면 됩니다. 물론 영어입니다.

특히 윈도우 XP 또는 그 이전에 출시된 게임을 플레이하면서 이런 상황을 많이 겪는다. 대개의 게임들은 설치 폴더 또는 설치 폴더의 하위 폴더에 게임의 세이브나 설정 등을 저장하는데, 이런 게임을 플레이한 후에 설정 데이터 또는 세이브 데이터를 백업하려 하면 정작 이 파일들이 보이지 않는 것이다.

C:\Users\사용자 이름\AppData\Local\VirtualStore\Program Files

windres: can't open file 'pp.manifest': No such file or directory.
dmake:  Error code 129, while making 'ppresource.coff'
dmake:  Error code 255, while making 'subdirs'

1) myldr/winres 폴더를 열어 보시면 pp.ico, pp.manifest, pp.rc 이렇게 세 개의 파일이 있을 것입니다.
2) 이들 세 파일을 myldr 폴더로 복사합니다.
3) 다시 dmake 를 시행합니다.

perl makefile.pl
dmake
dmake test
dmake install

이 글은 같은 제목으로, 네이버 카페 "Perl Community & Study" 카페에 먼저 등록(2012/01/09)되었던 글을 일부 수정보완한 것입니다.

(1) Win32::Unicode 모듈을 사용해서 파일/폴더를 다루거나
(2) 출력단계에서 인코딩을 CP949로 변경해줘야..

우연히 지인의 집에서 제가 만든 프로그램을 테스트하는데, 이게 돌아가지를 않더군요. PAR::Packer 와 관련해서 발생하던 한글 사용자 이름 문제도 해결된 버전이었기 때문에 오류가 날 이유가 없는데 말입니다. 에러 메시지가 나오도록 하여 콘솔상에서 체크해 보니, 첫 실행에서 DBI 가 DB 파일을 만들지 못하고 오류를 내면서 죽는 것이었습니다. 게다가 해당 경로에 미리 만들어 둔 DB 파일을 넣어줘도 읽지를 못하더군요.

예를 들어,

use DBI;
my $dbname = "데이터.db";
my $dbh = DBI->connect( "dbi:SQLite:dbname=$dbname", "", "" );

이 코드를 UTF-8 인코딩의 스크립트(use utf8 프라그마가 붙어있는지 무관하게)에서 실행하면 정상적으로 "데이터.db" 파일이 만들어지지만, CP949 인코딩의 스크립트에서 실행하면 파일명이 깨진 상태로 db 파일이 만들어집니다. 만약 CP949 인코딩의 스크립트에서 이 코드를 제대로 실행하기 위해서는,

use DBI;
use Encode;
my $dbname = decode( "cp949", "데이터.db" );
my $dbh = DBI->connect( "dbi:SQLite:dbname=$dbname", "", "" );

위와 같이 데이터 파일명/경로를 UTF-8 로 바꾸어 주어야만 합니다. (내부 인코딩의 UTF-8이라도 상관없으므로 위와 같이 decode 만 해도 됩니다. 물론 Perl 의 유니코드 FAQ 에 보면, "내부 인코딩이 UTF-8이라는 것을 자신의 이익으로 이용하지 말라[Don't use the fact that Perl's internal format is UTF-8 to your advantage.]"고 합니다만...)

use Win32::GUI qw( VK_NUMLOCK );
Win32::GUI::GetKeyState( VK_NUMLOCK );

(In scalar context returns a value specifying whether the key is up(0) or down(1). In list context, returns a 2 element list with the first element as in scalar context and the second member specifying whether the key is toggled(1) or not(0) - this is only meaningful for keys that have a toggled state: Caps Lock, Num Lock etc.)

use Win32::GUI qw( VK_NUMLOCK );

my @NumLockState = Win32::GUI::GetKeyState( VK_NUMLOCK );

if ( $NumLockState[1] == 1 ) {
    print "NumLock 이 켜져 있습니다!";
}
else {
    print "NumLock 이 꺼져 있습니다!";
}

덧붙임. 일단 Strawberry Perl 의 다른 버전에서는 어떤 결과가 나오는지는 직접 확인해보지 않았습니다. 다만 Strawberry Perl 5.12.3 버전에서는 정상적으로 코드가 동작한다는 aero 님의 피드백이 있었기 때문에, 아마도 Strawberry Perl 5.10.1 버전대(혹은 5.10.1.5 버전)에서 발견되는 특유한 문제라고 짐작하고 있습니다.

내부 링크. 이 글에서 설명한 방법이 적용된 키보드 가상 마우스 프로그램은 다음의 경로에 공개되어 있습니다.

* 키보드 가상 마우스 : http://www.nightowl.pe.kr/software/kvmouse

제 휴대폰은 순정롬이 아닌 커스텀 롬(CM7)이 올라가 있는 넥서스원이어서, 슈퍼유저 권한이 주어지지 않더라도 /app 폴더에 파일 브라우저(Root Explorer)를 이용하여 접근이 가능했고, 해당 파일을 읽어서(Copy) SD 카드로 복사(Paste)도 가능했습니다. 그러나, 루팅되지 않은 일반적인 순정 롬 안드로이드 OS에서 이것이 가능한지는 확인할 수가 없습니다. 게다가 가능하더라도 별도의 파일 브라우저 앱이 필요하겠죠. 뭐, 가능만 하다면 파일 브라우저 앱은 무료도 많이 있으니까 별 문제는 아니겠지만요. 만약 루팅되지 않은 순정 안드로이드 롬 하에서 이러한 조치가 불가능하다면 그야말로 해결책은 없습니다. 사용자들에게 루팅을 강요할 수는 없는 것이기 때문이죠.

첨언. 글을 쓰면서 좀 더 알아보니, 안드로이드 마켓에서만 내려갔고 T스토어나 올레마켓에는 여전히 등록되어 있군요. 그러나 이들 마켓 앱이 설치되어 있지 않은 저로서는 여기에 접근할 방법이 없으며, 있다 하더라도 구매 정보가 공유되지 않는 이상 재구매를 하여야 합니다. 가격의 많고 적음이 문제가 아니죠. 이건 대체 무슨 황당한 상황인지 모르겠습니다.

단, 구글의 정책상 한 번 삭제된 페이지에 대해서는 최소 180일간 페이지를 다시 노출하지 않습니다. 따라서 삭제일로부터 180일이 지나기 전에 페이지를 다시 노출하기 위해서는 삭제한 페이지에 대해서 재포함 버튼을 눌러 삭제 요청을 취소해야 합니다. 따라서 저의 경우에도, 삭제 요청을 취소하기 전인 2012년 2월 말까지 검색 결과가 노출되지 않았던 부분은 정상입니다. 문제가 되는 것은 2012년 2월 29일 이후의 경우입니다.

국내 Perl 커뮤니티의 분들 사이에서는 ActivePerl 보다는 Strawberry Perl에 대한 선호도가 더 높은 것 같다. 정확한 이유는 필자도 모르겠다. 지금은 Strawberry Perl 에서도 PPM 을 지원하므로, 모듈 설치의 편의성 등에서도 별 차이가 없어졌다고 생각된다.

다만, Strawberry Perl의 경우에는 공식적으로 무설치(포터블)버전을 함께 공개하고 있기 때문에, 안전을 기하기 위해 이 쪽을 사용하는 것도 좋다.

1. Strawberry Perl 을 사용해야 하는 경우 :

다음의 세 개의 폴더를 PATH 에 추가한다. (설치 폴더가 C:\Strawberry 인 경우를 가정했다.)

* C:\strawberry\perl\bin
* C:\strawberry\perl\site\bin
* C:\strawberry\c\bin

덧붙여, 환경 변수에 TERM=dumb 라는 항목을 추가해야 한다. (이유는 모른다.) 이를 배치 파일로 만들면 다음과 같이 된다. [[첨부 파일 링크가 있습니다.]]

@ECHO OFF
PATH C:\strawberry\perl\site\bin;C:\strawberry\perl\bin;C:\strawberry\c\bin;%PATH%
SET TERM=dumb
CMD

이 배치 파일을 실행하면 콘솔 창이 뜨게 되는데, 이 콘솔 창에서는 Strawberry Perl 을 메인 Perl 바이너리로 사용할 수 있다.


2. ActivePerl 을 사용해야 하는 경우

다음의 두 개의 경로만 PATH 에 추가해 넣으면 된다. (설치 경로가 C:\Perl 인 경우를 가정했다.)

* C:\Perl\site\bin
* C:\Perl\bin

이를 배치 파일로 만들면 다음과 같다. [[첨부 파일 링크가 있습니다.]]

@ECHO OFF
PATH C:\Perl\site\bin;C:\Perl\bin;%PATH%
CMD

이 배치 파일을 실행하여 출력되는 콘솔 창에서는 ActivePerl 을 메인 Perl 바이너리로 사용할 수 있다.

양 쪽 모두에 있어서, 하나의 바이너리의 여러 버전을 선택하여 사용하는 경우에도 위와 같은 방법을 사용하면 된다. 각각의 버전은 별도의 폴더에 설치되어 있을 것이 요구된다.

@ECHO OFF
ECHO.
ECHO 1. Open ActivePerl Console Window
ECHO 2. Open Strawberry Perl Console Window
ECHO 0. EXIT
ECHO.
CHOICE /C 120 /N /M "Choice: "

IF ERRORLEVEL 3 GOTO END
IF ERRORLEVEL 2 GOTO STRAWBERRYPERL
IF ERRORLEVEL 1 GOTO ACTIVEPERL

GOTO END

:ACTIVEPERL

@ECHO OFF
PATH C:\Perl\site\bin;C:\Perl\bin;%PATH%
SET TERM=
CMD

GOTO END

:STRAWBERRYPERL

@ECHO OFF
PATH C:\strawberry\perl\site\bin;C:\strawberry\perl\bin;C:\strawberry\c\bin;%PATH%
SET TERM=dumb
CMD

GOTO END

:END

이 항목은 다음 문서를 바탕으로 작성되었습니다 :

윈도우 7 / 윈도우 탐색기의 특정 폴더를 클릭하여 콘솔 모드 열기 : http://www.nightowl.pe.kr/blog/article/412

@ECHO OFF
ECHO.
ECHO 1. Open ActivePerl Console Window
ECHO 2. Open Strawberry Perl Console Window
ECHO 0. EXIT
ECHO.
CHOICE /C 120 /N /M "Choice: "

IF ERRORLEVEL 3 GOTO END
IF ERRORLEVEL 2 GOTO STRAWBERRYPERL
IF ERRORLEVEL 1 GOTO ACTIVEPERL

GOTO END

:ACTIVEPERL

@ECHO OFF
PATH C:\Perl\site\bin;C:\Perl\bin;%PATH%
SET TERM=
CMD /k cd /d "%1"

GOTO END

:STRAWBERRYPERL

@ECHO OFF
PATH C:\strawberry\perl\site\bin;C:\strawberry\perl\bin;C:\strawberry\c\bin;%PATH%
SET TERM=dumb
CMD /k cd /d "%1"

GOTO END

:END

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Drive\shell\cmdsperl]
@="Perl 바이너리를 선택하여 폴더 열기"

[HKEY_CLASSES_ROOT\Drive\shell\cmdsperl\command]
@="C:\\PerlSel.bat \"%1\""

[HKEY_CLASSES_ROOT\Directory\shell\cmdsperl]
@="Perl 바이너리를 선택하여 폴더 열기"

[HKEY_CLASSES_ROOT\Directory\shell\cmdsperl\command]
@="C:\\PerlSel.bat \"%1\""

HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.pl
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Perl

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.pl]
@="Perl"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Perl\shell\OpenWithActivePerl]
@="Run with Activeperl"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Perl\shell\OpenWithActivePerl\command]
@="C:\\Perl\\bin\\perl.exe \"%1\""

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Perl\shell\OpenWithStrawberryPerl]
@="Run with StrawberryPerl"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Perl\shell\OpenWithStrawberryPerl\command]
@="C:\\Strawberry\\Perl\\bin\\perl.exe \"%1\""

특정한 확장자에 대해 컨텍스트 항목을 연결하는 방법은 다음의 문서를 참조하였습니다.:

마우스 우클릭으로 .java 컴파일과 .class 실행하기 : http://snoopybox.co.kr/1457

@ECHO OFF
PATH C:\strawberry\perl\site\bin;C:\strawberry\perl\bin;C:\strawberry\c\bin;%PATH%
SET TERM=dumb
perl %1
pause

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Perl\shell\OpenWithStrawberryPerl\command]
@="C:\\Strawberry\\perlrun.bat \"%1\""

perl makefile.pl
makefile.pl

레지스트리 파일은 여기에서도 다운로드 가능하다. [첨부 파일 링크가 있습니다.]

HKEY_CLASSES_ROOT\Directory\shell\cmd

HKEY_CLASSES_ROOT\Drive\shell\cmd

제가 주로 사용하는 Perl 바이너리가 ActivePerl 이기 때문에, 이하의 모든 이야기는 ActivePerl을 기준으로 합니다. 아마 Strawberry Perl 역시 동일할 것입니다.

그래서 PAR::Packer 로 빌드한 실행 바이너리를 실행하면, 동일한 이름의 파일 두 개가 프로세스 목록에 모-자 프로세스 형태로 떠 있는 것을 확인하실 수 있습니다. 물론 프로그램을 종료하면 두 개의 프로세스가 동시에 꺼집니다.

저에 맞추어서 OwlNetworks 라고 적은 것 뿐, 다른 분들은 자신에게 맞추어 임의로 영문자 및 숫자를 섞어서 정하시면 됩니다.

제가 사용하는 ActivePerl 의 버전이 5.10.1 Build 1007 이고, 이 버전에서 PPM을 통해 제공되는 PAR 의 버전은 1.002, PAR::Packer 의 버전은 0.991 입니다. [ActivePerl과 최근 버전의 PAR/PAR::Packer 사이에 궁합이 묘하게 좋지 않아서, 5.10.1.1007 버전의 경우 제공되는 PAR/PAR::Packer PPM 의 버전은 조금 오래된 버전입니다.]

참고로, 공식적인 ActiveState PPM 에서 제공되는 5.10 버전의 PPM 목록에는 PAR::Packer 가 없습니다. ActiveState PPM 에서는 공식적으로 Win32 환경에서 PAR::Packer 는 컴파일 오류가 발생하는 것으로 되어 있습니다. PAR 의 경우에도 현재 최신 버전은 1.005이지만 등록은 1.002까지만 되어 있습니다. 다만 이 경우는 컴파일 실패가 아니라 아직 컴파일 및 테스트가 진행되지 않았기 때문인 점을 유의하시기 바랍니다.

[첨부 이미지가 있습니다.]

따라서, PPM 으로 5.10.1 버전에서 PAR::Packer 바이너리를 구하려면 bribes.org PPM 레퍼지토리를 이용하여야 합니다. 여기에서 제공되는 버전 역시 0.991 버전입니다.

참고로, trouchelle PPM 레퍼지토리를 이용하면 PAR::Packer 1.008 버전을 다운로드 받을 수 있습니다만, 필자의 경우에는 적용시켜 본 결과 오류가 발생하여 실행 바이너리의 빌드가 불가능하였습니다.

(bribes, trouchelle 모두 ActivePerl 5.10 버전의 Perl Package Manager 를 이용하여 연결이 가능합니다.)

    /* "$TEMP/par-$USER" */

    stmp_len =
        strlen(tmpdir) +
        strlen(subdirbuf_prefix) +
        strlen(username) +
        strlen(subdirbuf_suffix) + 1024;

        /* Temporarily fixed Korean(CP949/UTF16LE) Encoding Problem */

        username = "OwlNetworks";

perl makefile.pl
dmake
dmake test
dmake install

31st: No resource section found in file ~~~~ at C:/usr/site/bin/Win32/Exe.pm line ~~~.
      Can't call method "remove" on an undefined value at C:/usr/site/bin/Win32/Exe.pm line ~~~.
32nd: Failed test.

참고로, 앞의 (1) 에서 시도한 바 있는, 사용자 이름으로 TEMP 폴더의 경로를 만드는 서브루틴이 포함된 두 개의 PL/PM 파일은 수정하지 않아도 됩니다. 이 두 파일은 빌드 과정에서는 사용되지 않습니다. (실행 파일을 만들지 않고 단순히 par 파일을 만들거나, standalone pl 파일을 만들 때에는 이 코드가 사용이 됩니다.)

실제로 1.013 버전에서는, 사용자 이름이 한글인 경우 이를 16진수로 변환하여 영문자-숫자 형태로 변경한 후에 사용하도록 패치되었습니다. (2012-03-27 추가)

참고로, PAR::Packer 1.011 버전은 Perl 버전은 최소 5.8.1을, PAR 버전은 1.004 를 요구합니다. 또한 PAR::Packer 의 최신 버전인 1.012 버전은 PAR 버전이 1.005 (최신 버전) 여야만 합니다. 따라서 ActivePerl 에서 PPM을 통해 설치할 수 있는 PAR 1.002 버전을 기준으로 본다면 설치할 수 있는 PAR::Packer 는 최대 1.010 버전까지입니다. 전술한 바와 같이, trouchelle PPM 레퍼지토리에서 받을 수 있는 PAR::Packer 버전 1.008의 경우 제 시스템에서는 오류가 발생하였습니다.

참고로, 현재 이 사진에는 나오지 않습니다만, 접착된 스테인리스 조각에 요철(접착 전에 드라이버 등을 스테인리스 조각 한가운데 대고 망치 등으로 한번 탕. 구멍을 내는 것이 목적이 아니라 튀어나온 요철을 내는 것이 목적입니다)을 내어서 CPU 히트싱크를 좀 더 강하게 누르도록 할 수도 있습니다. 이 부분도 기사님께서 나중에 해 주신 부분인데, 요철을 낸 사진을 못 찍었네요.

참고로, 현재 CVS 에 올라가 있는 최신의 Win32::GUI 코드에는 이 기능이 포함되어 있습니다. (개발자가 이 질문을 보고 이 기능을 코딩해 넣었더군요. 2011년 7월에 CVS 에 Commit 되었습니다.) 그러나 아직 이 기능이 포함된 새로운 Win32::GUI 가 빌드되지 않았기 때문에, 이 기능을 당장은 사용할 수 없습니다. 필자가 컴파일한 최신 CVS 버전의 Win32::GUI 1.06 PPM 파일(Perl 5.10/5.14 버전)을 여기에 링크해 두겠으니, 필요하신 분은 사용하시기 바랍니다. 다만, 정식으로 공개된 버전이 아니기 때문에 예상치 못한 문제가 발생할 수도 있으므로, 이 점은 각자의 위험 부담으로 해 주시기 바랍니다.

5.10 : [첨부 파일 링크가 있습니다.]
5.14 : [첨부 파일 링크가 있습니다.]

제가 사용하는 윈도우용 Perl 은 ActivePerl 5.10.1.1007 버전인데, 이 버전의 PPM 에서는 아무리 검색을 해 봐도 (현재도) 이 모듈의 최신 버전은 여전히 0.14.1 입니다. 그 덕분에 새 버전이 나온 지 1년이 다 지나도록 버전업 사실을 몰랐던 거였습니다. 이런...

# msgOutput 서브루틴은 소스가 UTF-8 인코딩으로 되어 있는 관계로,
# UTF-8 Output 을 지원하지 않는 Win32::GUI 창에서 메시지가 깨지지
# 않도록 하기 위해 출력 전에 내부 UTF-8 인코딩을 euc-kr 인코딩으로
# 변경하는 기능을 하는 자작 서브루틴임을 참고하십시오.

sub BrowseForFolderNewUI {

    my $folder;
    my $title = msgOutput("음악 파일을 복사할 폴더를 선택하세요.");

    use Win32::FileOp qw(:DIALOGS);

    $folder = BrowseForFolder( $title, CSIDL_DRIVES, BIF_USENEWUI );

    undef $title;

    return $folder;
}

[참고 링크]

Win32::FileOp 0.16.0 - [CPAN 링크]
(.pm 파일만으로 구성된 모듈이고, 소스를 확인해 보면 Win32::API 를 이용하여 shell32.dll 의 SHBrowseForFolder 를 호출합니다. 의존성 있는 모듈이 존재하므로 설치 시 이들이 함께 설치되어야만 합니다.)

위 기능을 처음 사용해 본 .M3U Copier 프로그램은 다음 링크에 공개되어 있습니다.

.M3U Copier - http://www.nightowl.pe.kr/software/m3ucopier

1: use Win32::GUI::DIBitmap;
2: use Win32::Clipboard();
3:
4: my $Filename = GetDateTime(time);
5: my $bitmap = Win32::Clipboard::GetBitmap();
6: my $dib = newFromData Win32::GUI::DIBitmap ($bitmap);
7: undef $bitmap;
8:
9: $dib->SaveToFile("$Filename.png", FIF_PNG ); # 알아서 저장하므로 FIF_PNG는 없어도 된다.
10: undef $dib;
11: undef $Filename;

1: use Win32::GUI::DIBitmap;
2: use Win32::Clipboard();
3:
4: my $Filename = GetDateTime(time);
5: my $bitmap = Win32::Clipboard::GetBitmap();
6: my $dib = newFromData Win32::GUI::DIBitmap ($bitmap);
7: undef $bitmap;
8: my $to24bits = $dib->ConvertTo24Bits(); # 24비트로 비트 수 다운그레이드
9: undef $dib;
10:
11: $to24bits->SaveToFile( "$Filename.png", FIF_PNG ); # 알아서 저장하므로 FIF_PNG는 없어도 된다.
12: undef $to24bits;
13: undef $Filename;