2009년 9월 2일

[perl] sub string 구하기

스트링 안에서 특정 구간의 sub-스트링을 구하고 싶을 때...

---------------------------------------------------------

#!/usr/bin/perl

my $sub_str;

open FILE, "only_jpg" or die $!;

while (<FILE>)
{
        $sub_str =  substr $_, 42, 48;

        print "http://my.host.com/$sub_str\n";
}

close(FILE);

-----------------------------------------------------------

댓글 없음:

댓글 쓰기