2 # -*- coding: euc-jp -*-
6 name = File::basename $0
8 #{name}: howm ¥á¥â¤ò, °ì¥á¥â°ì¥Õ¥¡¥¤¥ë¤Ëʬ³ä (¼êÈ´¤»ÅÍÍ)
10 #{name} 2004_10_10.txt
11 ¢ª 2004_10_10.txt.aa, 2004_10_10.txt.ab, ¡Ä ¤¬¤Ç¤¤ë
13 -prefix=hoge. ¢ª hoge.aa, hoge.ab, ¡Ä ¤¬¤Ç¤¤ë
14 -help ¤Þ¤¿¤Ï -h ¢ª ¤³¤Î¥á¥Ã¥»¡¼¥¸¤òɽ¼¨
18 #####################################
20 if ($help || $h || ARGV.length == 0)
25 $prefix ||= ARGV[0] + '.'
28 ARGF.readlines.join.split(/^= /).each_with_index{|x, i|
31 open($prefix + ext, 'w'){|io| io.print x}