Perlについての質問箱 63箱目
■ このスレッドは過去ログ倉庫に格納されています
0653デフォルトの名無しさん
2014/09/22(月) 12:59:35.92ID:Ujm2FNch#ITEMと#ENDが一種類なら、
#ITEMが出るたびにcountを+1する
#ENDが出るたびにcountを-1する(countが0より小さくなったら#END多すぎエラー)
countが0のときだけprintする
EOFまで読んでcountが0でなかったら、#ITEM多すぎエラー
■ このスレッドは過去ログ倉庫に格納されています