Perl标量的特有用的函数

 　　对标量进行操作还可以使用下面的函数。
　　第一个是length()，这个函数可以返回变量打印出来的长度。例如：
　　　length(23)，将会返回2；
　　　length("hahaha")，将会返回6；
　　　length(1)将返回1。
　　在perl5中length("你好")，将会返回4，听说在perl5.6中将不会。我没有实验过，不好说什么。
　　第二个函数是chop()。这个函数将会节掉字符串中的最后一个字符，例如：
　　　$g="aaa";
　　　chop($g);
　　这时$g中的值是"aa";同时chop会返回它所截下来的字符。试一试 $g="你好"; chop($g); 会发生什么？
　　第三个函数是chomp()，这个函数仅仅将字符串末尾的换行符裁掉。
　　第四个函数是substr()这个函数可以从一个字符串中截取一段长度的字符串并将其返回。例如：
　　　$h="hello all";
　　　$i=substr($h,3,5)
　　将会从“hello all”中截取长度为5的字符串，就是"lo al"。试一试这样呢？
　　　$h="你们好吗？"；
　　　$i=substr($h,3,5)；
　　第五个很有用的函数就是defined()，这个函数用来判断一个数据是否已经定义。在perl中，一个数据如果没有定义，那么他将会是一个叫做undef的特殊值。　defined()是一个非常有用的函数。至少我经常用。有其是在判断cgi输入的时候。