perl uc,lc,ucfirst,lcfirst大小写转换函数

 更新时间:2017年10月09日 15:00:10   投稿:mdxy-dxy   我要评论

这篇文章主要介绍了perl 大小写字母转换函数,需要的朋友可以参考下

大小写字母转换:

函数 uc (uppercase) 将所有的小写字母转成大写;

函数 lc (lowercase) 将所有的大写字母转成小写;

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,改变(字符的)大小写是很容易的。

单词首字母大写

$str =~ s/(\w+)/\u$1/

在perl中,我们可以通过uc,lc,\U,\L来修改变量的大小写。其中uc,\U是将变量中的字母全部转换为大写,对应的lc和 \L是将变量中的字母全部转换为小写。如果我们只想将变量的首字母大写或将变量的首字母小写,我们可以使用perl提供给我们的另外两个函数 ucfirst和lcfirst来实现,下面我们来看一个具体的例子:

#! /usr/bin/perl
use strict;
use warnings;

my $little = "hello";
print "little:$little\n";
my $big = uc($little);
print "big:$big";
$little = lc($big);
print "little:$little\n";
$big = "\U$little";
print "big:$little";
$little = "\l$big";
print "little:$little\n";
$big = ucfirst($little);
print "big:$little\n";
$little = lcfirst($big);
print "little:$big\n";

上面的这个程序打印的结果如下:

hello
HELLO
hello
HELLo
hello
Hello
hello

这篇到这就结束了,脚本之家小编特为大家整理了好几篇文章,希望以后大家多多支持脚本之家。

相关文章

  • perl数组的多数字下标示例代码

    perl数组的多数字下标示例代码

    perl数组中正常的下标运算,想必大家都比较熟悉,这里不作说明。本文想说的是perl数组下标的多数字取值,可以极大的方便数组的操作
    2013-02-02
  • Perl中的子程序学习笔记

    Perl中的子程序学习笔记

    这篇文章主要介绍了Perl中的子程序学习笔记,本文讲解了子程序的定义、调用、返回值、局部变量、子程序参数传递等内容,需要的朋友可以参考下
    2015-02-02
  • Perl中的文件读写学习笔记

    Perl中的文件读写学习笔记

    这篇文章主要介绍了Perl中的文件读写学习笔记,本文讲解了打开、关闭文件、读文件、写文件、判断文件状态等内容,需要的朋友可以参考下
    2015-02-02
  • Perl5 OOP学习笔记

    Perl5 OOP学习笔记

    在Perl排名持续下降的情况下学Perl,似乎是有点不明智。但是,工作需要,不得不学啊。再说,Perl现在在测试领域还是用得非常多的。Phython虽然也在测试领域开始活跃起来,不过我始终还是不太喜欢Phython的语法。
    2009-04-04
  • perl ping检测功能脚本代码

    perl ping检测功能脚本代码

    领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知
    2013-02-02
  • 什么是Perl?编程语言Perl详细介绍

    什么是Perl?编程语言Perl详细介绍

    这篇文章主要介绍了什么是Perl?编程语言Perl详细介绍,本文着重讲解了Perl的发展历史,需要的朋友可以参考下
    2015-02-02
  • Perl学习教程之单行命令详解

    Perl学习教程之单行命令详解

    这篇文章主要给大家介绍了关于Perl学习教程之单行命令的相关资料,文中给出了详细的示例代码供大家参考学习,对大家学习或者使用perl具有一定的参考学习价值,需要的朋友可以参考借鉴,下面来一起看看吧。
    2017-09-09
  • perl操作MongoDB报错undefined symbol: HeUTF8解决方法

    perl操作MongoDB报错undefined symbol: HeUTF8解决方法

    这篇文章主要介绍了perl操作MongoDB报错undefined symbol: HeUTF8解决方法,需要的朋友可以参考下
    2014-10-10
  • perl模块Data::Dumper应用一例分享

    perl模块Data::Dumper应用一例分享

    perl模块Data::Dumper应用一例,参见下面的代码
    2013-02-02
  • perl控制流介绍(if条件,while,for循环,foreach)

    perl控制流介绍(if条件,while,for循环,foreach)

    Perl控制流(if条件,while,for循环),需要的朋友可以参考下
    2013-02-02

最新评论