このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1323566370/671
#  sedです 
#   
#  foo 
#  bar 
#  *piyo 
#  *hoge 
#  *zieg 
#  kero 
#  piyo 
#  のような文章があるとして、先頭にアスタリスクがついている部分を別記号で囲みたいです。 
#  foo 
#  bar 
#  [ 
#  *piyo 
#  *hoge 
#  *zieg 
#  ] 
#  kero 
#  piyo 
#   
#  sedのスクリプトファイルで書いているのですが複数行にまたがるマッチングをこなしてくれません 
#  どうか御教示願います。 
# 
# 

'先頭にアスタリスクがついている部分を別記号で囲みたい'(_文字列,_置換された文字列) :-
        sPLIT(_文字列,['\n'],L),
        '先頭にアスタリスクがついている部分を別記号で囲みたい'(L,L2),
        concat_atom(L2,_置換された文字列).

'先頭にアスタリスクがついている部分を別記号で囲みたい'([],[]).
'先頭にアスタリスクがついている部分を別記号で囲みたい'(['\n'],['\n']) :- !.
'先頭にアスタリスクがついている部分を別記号で囲みたい'(['\n',A|R1],L) :-
        sub_atom(A,0,1,_,'*'),
        '先頭にアスタリスクがついている部分'(['\n',A|R1],L1,R1_1),
        '先頭にアスタリスクがついている部分を別記号で囲みたい'(R1_1,R2),
        append(L1,R2,L),!.
'先頭にアスタリスクがついている部分を別記号で囲みたい'(['\n',A|R1],['\n',A|R2]) :-
        '先頭にアスタリスクがついている部分を別記号で囲みたい'(R1,R2).

'先頭にアスタリスクがついている部分'(['\n',A|R1],['\n',A|R2],R) :-
        sub_atom(A,0,1,_,'*'),
        '先頭にアスタリスクがついている部分'(R1,R2,R),!.
'先頭にアスタリスクがついている部分'(L,['\n',']'],L).