【Perl】初心者コーナー Part17
■ このスレッドは過去ログ倉庫に格納されています
0385nobodyさん
02/10/30 11:08ID:???#$buf はcgiの引数で1桁目の時は1で、6桁目の時は6が入ります。
# ログを読み込む $logfileの中身は 95 とか
open(IN,"$logfile") || &error;
$count = <IN>;
close(IN);
# カウント数を1文字毎に分解して表示画像を定義
@file = split(//, $count);
if($#file + 1 >= $buf){
$view = $file[$#file + 1 - $buf];
}else{
$view = '0';
}
この$#fileってなんですか?
■ このスレッドは過去ログ倉庫に格納されています