Windows에서 Perl을 사용하면 어떻게 chdir 다음에 정확한 대소 문자를 구할 수 있습니까?

Question

다음과 같은 코드를 생각해 내 현재 디렉토리가 c:\parentdir\Source (자본 'S'를주의를) 인 경우

print cwd . "\n"; 
$str= "../source"; # note the lower case 's'  
chdir($str); 
print cwd . "\n"; 

을, 이것의 출력은 다음과 같습니다

는

 
c:/parentdir/Source 
c:/parentdir/source 

이의 서브 루틴에 문제가 발생 폴더 이름의 올바른 대소 문자를 구별하는 광산. $ str은 서브 루틴으로 전달되므로, 대소 문자가 올바른지 미리 알 수는 없습니다. $str과 일치하는 경로의 대소 문자가 정확한 이름을 어떻게 결정합니까? 여기

더 상세 :

• 난 ../source 병적 예임을 알지만 문제를 설명하기 위해 그 역할을한다. $str이 현재 폴더가 아닌 폴더를 요청하는 경우에도 발생합니다. rel2abs, $str에 글로브 검색, 등,하지만 그들은 모두를 포함
• 내가 시도 다양한 옵션 대신 "Source"의 "source"를 반환 것 같다.
• 모든 디렉토리에 대해 $str/..을 검색하고 모두를 절대 경로로 변환하고 절대 경로 버전 $str, 과 비교해보십시오.하지만 해킹처럼 보입니다. 나는 더 우아한 뭔가가 있기를 바랬다.

Answer 1

#!/usr/bin/perl 

use warnings; use strict; 
use Cwd; 
use File::Spec::Functions qw(canonpath); 
use Win32; 

print canonpath(cwd), "\n"; 

chdir '../source'; 

print canonpath(cwd), "\n"; 

print canonpath(Win32::GetLongPathName(cwd)), "\n"; 

C:\DOCUME~1\...\LOCALS~1\Temp\t\Source> t 
C:\DOCUME~1\...\LOCALS~1\Temp\t\Source 
C:\DOCUME~1\...\LOCALS~1\Temp\t\source 
C:\Documents and Settings\...\Local Settings\Temp\t\Source