Friday, November 17, 2006
Perl/펄] 파일 사이즈 구하기, 파일 크기 바이트 단위로 얻기; Get File Size
펄에서는 -s 라는 연산자(함수 아님)로 파일의 사이즈를 바이트 단위로 간단히 구할 수 있습니다.
-s 뒤에 파일명만 적어주면 됩니다.
-s "파일명"
즉 위의 문장 자체가 파일 사이즈로 치환됩니다.
파일명: 0.pl
※ 아래 박스 클릭 후, 키보드 화살표 키로 좌우 스크롤 가능함
-s 뒤에 파일명만 적어주면 됩니다.
-s "파일명"
즉 위의 문장 자체가 파일 사이즈로 치환됩니다.
펄로, 파일 사이즈(Byte 단위 크기) 구하기 예제 소스
파일명: 0.pl
※ 아래 박스 클릭 후, 키보드 화살표 키로 좌우 스크롤 가능함
#!/usr/bin/perl
use strict; use warnings;
my $i;
########################################################################
# 파일 사이즈 구하기
$i = -s "test.jpg";
print "File Size: ", $i, " bytes\n";
# 만약 "test.jpg"가 19.7KB (20,263 바이트) 짜리 파일이라면
# 출력 결과: File Size: 20263 bytes
########################################################################
# 경로까지 지정하여 파일 사이즈 구하기 (윈도우의 경우)
print -s "D:/Warehouse/ubuntu-6.06.1-server-i386.iso", "\n";
# 출력 결과: 453132288
########################################################################
# if문에서 파일 크기를 조건으로 판단하기
# ubuntu-6.06.1-server-i386.iso 파일의 크기는 432MB (453,132,288 바이트)
if (-s "D:/Warehouse/ubuntu-6.06.1-server-i386.iso" > 104857600) {
print "100메가보다 큰 파일이군요\n";
} else {
print "100메가보다 작은 파일이군요\n";
}
# 출력 결과: 100메가보다 큰 파일이군요
use strict; use warnings;
my $i;
########################################################################
# 파일 사이즈 구하기
$i = -s "test.jpg";
print "File Size: ", $i, " bytes\n";
# 만약 "test.jpg"가 19.7KB (20,263 바이트) 짜리 파일이라면
# 출력 결과: File Size: 20263 bytes
########################################################################
# 경로까지 지정하여 파일 사이즈 구하기 (윈도우의 경우)
print -s "D:/Warehouse/ubuntu-6.06.1-server-i386.iso", "\n";
# 출력 결과: 453132288
########################################################################
# if문에서 파일 크기를 조건으로 판단하기
# ubuntu-6.06.1-server-i386.iso 파일의 크기는 432MB (453,132,288 바이트)
if (-s "D:/Warehouse/ubuntu-6.06.1-server-i386.iso" > 104857600) {
print "100메가보다 큰 파일이군요\n";
} else {
print "100메가보다 작은 파일이군요\n";
}
# 출력 결과: 100메가보다 큰 파일이군요
tag: perl
Perl | 펄
<< Home