ruby-list

佐藤@東邦大です。

溜ったメールを処理するちょっとしたものを作ってみました。
が、brush upをしたいと思い、こちらに投げさせていただきます。

このスクリプトを起動すると、指定したメールフォルダで指定した日数以上を経過
したメールをアーカイブし、削除します。
(ここでのメールは、mh形式を意識しています)

アーカイブファイルは
	     「Folder名-処理を開始した時間(秒まで).tar.gz」
となります。
また、各アーカイブには、00indexというファイルが含まれ、その中には、アーカ
イブに含まれた各メールの番号、From、Subjectが入ります。
# 以前はindex作成の部分をimlsにやらせたもんで倍近く時間がかかりました
# 今回、スクリプト自身にやらせたのでほぼ一瞬でできるようになりました

アーカイブ用ディレクトリは*先に作成しておいて*ください。

作業そのものがけっこうクリティカルなため、けっこう例外処理を含めていますが、
不完全なこと甚しいです。
実際に使うという方は、これでいいと思えるまでは変数nodelを1にして、削除しな
いようにしておきましょう。

  * スピードアップのため、冗長になっている部分の削除や変更
  * 安全性向上のため、例外で処理すべき部分の追加、正当性の確認

が目下の目標となっております。
ぶしつけですが、よろしくお願いいたします。

===
やさいはけんこうにいちばーん！たくさんたべんとおおきくなれんよー！
                                       (シルバー王女@クレヨン王国)
ばーい 佐藤 大輔/densuke@ga2.so-net.ne.jp
                 (CQD00116@niftyserve.or.jp)

	I don't read those mail(s):
		- with the header "Application/MS-*"
		- which cannot read due to "Moji bake"

PS. indexはEUCのまんまのほうがやっぱりいいかもしんない、どーでもいーけど
                                               (ホーレソレ@野菜の精風に)

#!/usr/bin/ruby

# === カスタマイズされうる変数

mailDir = "~/Mail"  # メールディレクトリ(後で展開されます)
archDir = "~/mail-archive" # アーカイブディレクトリ(同)
tar = "/bin/tar"

nodel = 0  # 1にすると削除しません

folders = [         # ["フォルダ名", (日数)] のペア 以下はサンプル
  ["ruby", 7],
  ["Linux-users", 7],
  ["Pilot-ML", 7],
  ["enkai-ML", 7],
  ["mew", 7],
  ["ppxp", 7],
  ["tlug-server", 7],
  ["xemacs", 2]
]

# === ここまで

require "mailread"  # メールの処理をしてくれます
require "parsedate" # 日付を処理してくれます
require "kconv"
include ParseDate

numRe = /^[0-9]+$/
retRe = /\n/

mailDir = File.expand_path(mailDir)
archDir = File.expand_path(archDir)
now = Time.now

i = 0
folders.each{ |folder|
  n = 0
  i += 1
  print "--- #{folder[0]} (#{i}/#{folders.size}) #{folder[1]}日以前---\n"
  begin
    dir = Dir.open(mailDir + "/" + folder[0])
  rescue
    $stderr.print "ディレクトリ #{folder[0]}のオープンに失敗しました\n(#{$!})\n"
    next
  end
  files = dir.collect { |f|
    if f =~ numRe then f else nil end
  }.sort { |a, b|
    a.to_i <=> b.to_i
  }.compact
  dir.close

  diff = folder[1] * 24 * 60 * 60
  list = []
  index = []
  
  files.each{ |file|
    mail = Mail.new(mailDir + "/" + folder[0] + "/" + file)
    y, m, d = parsedate(mail.header["Date"])
    fdate = Time.mktime(y, m, d)
    if (now - fdate) > diff then
      n += 1
      list << file
      begin
	from = Kconv.tojis(Kconv.toeuc(mail.header['From'].gsub(retRe, " "))[0..20])
      rescue
	from = " " * 20
      end
      begin
	subject = Kconv.tojis(Kconv.toeuc(mail.header['Subject'].gsub(retRe, " "))[0..40])
      rescue
	subject = " " * 40
      end
      index << sprintf("%5d %-20s | %-40s", file, from, subject)
    end
  }
  
  if n > 0 then
    print "#{n} ファイルありました。\n"
    arch = "#{archDir}/#{folder[0]}-#{now.strftime('%Y%m%d%H%M%S')}.tar.gz"
    begin
      Dir.chdir("#{mailDir}/#{folder[0]}")
    rescue
      $stderr.print "chdirに失敗しました(#{$!})\n"
      exit 1
    end
    print "インデックス生成中..."
    $stdout.flush
    ifile = open("00index", "w")
    index.each { |s|
      ifile.print "#{s}\n"
    }
    ifile.close
    print "アーカイブ中..."
    $stdout.flush
    begin
      fork {
	exec "#{tar} czf #{arch} 00index #{list.join(' ')}"
      }
    rescue
      $stderr.print "子プロセス実行時にエラーが発生しました\n(#{$!})\n"
    end
    Process.wait
    if $? > 0 then
      $stderr.print "失敗しました\n"
      exit 1
    end
    if nodel == 0 then
      print "削除中..."
      $stdout.flush
      list.push("00index")
      begin
	File.unlink(*list)
      rescue
	$stderr.print "ファイル #{file} の削除に失敗しました\n(#{$!})\n"
	exit 1
      end
      print "完了\n"
    end
  else
    print "削除すべきファイルはありません\n"
  end
}

Thread

Prev Next

In This Thread

Prev Next

[#7286] cmp operator — NAGAI Hidetoshi <nagai@...>

[#7287] mine — Takahiro Maebashi <maebashi@...>

[#7288] plain2 + popmail — tateishi@...

[#7292] Exception in ruby — TAKAHASHI Masayoshi <maki@...>

[#7295] Hash.key の繰り返し数 — Sinichiro Dezawa <dezawa@...>

[#7299] + operator — TEI meiki <tei@...>

[#7310] Re: modulo — toyofuku@...

[#7315] recovery of exception — tateishi@...

[#7316] README.EXT.jp — tateishi@...

[#7323] Re: miner matrix — toyofuku@...

[#7324] Re: miner matrix — toyofuku@...

[#7325] Re: miner matrix — toyofuku@...

[#7327] subscribe to ML — Saburo Ide <saburo@...4u.or.jp>

[#7328] p {} — gotoken@... (GOTO Kentaro)

[#7330] sub, gsub bug? — 金子尚史 <wbs01621@...>

[#7331] Email Millions with FREE REGISTERED Stealth !!! — 26348868@...

[#7334] — Kazutomi Ueda <ueda@...>

[#7339] please register me — Yuji Shigehiro <sigehiro@...>

[#7342] '$' in regexp — TAKAHASHI Masayoshi <maki@...>

[#7348] mirror.rb — shugo@... (Shugo Maeda)

[#7354] def foo=(a,b) — keiju@... (Keiju ISHITSUKA)

[#7356] Q: jcode.rb tr(String + nil) — WATANABE Tetsuya <tetsu@...>

[#7376] [Q] Thread — keiju@... (Keiju ISHITSUKA)

[#7378] Re: sub, gsub bug? — Katsuyuki Okabe <HGC02147@...>

[#7380] string replace — KANEKO Naoshi <wbs01621@...>

[#7386] Dir.foreach — "Hiroshi Ishikawa(NIMS)" <h-isikaw@...16.nims.nec.co.jp>

[#7388] inf-ruby.el — senda@...

[#7399] chomp — NAGAI Hidetoshi <nagai@...>

[#7410] irb — keiju@... (Keiju ISHITSUKA)

[#7412] ruby-mode.el (1.1b9_09) — WATANABE Tetsuya <tetsu@...>

[#7430] alpha-dec-osf3.0 — gotoken@... (GOTO Kentaro)

[#7433] Registration & initialize method in subclass of builtin class — Inaba Hiroto <inaba@...>

[#7435] Re: same name methods — ttate@...

[#7439] character code and bug? — TAKAHASHI Masayoshi <maki@...>

[#7440] subscribe — mugi@...3.so-net.or.jp

[#7442] telnet.rb — Wakou Aoyama <wakou@...>

[#7443] delegate.rb(1.1b9_09) — Wakou Aoyama <wakou@...>

[#7450] Re: call for scripts — 助田 雅紀 <masaki.suketa@...>

[#7457] Re: call for scripts — 助田 雅紀 <masaki.suketa@...>

[#7463] slanglib — Kikutani Makoto <kikutani@...>

[#7464] subscribe for ruby-list — Kazuhiro HIWADA <hiwada@...>

[#7465] call for script — ttate@...

[#7466] s/3*/=/g — toyofuku@...

[#7469] [Q]ensure — Makoto Nukui <gnue@...>

[#7470] [Q]class method — Makoto Nukui <gnue@...>

[#7471] scope — Wakou Aoyama <wakou@...>

[#7472] socket — Wakou Aoyama <wakou@...>

[#7492] Tcl/Tk fileevent — NAGAI Hidetoshi <nagai@...>

[#7495] Re: [Q]class method — Makoto Nukui <gnue@...>

[#7496] Re: [Q]ensure — Makoto Nukui <gnue@...>

[#7500] List on List — WATANABE Hirofumi <watanabe@...>

[#7509] クラスの変更 — Mitsuru Ogino <ogino@...>

[#7510] s/3*/=/g — toyofuku@...

[#7513] GD 0.5 compile error — Noritsugu Nakamura <nnakamur@...>

[#7520] variable of ruby — Makoto Nukui <gnue@...>

[#7521] 永続オブジェクトとオブジェクト指向 DB... — Makoto Nukui <gnue@...>

[#7522] Re: [Q]ensure — Makoto Nukui <gnue@...>

[#7523] Re: [Q]class method — Makoto Nukui <gnue@...>

[#7524] 永続オブジェクトとオブジェクト指向 DB... — Makoto Nukui <gnue@...>

[#7533] Re: variable of ruby — Makoto Nukui <gnue@...>

[#7534] Re: 永続オブジェクトとオブジェクト指向 DB... — Makoto Nukui <gnue@...>

[#7535] Re: 永続オブジェクトとオブジェクト指向 DB... — Makoto Nukui <gnue@...>

[#7539] Re: scope — Makoto Nukui <gnue@...>

[#7541] simple_chat_server.rb — Wakou Aoyama <wakou@...>

[#7559] link on ruby's page — SUNAGAWA Keiki <Keiki_SUNAGAWA@...>

[#7582] Re: List on List — Makoto Nukui <gnue@...>

[#7588] Re: [Q]class method — Makoto Nukui <gnue@...>

[#7590] instance variable — Makoto Nukui <gnue@...>

[#7591] How to write Perl's `@a[@b] = @c' in ruby — Inaba Hiroto <inaba@...>

[#7596] Re: instance variable — Makoto Nukui <gnue@...>

[#7597] http-lib.rb — Wakou Aoyama <wakou@...>

[#7598] Marshal... — Makoto Nukui <gnue@...>

[#7599] Re: [Q]class method — Makoto Nukui <gnue@...>

[#7600] manual sample (socket) — WATANABE Tetsuya <tetsu@...>

[#7603] Hello! — Hiroyuki Ueki <ueki@...>

[#7616] patches for ruby-1.1b9 — akira yamada / やまだあきら <akira@...>

[#7617] banner... — Makoto Nukui <gnue@...>

[#7618] Re: 永続オブジェクトとオブジェクト指向 DB... — Makoto Nukui <gnue@...>

[#7620] GD 0.5 typo — Noritsugu Nakamura <nnakamur@...>

[#7621] Re: Marshal... — Makoto Nukui <gnue@...>

[#7450] Re: call for scripts — 助田　雅紀 <masaki.suketa@...>

[#7457] Re: call for scripts — 助田　雅紀 <masaki.suketa@...>

[#7634] Re: dir search — 助田　雅紀 <masaki.suketa@...>

[#7635] Re: dir search — 助田　雅紀 <masaki.suketa@...>

[#7641] local of Time class — 助田　雅紀 <masaki.suketa@...>

[#7664] private and protected — 助田　雅紀 <masaki.suketa@...>

[#7668] Re: private and protected — 助田　雅紀 <masaki.suketa@...>

[#7670] Re: private and protected — 助田　雅紀 <masaki.suketa@...>

[#7697] Re: private and protected — 助田　雅紀 <masaki.suketa@...>

[#7703] Out of Range — 助田　雅紀 <masaki.suketa@...>

[#7708] Re: Out of Range — 助田　雅紀 <masaki.suketa@...>

[#7717] mail.rb(call for scripts) — 助田　雅紀 <masaki.suketa@...>

[#7752] ftplib — 助田　雅紀 <masaki.suketa@...>