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

79 ：名無しさん：2014/06/23(月) 15:59:51.99 ID:7JzZLnV/S

>>78
$raw = file_get_contents(datのURL);
$response = mb_convert_encoding($raw,"UTF-8","SJIS-WIN");

foreach(explode("\n",$raw) as $key => $data){
@list($name,$mail,$day,$hon) = explode("<>",$data);
$name_ss = preg_replace("/\s*?<\/?b>\s*/i","",$name);
$name_s = htmlspecialchars($name_ss,ENT_QUOTES,"SJIS-WIN");
$mail_s = htmlspecialchars($mail,ENT_QUOTES,"SJIS-WIN");
$day_s = htmlspecialchars($day,ENT_QUOTES,"SJIS-WIN");
$title_s = htmlspecialchars($title,ENT_QUOTES,"SJIS-WIN");
$hon_s = mb_convert_encoding($hon,"UTF-8","SJIS-WIN");
@$list[$key]['name'] .= mb_convert_encoding($name_s,"SJIS-WIN","SJIS");
@$list[$key]['day'] .= $day_s;
@$list[$key]['hon'] .= mb_convert_encoding($this->links($hon_s),"SJIS-WIN","UTF-8");
}

function links($txt){
$pat = '/((?:https?|ftp):\/\/[-_.!~*\'()a-zA-Z0-9;\/?:@&=+$,%#]+)/u';
$pat2 = '/<a href="\/test\/read.cgi\/([a-zA-Z0-9]+)\/([0-9]+)\//u';
$pat3 = '/([0-9]+)" target="_blank">/u';
$after = '<a href="\1">\1</a>';
$after2 = '<a href="\1">';
$txts = preg_replace($pat2,"",$txt);
$ret2 = preg_replace($pat3,$after2,$txts);
$ret= preg_replace($pat,$after,$ret2);
return $ret;
}
こんな感じにしてみました。