このディレクトリの索引

# 出典 :: 【PHP】Lvうpしたいので宿題ください #9 # 1.1行ずつURLが記述されたテキストファイルを読み込み、 # 2.そのURLのコンテンツを取得して # 3.タイトルとURLを画面に出力(コンソールに直接でもブラウザへでも可) # するプログラムを作ってください。 # 尚テキストファイルに記述されているURLは妥当なものと見なして構わないものとする。 '一行ずつURLが記述されたテキストファイルを読み込み、そのURLのコンテンツを取得してタイトルとURLを画面に出力する'(File) :- forall( 一行ずつURLが記述されたテキストファイルを読み込み(File,URL), そのURLのコンテンツを取得してタイトルとURLを画面に出力(URL,_コンテンツ,_タイトル)). 一行ずつURLが記述されたテキストファイルを読み込み(File,URL) :- read_file_to_codes(File,Lines,[]), member(URL,Lines). そのURLのコンテンツを取得してタイトルとURLを画面に出力(URL,_コンテンツ,_タイトル) :- そのURLのコンテンツを取得してタイトルとURLを(URL,_コンテンツ,_タイトル), 画面に出力(_タイトル,URL). そのURLのコンテンツを取得してタイトルとURLを(URL,_コンテンツ,_タイトル) :- そのURLのコンテンツを取得して(URL,_コンテンツ), タイトルを得る(_コンテンツ,_タイトル). そのURLのコンテンツを取得して(URL,_コンテンツ) :- そのURLの全行を取得(URL,_行ならび), atomic_list_concat(_行ならび,_改行を削除した全文), atom_chars(_改行を削除した全文,_コンテンツ). そのURLの全行を取得(URL,_行ならび) :- atomic_list_concat(['w3m -dump ',URL],S), shs(S,_行ならび). 画面に出力(_タイトル,URL) :- writef('%w,%w\n',[_タイトル,URL]). タイトルを得る(L,_タイトル) :- '変数が大文字または小文字でTITLEを示していれば終了タグの間からタイトルを得る'(L,A,B,C,D,E,_タイトル). タイトルを得る([_|R],_タイトル) :- タイトルを得る(R,_タイトル). '変数が大文字または小文字でTITLEを示していれば終了タグの間からタイトル文字ならびを切り取る'(['<',A,B,C,D,E,'>'|R],A,B,C,D,E,_タイトル) :- '変数が大文字または小文字でTITLEを示していれば'(A,B,C,D,E), 終了タグの間からタイトル文字ならびを切り取る(R,A,B,C,D,E,_タイトル文字ならび), atomic_list_concat(_タイトル文字ならび,_タイトル). 終了タグの間からタイトル文字ならびを切り取る(['<','/',A,B,C,D,E,'>'|_],A,B,C,D,E,[]) :- !. 終了タグの間からタイトル文字ならびを切り取る([_1|R1],A,B,C,D,E,[_1|R2]) :- 終了タグの間からタイトル文字ならびを切り取る(R1,A,B,C,D,E,R2). '変数が大文字または小文字でTITLEを示していれば'(A,B,C,D,E) :- (A=t;A='T'),(B=i;B='I'),(C=t;C='T'),(D=l;D='L'),(E=e;E='E').