マスタカの ChangeLog メモ

■ flv から音声を抜き出す方法 [Debian]

Flash Video から音声を抽出して、mp3 にする方法です。

ffmpeg がインストールされていなかったら、Synaptic パッケージマネー
ジャや、aptitude でインストールします。

あとは以下のコマンドを実行するだけです。hoge.flv の音声が hoge.mp3
として抽出されます。

% ffmpeg -i hoge.flv -acodec copy hoge.mp3

↓これを抽出したかったんです。(^^)


参考 URL: Linuxでflvからmp3へ変換する方法 - よしみ視点
関連記事: swf から音声を抜き出す方法 [2009-07-10-2]

■ タイムスタンプを変えずに文字コードを変換する方法 [sh]

必要になって調べたので、メモメモ。

以下の例では、hoge.txt のタイムスタンプを変えずに UTF-8 に変換している。

#!/bin/sh

FILE=hoge.txt
TIMESTAMP=`ls -d -l --time-style=full-iso $FILE | awk '{print $6 " " $7 }'`
echo $FILE
mv $FILE ${FILE}.bak
nkf -w ${FILE}.bak > $FILE
rm ${FILE}.bak
touch -d "$TIMESTAMP" $FILE

■ Subject も本文も存在しないメールはスパムフォルダに振り分け [procmail]

最近 1 日に 10 通程度、毎回違う From で Subject も本文も存在しない
スパムが来るのですが、bsfilter で捕捉できません。仕方がないので、そ
のようなメールは問答無用でスパムフォルダに振り分けることにしました。

以下が ~/.procmailrc のレシピです。touch しているのは、Mew でスパム
フォルダを訪問した時に自動でスキャンを走らせるためです。

PATH=${HOME}/bin:${PATH}
MAILDIR=${HOME}/Mail
:0
* !^Subject:
{
      :0 HB:
      * ? mail-body-empty
      * ? touch ${MAILDIR}/spam/.mew-mtime
      ${MAILDIR}/spam/.
}

mail-body-empty は自作の Ruby スクリプトです。~/bin に置きました。
以下にコピペします。

#!/usr/bin/ruby

# 標準入力から渡されたメールの本文が空だったら 0、空でなかったら 0 以外を返す。
# メール本文が空行のみ、または空行の連続を「空」と定義する。

mode = :header

STDIN.each do |line|

  case mode
  when :header
    if /^$/ =~ line
      mode = :body
    end
  when :body
    unless /^$/ =~ line
      exit 1
    end
  end

end

exit 0

### End of file

最初は "* ? mail-body-empty" でなく "* < 1" と書いていたのですが、
うまくいかなかったのでこのスクリプトを作りました。どうやら "<" は
ヘッダと本文の合計サイズを評価する仕様のようです。

■ 本を売却 [Book]

起きていることはすべて正しい—運を戦略的につかむ勝間式4つの技術
断る力
会社に人生を預けるな リスク・リテラシーを磨く
孫子の兵法—ライバルに勝つ知恵と戦略
大人のための「北斗の拳」人物伝
2ちゃんねる宣言—挑発するメディア

以上をブックオフで売ってきました。これで 320 円です。
前回ブックオフで売ったのは [2009-03-29-1] でした。

こうして見るとごったまぜですね。
私の場合、小説以外は躊躇なく売る傾向にあるようです。

■ Emacs で登録されている timer の一覧を表示 [Emacs]

Emacs スレで紹介されていたコードを、ここにコピペ。

(defun describe-timer ()
  (interactive)
  (let ((tl timer-list)
        timer)
    (pop-to-buffer (get-buffer-create "*timer*"))
    (erase-buffer)
    (insert
     "TIME           FUNCTION\n"
     "-------------- --------------------------\n")
    (while tl
      (setq timer (car tl))
      (insert
       (concat
        (format-time-string "%m/%d %T"
                            (list (aref timer 1)(aref timer 2)(aref timer 3)))
        " "
        (symbol-name (aref timer 5))
        "\n"))
      (setq tl (cdr tl)))))

こんな出力が得られる。

TIME           FUNCTION
-------------- --------------------------
12/05 16:05:00 display-time-event-handler
12/05 16:06:32 mew-passwd-timer
12/05 16:07:43 twittering-timer-action