このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/unix/1127388574/941
#  プログラムで質問があります。 
#  /hoge/test/ 
#  の中に 
#  1filename1.gif 
#  1filename2.gif 
#  2filename1.gif 
#  2filename2.gif 
#  があるとします。 
#   
#  # sh /hoge/test/*filename* 
#  という感じにコマンドを入力すると 
#  それらの複数のファイルが 
#   
#  command /hoge/test/1filename1.gif -option /aaa/bbb/1filename1.jpg 
#  command /hoge/test/1filename2.gif -option /aaa/bbb/1filename2.jpg 
#  command /hoge/test/2filename1.gif -option /aaa/bbb/2filename1.jpg 
#  command /hoge/test/2filename2.gif -option /aaa/bbb/2filename2.jpg 
#   
#  って感じにファイルが無くなるまで全て、コマンドを実行したいのですが 
#  どうすればいいのでしょうか?? 
# 
# 

ファイルを選択してコマンド実行(_コマンド,_ディレクトリ1,_ディレクトリ2,_ファイル検索鍵,_サフィックス1,_サフィックス2) :-
      concat_atom(['sh -d ',_ディレクトリ,'/','*',_ファイル検索鍵,'*'],S1),
      atom_length(_ディレクトリ,_ディレクトリの長さ1),
      _ディレクトリの長さ2 is _ディレクトリの長さ1 + 1,
      shs(S2,L),
      append(_,[_ファイル名1|R],L),
      sub_atom(_ファイル名1,S,_,0,_サフィックス1),
      Len3 is S - _ディレクトリの長さ2,
      sub_atom(_ファイル名1,_ディレクトリの長さ2,Len3,_,_ファイル名2),

      concat_atom([_コマンド,' ',_ファイル名1,' ','-option ',_ディレクトリ2,'/',_ファイル名2,_サフィックス2],S2),

      shs(S2,_),
      R = [],!.
ファイルを選択してコマンド実行(_,_,_,_,_).