替歌：筑波大学・冬景色

Author: detourist

28 10月

昔どこかで拾ったものに加筆修正。原典は発見できず。

（※つくばエクスプレス開通以前、常磐線経由でつくばに向かう人を歌った歌詞です。）

*　*　*

上野発の普通列車　降りた時から
土浦駅は　風の中
西へ向かう人の群れは　誰も無口で
風鳴りだけを　聞いている
　
私もひとり　関鉄バスに乗り
こごえそうな自転車（※筑波大生の生活必需品）を見つめ　泣いていました
ああ　筑波大学・冬景色
　
ごらんあれが一ノ矢宿舎　北のはずれ（※南北5キロに渡る大学敷地の北端に位置）と
見知らぬ人が　指をさす
息で曇る窓のガラス　拭いてみたけど
遙かに「カスミ」（※つくば市に本社を置くスーパーマーケットチェーン）　見えるだけ
　
さよならあなた　私は帰ります
筑波おろし（※筑波山から吹く冬の風）胸をゆする　泣けとばかりに
ああ　筑波大学・冬景色
　
さよならあなた　私は帰ります
15単位取れなかった（※年間15単位取得できなければ除籍）　悔しさを胸に
ああ　筑波大学・冬景色

*　*　*

元ネタ：津軽海峡・冬景色 / 石川さゆり (詩：阿久悠)

0 Comments

Filed under: つくば, 替歌

NHKニュースを取得・メール送信するスクリプト

Author: detourist

25 10月

携帯版NHKニュースのヘッドラインおよび記事本文を取得し、新着記事をメールで送信するPHPスクリプト。

テレビは点けないし、新聞は取っていない、Webニュースの巡回すら億劫だという（筆者のような）人間でも、これを携帯に送るようにしておけば、移動時間や休憩時間を使ってニュースチェックできますよっと。

【注意】以下のコードでは、不具合によりバックスラッシュが表示されていないので注意。（紺色太文字で表示されている“n”の前に入る。）（スタイルはちゃんと適用されるのに、なんで表示されないかなぁ・・・）

【使用方法】 1.自身で利用可能なサーバマシンにこのスクリプトを設置し、2.キャッシュファイルを作成、3.cronで定期的に実行するように設定。

PHP

<?php
	//変数初期化
	$root_url = "http://www3.nhk.or.jp/knews/";
	$mailto = "<MAIL ADDRESS>";
	$output = "";
	//エンコード設定
	mb_language("Japanese");
	mb_internal_encoding("EUC-JP");
	mb_detect_order("ASCII,UTF-8,EUC-JP,JIS,SJIS");
	//キャッシュファイル指定(※パーミッション注意)
	$f_name = "cache_list.txt";
	//ファイルの内容を1行ごとに配列に格納
	$cache = file($f_name);
	$cache = array_map("trim", $cache); 

	//ニュース一覧を取得
	$data = file_get_contents("$root_url");
	$data = mb_convert_encoding($data, "EUC-JP", "auto");
	$pattern = '/(t[0-9]+.html)/is';
	preg_match_all($pattern, $data, $matches);

	//個々の記事を取得
	foreach( $matches[1] as $match ){
		//キャッシュに無ければ、記事を取得
		if(!in_array($match, $cache)){
			$url = $root_url . $match;
			$data = file_get_contents($url);
			$data = mb_convert_encoding($data, "EUC-JP", "auto");

			$pattern = '/<body>(.*?)<div/is';
			preg_match($pattern, $data, $matches);

			$body = $matches[1];
			$body = "◇". $body;
			$body = preg_replace('/<br><br>/', "n◇", $body);
			$output .= $body;
			$output .= "nn";
		}
		$new_cache[] = $match;
	}
	$new_cache = implode("n", $new_cache);

	//キャッシュファイル更新
	$fp = fopen($f_name, "w+");
	fwrite($fp, $new_cache);
	fclose($fp);

	//メール送信
	if($output!=""){
		$sbject = "NHK News";
		mb_send_mail($mailto, $sbject, $output, $headers);

		echo("Mail Sended.n");
	}else{
		echo("Null.n");
	}
?>

0 Comments

Filed under: PHP