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

154 ：◆GlejOuo7cU：2014/08/15(金) 21:13:53.97 ID:kUxu/mfMf

見ていて気になったので適当に修正を入れてみた。
空欄(null)が表示されるのが気持ち悪いのでフィルターリングをつけてみた。

$url = "http://sweet.2ch.sc/test/read.cgi/laplace/1400684521/22";
$html = file($url);
$cnt = count( $html );
for( $i=0;$i<$cnt;$i++ ){
str_replace(array("\r\n","\r","\n"),"", $html[$i]);
preg_match('#<dt>([0-9]+).+?(?:"mailto:(.+?)">)?<b>(.+?)</b>(?:</font>|</a>) ?：(.*?)<dd> ?(.*?)(<br><br>)$#mi', $html[$i], $dat);
$dat[5] = preg_replace ('#(<a\s.{0,}?href=".+?".{0,}?>)|(</a>)#mi',"",$dat[5]);
if($dat['3']!=null){//名前
$dat_n['name']=$dat['3'];
}
if($dat['2']!=null){//メール
$dat_n['mail']=$dat['2'];
}
if($dat['4']!=null){//曜日
$dat_n['day']=$dat['4'];
}
if($dat['5']!=null){//本文
$dat_n['txt']=$dat['5'];
}
}
echo $dat_n['name']."<>".$dat_n['mail']."<>".$dat_n['day']."<>".$dat_n['txt']."<>\n";