perl

大小写转换有两种方法，一种用正则中的转意字符，另外一种是字符串函数

功能 转意 函数
全部字母转换成大写 U
?*用E标记结束 uc
全部字母转换成小写 L
?*用E标记结束 lc
首字母转换成大写 u ucfirst
首字母转换成小写 l lcfirst

实例：
#!perl -w
$string="Hello,World!!!";
$string=~s/(Hello)/U$1E/g;
println ($string); #HELLO,World!!!
println ("l$string"); #hELLO,World!!!
println (lcfirst $string); #hELLO,World!!!
println ("U$string"); #HELLO,WORLD!!!
println (uc $string); #HELLO,WORLD!!!

sub println{
my $m=shift or return;
print("$mn");
}

?

?

我在写一个perl script file.其中用到一个变量 $a = TOTO
我怎样才能使这个变量变为小写 "toto"

my ${lowername} = lc(${a});

?

erl提供了四个内置的函数类，从而能够轻松地改变字符和字的大小写。函数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$aE";

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

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