Hatena::Grouprubyist

たばさの RSSフィード

05/07(水) 2008

割合でファイルコピー

| 割合でファイルコピー - たばさの を含むブックマーク はてなブックマーク - 割合でファイルコピー - たばさの

binary

コピーしない分も読み込む無駄あり


# cutfile.rb
n,t,total,from,to = ARGV
if ARGV==[]
  puts "usage: #{$0} fromfile tofile 100 10 30 \n => total=100, start=10 end=30"
end
total,from,to=total.to_i,from.to_i,to.to_i
total,from,to=100,0,100  if total==0
to=total  if to==0
open(n,"rb"){|f|
  $dat=f.read
}
start=$dat.size*from/total
goal=$dat.size*to/total
per=(goal-start)*100/$dat.size
# dd=$dat[start..goal]
puts "#{n} -> #{t} ; #{start} to #{goal}  ( #{per}% of  #{$dat.size} )"
goal=-1 if to==total
if File.exist?(t)
  puts "#{t} already exists."
end
puts"ok?"
exit if STDIN.gets.downcase[0] =="n"[0]
open(t,"wb"){|f| f.print $dat[start..goal]}
puts "copy end"

トラックバック - http://rubyist.g.hatena.ne.jp/hatecha/20080507
カレンダー
<< 2008/05 >>
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
archive Error : RSSが取得できませんでした。