Sunday, December 10, 2006
Perl/펄] 파일 경로 구하기, 풀 패스, 절대 패스명 알아내기; File Full Path; Absolute Path Name
주어진 파일명의, 절대 패스 즉, 풀패스(Full Path)를 구하기 위해서는 Cwd 라는 기본 모듈 속의 abs_path 함수를 사용합니다.
실행 결과 화면:
test.txt 라는 파일의 풀패스가
D:\Z\test.txt
이렇게 구해졌습니다.
그런데 Win32 환경에서는, abs_path 함수에 버그가 있는 것 같습니다.
루트에 있는 파일의 풀패스를
abs_path("\\test.zip");
이렇게 구하면
\test.zip
이렇게 드라이브명이 나오지 않고
abs_path("/test.zip");
이렇게 하면
D://test.zip
슬래시가 2개 나오는군요.
▶▶ Perl/펄] 현재 디렉토리 명 구하기; 디렉터리 위치; Cwd, pwd, Current Working Directory Name
파일 전체 경로 얻기 예제 소스
#!/usr/bin/perl
use strict; use warnings;
use Cwd 'abs_path';
my $full_path = abs_path("test.txt");
print "$full_path\n";
use strict; use warnings;
use Cwd 'abs_path';
my $full_path = abs_path("test.txt");
print "$full_path\n";
실행 결과 화면:
D:\Z>0.pl
D:\Z\test.txt
D:\Z>
D:\Z\test.txt
D:\Z>
test.txt 라는 파일의 풀패스가
D:\Z\test.txt
이렇게 구해졌습니다.
그런데 Win32 환경에서는, abs_path 함수에 버그가 있는 것 같습니다.
루트에 있는 파일의 풀패스를
abs_path("\\test.zip");
이렇게 구하면
\test.zip
이렇게 드라이브명이 나오지 않고
abs_path("/test.zip");
이렇게 하면
D://test.zip
슬래시가 2개 나오는군요.
▶▶ Perl/펄] 현재 디렉토리 명 구하기; 디렉터리 위치; Cwd, pwd, Current Working Directory Name
tag: perl
Perl | 펄
<< Home