#!/bin/bash

perl -ne '($key,$value)=split("=", $_, 2); print $key; defined $value and do { $value =~ y/A-Z/a-z/; print "=", $value; };' <alltext.properties >alltext_en_US_LOWERCASE.properties

perl -ne 'BEGIN { sub funcase($) { @s = split(//, @_[0]); for ($i = 0; $i < @s; $i++) { $c = $s[$i]; if ($i % 2 == 0) {$c =~ y/a-z/A-Z/; } else { $c =~ y/A-Z/a-z/;} $s[$i] = $c; } return join("", @s); } } ($key,$value)=split("=", $_, 2); print $key; defined $value and do { $value = funcase($value); print "=", $value; };' <alltext.properties >alltext_en_US_CRAZYCASE.properties

