Apache関連 Part8

[0915 名無しさん＠お腹いっぱい。 2006/07/08(土) 13:26:59]

すまん、間違ってたので一応訂正・・・

#!/usr/bin/perl

$size = 0;
while(<STDIN>) {
　　chomp;
　　$size += $1 if( /(\d+)$/ );
}
printf("%.2f MB\n", $size / 1024 / 1024);
exit;