1#!/usr/bin/perl -w 2 3open(INFILE, "$ARGV[0]") || die $@; 4open(OUTFILE, ">$ARGV[0].new") || die $@; 5 6while (<INFILE>) { 7 $_ =~ s/True/true/; 8 $_ =~ s/False/false/; 9 print OUTFILE "$_"; 10} 11 12close(INFILE); 13close(OUTFILE); 14 15rename("$ARGV[0].new", "$ARGV[0]") || die @_; 16 17exit(0); 18 19 20