repo.or.cz
/
zcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
history
|
raw
|
HEAD
added error logging to the searching so that bad zservers can be removed
[zcc.git]
/
bin
/
marc-split-xml.rb
blob
c2e5adf318a7c4b0efd4453068e7a27352e788fc
1
require 'rubygems'
\r
2
require 'marc'
\r
3
orig_file = ARGV[0]
\r
4
str_len = orig_file.length
\r
5
save_dir = orig_file[0,str_len-4]
\r
6
puts save_dir
\r
7
Dir.mkdir(save_dir)
\r
8
records = MARC::Reader.new(orig_file).to_a
\r
9
\r
10
records.each_with_index do |obj, i|
\r
11
Dir.chdir("#{save_dir}") do
\r
12
File.open("#{i}.mrc", "w") do |f|
\r
13
f.puts obj.to_marc
\r
14
end
\r
15
end
\r
16
end
\r