phpのcurl

以前作成していた横断検索システム(未完成)につかったcurlのメモ。

(curlはデフォルトではいっていないのでインストール必要だったはず)

とにかく力技で横断検索したり、データをとってくるとき便利。

もってきた検索結果htmlの解析は正規表現で。

以下のオプションはけっこう適当。

$post_data = "title=knowledge";

$ch = curl_init();
curl_setopt($ch, CURLOPT_URL,"http://library-documents.jaea.go.jp/opac/r_search_result.asp");
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_POSTFIELDS, $post_data);

$result = curl_exec($ch);

	if ($result === false){
		print curl_error($ch);
		exit();
	}

curl_close($ch);

echo $result;

Rでカウント

おなじようにRで文字列の重複をカウントするコマンドめも

> df <- data.frame(bunrui = c("S54","S54","S63","S63","S63","S62","S54","S60","S63","S62"))
> table(df$bunrui)

S54 S60 S62 S63 
  3   1   2   4
> summary(df)
     bunrui  
 S62    :35  
 S63    :25  
 C1400  :12  
 S61    :10  
 S54    : 6  
 C2120  : 5  
 (Other):41