用Perl内置的函数更改大小写

Perl提供了四个内置的函数类，从而能够轻松地改变字符和字的大小写。函数uc()会用大写返回其所有的参数，而lc()会用小写返回其参数。如果没有指定参数的话，uc()和lc()都会对$_变量进行操作。
要改变字的首字母的大小写，就要使用ucfirst()和lcfirst()。和uc()以及lc()类似，如果没有指定参数，ucfirst()和lcfirst()会对$_变量进行操作。
这四个函数都不会改变其参数；它们只是会返回其参数的副本，而这个副本经过了改变。所以，你必须将结果分派给一个变量或者打印它，或者用其他的方式使用返回的值。像下面这样做是一个常见的错误：

$a = 'hello';
uc($a);
print $a;

第一眼看上去，你可能会预计这段代码将打印“HELLO”。但是，由于uc()没有更改其参数，所以它的结果只打印了小写的“hello”。要获得预期的结果，就要使用像下面这样的代码：

$a = 'hello';
$a = uc($a);
print $a;

更改字的大小写的另一种方式，是对双引号里面的字符串使用/L和/U逸出序列。使用下面的代码你可以获得与前面相同的结果：

$a = 'hello';
print "/U$a/E";

逸出字符/E会结束前面逸出字符（在这里是/U）开始的内容。

利用Perl内置的大写和小写函数，以及双引号里的逸出字符/U和/L，改变（字符的）大小写是很容易的。