Вычиталка строк.

Есть 1 файл, содержащий строки, заканчивающиеся \r\n
Есть 2 файл, содержащий строки, заканчивающиеся \r\n, являющийся подмножеством 1 файла.

Задача: получить 3 файл, состоящий из строк 1 файла, которых нет во втором файле. Т.е. сделать вычитание одного множества из другого.

На php писать 10-мин, отладить ещё 10. Но интересуют красивые и быстрые решения, которые будут работать быстро с файлами большого размера и не вылетать по ошибке нехватки памяти. Буду признателен, если увижу красивое и оптимальное решение поставленной задачи.
P.S. Для упрошения решения задачи: строки - это md5 хэши в символьном виде.

 

на ruby писал для себя, помимо вычитание умеет еще складывать, сортировать, поднимать и опускать регистр

Code:

#!/usr/bin/ruby

n=ARGV.size
if n<=3 or n>5 
  puts "Not enought arguments\n <firstfile> <secondfile> <+|-> [outputfile] [-su<d|U>]"
  exit
end
$fi_file=ARGV[0]
$se_file=ARGV[1]
$sign=ARGV[2]
if $sign!='+' and $sign!='-'
  puts "Unknow argument #{$sign}"
  exit
end


def make (str)
  sort=false
  udcase=0
  uniq=false
  if str.include? 's' then sort=true end
  if str.include? 'd' then udcase=1 else
    if str.include? 'U' then udcase=2 else udcase=0 end
  end
  if str.include? 'u' then uniq=true end
  return sort,udcase,uniq
end

if n>3
  if !(ARGV[3].include?('-s') or ARGV[3].include?('-d') or ARGV[3].include?('-U') or ARGV[3].include?('-u'))
    $outfile=ARGV[3]
  else
    $outfile=$fi_file+$se_file+'_out'
    $sort,$udcase,$uniq=make ARGV[3]
  end

  if n==5 then  $sort,$udcase,$uniq=make ARGV[4] end

end


begin
 f_arr=IO.readlines($fi_file)
rescue => e
  puts "Can't read file #{$fi_file}:#{e}"
end

begin
 s_arr=IO.readlines($se_file)
rescue => e
  puts "Can't read file #{$se_file}:#{e}"
end

f_arr.each {|x| x.chop!}
s_arr.each {|x| x.chop!}

case $sign
when '-'
  r_arr=f_arr-s_arr
when '+'
  r_arr=f_arr+s_arr
end


if $udcase==1 
  puts "Downcase..."
  r_arr.each {|x| x.downcase!} 
end
if $udcase==2
  puts "Upcase..." 
  r_arr.each {|x| x.upcase!} 
end
if $uniq 
  puts "Delete repetitions..."
  r_arr.uniq! 
end
if $sort 
  puts "Sort..."
  r_arr.sort! 
end

begin
  puts "Create output file #{$outfile}"
  File.open($outfile,"w") {|file| r_arr.each {|x| file.puts x }}
rescue => e
  puts "Can't create file #{$outfile}:#{e}"
end

я думаю преобразование в cgi особого труда не составит