From: KONTRA Gergely <kgergely@...>
Date: 2003-08-13T03:10:11+09:00
Subject: p format - ruby bug? - dumb program?

Hi!

Can I specify how strings are printed, when using the p function?
I mean with ' or with " ?

---
During running a little program, which detects files with the same
content, I get a ruby bug:
processing dir c:\WINDOWS\SYSTEM\VMM32
processing dir c:\WINDOWS\SYSTEM\CatRoot
processing dir
c:\WINDOWS\SYSTEM\CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}
processing dir
c:\WINDOWS\SYSTEM\CatRoot\{127D0A1D-4EF2-11D1-8608-00C04FC295EE}
processing dir c:\WINDOWS\SYSTEM\sfp
processing dir c:\WINDOWS\SYSTEM\sfp\tempcats
processing dir c:\WINDOWS\SYSTEM\DirectX
processing dir c:\WINDOWS\SYSTEM\DirectX\Migrate
processing dir c:\WINDOWS\SYSTEM\DirectX\Dinput
processing dir c:\WINDOWS\SYSTEM\Drivers
Ooops c:\WINDOWS\SYSTEM\VJOYD.VXD: No such file or directory -
c:\WINDOWS\SYSTEM
\DirectX\Migrate\vjoyd.vxd
same.rb:4: [BUG] rb_sys_fail() - errno == 0
ruby 1.8.0 (2003-08-04) [i386-mingw32]


abnormal program termination

It is a self-compiled ruby.

The program follows: BTW: can anybody simplify it, or make it clearer.
It seems to work, but I think it can be written more compact...
(I wrote it in python (I don't know python, I just tried it), and the
outputs are different.)
============================================================
$files=Hash.new { [] } # {theSize=>[[fn1,fn2],[fn3]]} fn1 and fn2 have same content

def equalFiles? fn1, fn2
  f1=File.open fn1,'r'
  f2=File.open fn2,'r'
  while chunk1=f1.read(512)
    chunk2=f2.read(512)
    return false if chunk1!=chunk2
  end
  return true
end

def processDir(dir='.')
  $stderr.print "processing dir #{dir}\n"
  Dir.foreach(dir) {|f|
    begin
      next if f=='.' or f=='..'
      fn=dir+'\\'+f
      if File.directory? fn
fnprocessDir fn
      else
elsesize=File.size fn
fnif
fnif  ($files[size]).each{|fn2| # process each segment
segment    if equalFiles? fn,fn2[0]
fn2      #fn2.replace fn2.push(fn)
fn      fn2<<=fn
fn      break nil
nil    end
end  }
end  $files[size]<<=[fn]
fnend
      end
    rescue
      $stderr.print "Ooops #{fn}: #$!\n"
    end
  }
end

processDir ARGV[0]
puts '='*60
$files.sort.each {|h|
  size,arr_size=h
  arr_size.each {|segment|
    if segment.size>1
      print "#{size} -> "
      p segment
    end
  }
}
============================================================

-- 
+-[ Kontra, Gergely<kgergely@mcl.hu> PhD student Room IB113 ]---------+
| http://www.mcl.hu/~kgergely            "Olyan langesz vagyok, hogy  |
| Mobil:(+36 20) 356 9656 ICQ: 175564914   poroltoval kellene jarnom" |
+-- Magyar php mirror es magyar php dokumentacio: http://hu.php.net --+