このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 150代目 #662 # [1] 課題 # [2] .tsv形式のファイルをネット上から呼び出して、一番最後の行を引用して表示するプログラムを教えてください # [3] Mac OS X C++ # [4] 7/16 19時まで # [5] 関数呼び出しまで # 宜しくお願いします。 # '.tsv形式のファイルをネット上から呼び出して、一番最後の行を引用して表示する'(_URL) :- w3c(URL,Lines), 最終行を捜す(Lines,_最終行), writef('%w\n',[_最終行]). 最終行を捜す(Chars,_最終行) :- last(Lines,_最終行). w3c(URL,Lines) :- atomic_list_concat(['w3m -dump ',URL],S), shs(S,Lines). shs(Command,X) :- popen(Command,L), shs_2(L,X). shs_2([],[]) :- !. shs_2(L,[S|R]) :- append(L0,['\n'|R1],L), atom_chars(S,L0), shs_2(R1,R),!. shs_2(L,[S]) :- atom_chars(S,L). popen(Command,Chars) :- open(pipe(Command),read,Instream), sh_chars(Instream,Chars), close(Instream),!. sh_chars(Instream,[]) :- at_end_of_stream(Instream),!. sh_chars(Instream,[Char|R]) :- get_char(Instream,Char), sh_chars(Instream,R). sh_codes(Instream,[]) :- at_end_of_stream(Instream),!. sh_codes(Instream,[Code|R]) :- get_code(Instream,Code), sh_codes(Instream,R).