Ruby進行檔案資訊輸出執行個體代碼

示範代碼：
[code]
#!/usr/bin/env ruby
COUNT = 10
require 'benchmark'
$account_chars = ('A'..'Z').to_a.delete_if {|c| c =~ /[AEIOUY]/ }
#$password_chars = ('0'..'9').to_a
$password_chars = Array.new
$password_chars[0..9] = ('0'..'9').to_a
$password_chars[10..36] = ('A'..'Z').to_a
def account_char
$account_chars[rand($account_chars.length)]
end
def password_char
$password_chars[rand($password_chars.length)]
end
def account_chars
account_chars = []
6.times {|c| account_chars << account_char }
account_chars
end
def password
begin
begin
password = ''
password << password_char
end while password == '0'
4.times { password << password_char }
end while password =~ /^(.)\1\1\1\1$/
password
end
accounts = {}
lines = []
puts Benchmark::CAPTION
puts Benchmark.measure {
COUNT.times do
i = 0
account_chars.inject(accounts) do |a, c|
i += 1
i == 6 ? a[c] = password : a[c] ||= {}
end
end
}
puts Benchmark.measure {
accounts.each do |char, chars|
account = [char]
chars.each do |char, chars|
account << char
chars.each do |char, chars|
account << char
chars.each do |char, chars|
account << char
chars.each do |char, chars|
account << char
chars.each do |char, password|
account << char
lines << "#{account.join}\t#{password}\r\n"
account.pop
end
account.pop
end
account.pop
end
account.pop
end
account.pop
end
end
}
puts Benchmark.measure {
open 'account.txt', 'wb' do |f|
f.print lines.delete_at(rand(lines.length)) until lines.empty?
end
}
運行後輸出到： account.txt檔案中。
輸出資訊格式如下：
資料是隨機的，所以每次的記錄都會不同。
SZQGMC XC6KP
HLVGTZ HCU30
KTSNNF LSNVS
KWMHRQ 3SM07
BTTZCZ DYMUH
DMKPVN GMJHL
KCFKDR X8X8V
VMMJHB X1D65
SRCPGZ T2IP6
WLRMBT 7YA2Y