更改文本大小写实用程序

Posted 2021-02-25

Just run in your consol window as ./tocase (or whatever you call the file). Be sure to give it proper permission first (chmod 755 tocase) :]

#!/usr/bin/perl -w
use strict;
use 5.010;
 
my ($type, $string);
 
print "What type of case? (upper/lower):
";
while (<STDIN>) {
	chomp;
	if (/^(upper|lower)$/i) {
		$type = $_;
		last;
	} else {
		print "Invalid type please type upper or lower:
";
	}
}
 
print "Please enter your text:
";
chomp($string = <STDIN>);
given ($type) {
	when ("upper") { print "U$string" }
	when ("lower") { print "L$string" }
}
 
print "
";