>>97
Prologはファイル処理は得意でないから、ライブラリに頼ってる。
ファイルfoo.txt の'メイショウサムソン'という文字列が存在する行頭に
今日の日付をコメントとして付けるには、
?- 今日(_今日),
行置換('foo.txt',A,B,(sub_atom(A,_,_,_,メイショウサムソン),
concat_atom(['/* ',_今日,' */ ',A],B))).

でよいが、最初の適合行だけコメントするというような仕様だと
行置換/4のソースを一部変更した別述語を作る必要がある。