【技術者】難しい話をするスレ【Haskell】

158 ：◆YSALoS//91mH：2014/08/16(土) 11:40:31.39

>>157
インデント修正。
<?PHP
header("Content-type: text/plain; charset=UTF-8");
$url = (preg_match('/^(https?|ftp)(:\/\/[-_.!~*\'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)$/', $_SERVER["QUERY_STRING"])) ? $_SERVER["QUERY_STRING"] : "" ;
if($url) :
$html = file($url);
$cnt = count($html);
for($i=0;$i<$cnt;$i++) {
$html[$i] = mb_convert_encoding($html[$i], "UTF-8", "SJIS");
preg_match('#<title>(.+)</title>#is', $html[$i], $title);
if($title[1]) break;
}
for($i;$i<$cnt;$i++)
if(preg_match('#<dl class=\"thread\">#is', $html[$i])) break;
for($i;$i<$cnt;$i++) :
if(preg_match('#</dl>#is', $html[$i])) break;
$html[$i] = mb_convert_encoding($html[$i], "UTF-8", "SJIS");
str_replace(array("\r\n","\r","\n"),"", $html[$i]);
preg_match('#<dt>(\d+).+?(?:"mailto:(.+?)">)?<b>(.+?)</b>(?:</font>|</a>) ?：(.*?)<dd>#is', $html[$i], $dat);
preg_match('#<dd>(.+)<br><br>#is', $html[$i], $data);
if($dat || $data) :
$data[1] = preg_replace ('#<a\s.{0,}?href=".+?".{0,}?>|</a>#is',"",$data[1]);
str_replace("<br>","<br />", $data[1]);
if($dat[1] == 1) echo "$dat[3]<>$dat[2]<>$dat[4]<>$data[1]<>$title[1]\n";
else echo "$dat[3]<>$dat[2]<>$dat[4]<>$data[1]<>\n";
endif;
endfor;
endif;
?>