このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/525
#  Perlの正規表現で質問させて下さい。 
#  yyyy/mm/entry-basename/index.php 
#  ↑はどのように記述すればいいのか、お手数ですがご教授願います<(_ _)> 
# 
'yyyy/mm/entry-basename/index.php を検索する'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        atom_chars('/entry-basename/index.php',Chars1),
        sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,L1,[Y1,Y2,Y3,Y4,/,M1,M2|Chars1],L3),
        すべて数字([Y1,Y2,Y3,Y4,M1,M2]),
        append(_,[M1|_],['0','1']),
        \+((last(L1,A),数字(A))).