昨日仕掛けて寝ていたんだけど

日記

昨日仕掛けて寝ていたんだけど

 dir=['e:/2003/a','e:/2000/a','e:/2001/a','e:/2002/a']

を

 dir=['e:/2003/a','e:/2000/a','e:\2001\a','e:\2002\a']

としていた動くわけねえよな。

というわけで正式版

 #!/usr/bin/ruby -Ks
 dir=['e:/2003/a','e:/2000/a','e:/2001/a','e:/2002/a']
 dd=dir[0]
 dir.each{|dd|
 	Dir.glob(dd+'/*'){|d|
 		m = %r!/(\d\d)(\d\d)(\d\d)(\d\d)\.txt!.match(d)
 		distdir=d.gsub(%r!(200\d)/a/!){"a/#{$1}/a/#{m[1]}/#{m[2]}/#{m[3]}/"}.gsub(%r!/\d+\.txt!,'')
 		`mkdir #{distdir.gsub('/'){"\\"}}` unless test(?e,distdir)
 		`copy #{d.gsub('/'){"\\"}} #{distdir.gsub('/'){"\\"}}`
 	}
 }