その他雑多なこと(tDiary版)
2003/11/30 [日]
_ みんなで朝食を取って9時半頃にチェックアウト。全員で集合写真を撮って解散。帰りは14:25のもみじ号にしていたので4時間くらい時間があるなぁ、と思っていたんだけど、車組からお誘いがあったので便乗させもらうことにした。
宇都宮で御茶呂という店で海老フライを食べる。これが尋常ではなくて太巻くらいの大きさ、これが2尾あるのだ。見ただけでおなか一杯という感じだ。
大宮まで送ってもらい帰宅。
2004/11/30 [火]
_ mixi登録
登録してみました。夜中は重くてちょっと使いづらいです。βテストらしいので今後に期待でしょうかね。
プロフィール編集時に登録時より必須項目が増えてしまうのはどうかな、と思ったりしますがね。
2005/11/30 [水]
_ [PC][News] 300GB/1枚の光ディスク
日立マクセルのホログラフィックストレージ(CNET JAPAN)。
感光効率が高い、ということなので、カートリッジから取り出し不可だったりしそうだ。ドライブの単価やメディアの単価しだいでは、久しぶりに個人で購入できるHDDまるごとバックアップ可能なリムーバルメディアとなるかも。
スループットが読み出しでの数値なのか、書き込みでも同様なのか気になるところだが、300GB全部を読むのに5時間弱で済むのはいいことだ。ランダムアクセスに成功していない、とあるが、ディスクなので擬似的にランダムアクセスさせるのは不可能ではないはず。
_ [PC] バックアップ
会社マシンが変わったのでバックアップを見直し。
今まではHDDが2台載っていたのでpdumpfsで作業ファイルをバックアップしていたけれど、今回は1台。pdumpfs使えないことはないが、バックアップにはならない。
幸いCD-R/RWドライブ搭載で、WindowsXpなので、更新のあったファイルをCD-RWに書き出そうと思った。
コマンドラインのxcopyを使えばある日付以降の更新ファイルはコピーできる。でも毎回コマンドを叩くのは面倒だ。という訳でWindows Scripting Hostでスクリプトを書いてみた。定期的に動かして気がむいたらCD-RWに焼けば増分バックアップとなる。pdumpfsほど便利ではないけれど、ないよりマシ。
Dim now
Dim predate
Dim nextdate
nextdate=Month(Date) & "-" & Day(Date) & "-" & Year(Date)
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set f = Fs.OpenTextFile("test.dat")
predate = f.ReadLine
cmd = "xcopy ""%UserProfile%\My Documents"" ""%UserProfile%\Local Settings\Application Data\Microsoft\CD Burning\" & nextdate & "\"" /S /E /H /R /Q /Y /K /D:" & predate
Set wShell = CreateObject("WScript.Shell")
Set oExec = wShell.Exec(cmd)
Set f2 = Fs.CreateTextFile("test2.dat")
f2.Write nextdate
Set oExec = wShell.Exec("cmd /c move /y test2.dat test.dat")
2007/11/30 [金]
_ [SF][本] 「星を継ぐもの」読了
「星を継ぐもの」(ジェイムズ・P・ホーガン,池 央耿(著))[bk1][amazon]読了。
ブックオフの100円棚で見つけて、つい買ってしまった。で、読んでみたんだが……。
以前、野尻ボードで野尻抱介が「SFは陳腐化する文学」といったことを言っていたが、今回ほどその台詞を実感したことはなかった。
冒頭の予約シーンからはじまって、月の件など古臭く、読んでいてつらくてつらくてたまらなくなった。いや、内容そのものは、さすが名作と言われるだけあって面白いのだが、今の視点ではどうにも堪えられないのだ。せめて10年前に読んでおきたかった。もしくは100年後に(ぉぃ)。
2008/11/30 [日]
_ 竹内一詔 [バックアップで無駄な空ディレクトリを作ってしまうので、xcopyのオプションの'/E'をはずすことにしました。]