Friday, April 06, 2007

ファイルサイズを求める -s

perlでのサンプル

my $body;

open(MP3, $file) || die("can't open \n $!");
read(MP3, $body, -s $file);
close(MP3);
print $body;

No comments: