ext/hsplit.rb

   1 #!/usr/bin/ruby -s
   2 # -*- coding: euc-jp -*-
   3 # -*- Ruby -*-
   4
   5 def usage
   6   name = File::basename $0
   7   print <<EOU
   8 #{name}: howm ¥á¥â¤ò, °ì¥á¥â°ì¥Õ¥¡¥¤¥ë¤ËÊ¬³ä (¼êÈ´¤»ÅÍÍ)
   9 (Îã)
  10   #{name} 2004_10_10.txt
  11   ¢ª 2004_10_10.txt.aa, 2004_10_10.txt.ab, ¡Ä ¤¬¤Ç¤¤ë
  12 (¥ª¥×¥·¥ç¥óÎã)
  13   -prefix=hoge.     ¢ª hoge.aa, hoge.ab, ¡Ä ¤¬¤Ç¤¤ë
  14   -help ¤Þ¤¿¤Ï -h   ¢ª ¤³¤Î¥á¥Ã¥»¡¼¥¸¤òÉ½¼¨
  15 EOU
  16 end
  17
  18 #####################################
  19
  20 if ($help || $h || ARGV.length == 0)
  21   usage
  22   exit 0
  23 end
  24
  25 $prefix ||= ARGV[0] + '.'
  26 ext = 'aa'
  27
  28 ARGF.readlines.join.split(/^= /).each_with_index{|x, i|
  29   next if x.empty?
  30   x = '= ' + x if i > 0
  31   open($prefix + ext, 'w'){|io| io.print x}
  32   ext.succ!
  33 }