Perlのソースコードに自動でセミコロンつけるやつ

perl_auto_semicolon.rb

#! /usr/bin/env ruby
file = ARGV.first

code = open(file).read

def append_semicolon(code, time)
  code.split(/\n/).enum_with_index.map{|line, num|
    time[num] == 1 ? line + ";" : line
  }.join("\n")
end

(1.upto 1.0/0).each{ |i|
  system "clear"
  new_code = append_semicolon(code, i)
  puts new_code
  puts
  puts
  system("echo '#{new_code}' | perl -wc")
  if $? == 0
    puts "created out.pl"
    open("out.pl", "w"){ |f|
      f.write new_code
    }
    exit
  end
}