gistfile1.rb

#!/usr/bin/env ruby

require 'mail'

# source = 'archives/2005-11.txt'
# month = 11
# year = 2005
# 
# system "perl -ne 'if(/^From /){open F,\">eml/msg-#{year}-#{month}-\".++$m.\".eml\"}print F' #{source}"

Dir.glob("eml/*.eml").each do |f|
  mail = File.read f
  mail.gsub!(/From(:)?(.*) a (.*)/, 'From\1\2@\3')
  File.open(f, "w") {|f| f.puts mail}
  mail = Mail.read f
#  puts mail.methods.sort.inspect
  puts mail.envelope_from   #=> vanno pulite le email sorgenti
  # puts mail.from.addresses  #=> ['mikel@test.lindsaar.net', 'ada@test.lindsaar.net']
  # puts mail.sender.address  #=> 'mikel@test.lindsaar.net'
  # puts mail.to              #=> 'bob@test.lindsaar.net'
  # puts mail.subject         #=> "This is the subject"
  # puts mail.date.to_s       #=> '21 Nov 1997 09:55:06 -0600'
  # puts mail.message_id      #=> '<4D6AA7EB.6490534@xxx.xxx>'
  # # puts mail.body.decoded    #=> 'This is the body of the email...
  # puts
end