2009년 9월 2일

[perl] sub string 처리와 파일로부터 파일사이즈 구하기


파일 크기 간단하게 구하기.


#!/usr/bin/perl

my $sub_str;
my $file_size;

open FILE, "jpg_only.log" or die $!;

while (<FILE>)
{
        $sub_str =  substr $_, 26;
        chomp $sub_str;

        $file_size = -s $sub_str;

        if (($file_size < 550*1024) && ($file_size > 500*1024))
        {
                print "http://my.host.com/$sub_str\n";
        }
}

close(FILE);




댓글 없음:

댓글 쓰기