Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
#! /usr/bin/ruby -w # -*- coding: japanese-cp932 -*- $KCODE = 's' require 'jcode' lines = Array.new header = nil while line = gets() line.strip! if line =~ /^(計測場所,)?(Date|計測日),/ header = line elsif line =~ /^\d/ || line =~ /^[^,]+,201\d/ line.tr!('０-９', '0-9') line.tr!('Ａ-Ｚ', 'A-Z') line.tr!('ａ-ｚ', 'a-z') line.gsub!(/．/, '.') line.gsub!(/，/, '.') line.gsub!(/−/, '-') line.gsub!(/"(\d+),(\d)"/, '\1.\2') line.gsub!(/\/(\d)\//, '/0\1/') line.gsub!(/\/(\d),/, '/0\1,') line.gsub!(/,(\d):/, ',0\1:') line.gsub!(/\.0+,/, ',') lines.push(line) end end if header =~ /^計測場所/ a = header.split(/,/, -1) a[0],a[1],a[2] = a[1],a[2],a[0] header = a.join(',') newlines = Array.new lines.each { |s| a = s.split(/,/, -1) if a[3] =~ /^([\d.]+) *nSv\/h/ a[3] = $1.to_f * 0.001 elsif a[3] =~ /^([\d.]+)/ a[3] = $1 end if a[4] =~ /^([\d.]+).*未満/ a[4] = '<' + $1 elsif a[4] =~ /^([\d.]+)/ a[4] = $1 end if a[0] =~ /^\d+\// a.insert(5, '-') else a[0],a[1],a[2] = a[1],a[2],a[0] end newlines.push(a.join(',')) } lines = newlines end lines.sort! lines.uniq! print header, "\r\n" n = header.split(/,/, -1).size lines.each { |s| print s.split(/,/, -1)[0...n].join(','), "\r\n" }