フローチャート

perlを使い擬似言語からフローチャートを作るプログラムを作成した．
リファレンスは慣れると快適．再帰なんて使ったのは，何年ぶりだろう．
以下のようなテキストから右のような図(SVG)を生成する．いまどきフローチャートなんか使わないという話はある．

採点処理 {
while(未処理件数>0) {
マークシート処理;
if (午前得点 > 70点) {
午後１採点;
if (午後１得点 > 70点) {
午後２採点;
}
}
[合計処理];
if (合計点数>70点) {
[合格処理];
} else {
[不合格処理];
}
次の人;
}
}

(4/19のコーディング量585行)