用正则表达式处理文本

用s///进行替换：

   和m//用法一样，返回的是布尔值，替换成功为真，失败为假。
    例：
    $_ = "He'sout bowling with Barney tonight.";
   s/Barney/Fred/;  #把Barney替换成Fred， 也可以捕获位置，s///只会进行一次替换

用/g进行全部替换：

   例：s/^\s+|\s+$//g;  #去除所有开头和结尾空白符

不同的定界符：

    s///可以用其他定界符，不成对的定界符用3个就可以，如果是成对的定界符，就要用两对。
   例：s{fred}{barney}

大小写转换：

\U	所有变大写
\L	所有变小写
\E	关闭大小写功能
\u	只对一个字母大写
\l	只对一个字母小写

split操作符：

    例：@array =split/\t/,"字符串";
   把字符串以制表符分割，分割后放到数组array中，\t的位置放的是分割的符号，若只要split没有其他参数，会默认以空白符分割$_中字符串。

join操作符：

   和split相反，把所有的都组合起来。
    用法：my $结果 =join "连接符",字符串1,字符串2,字符串3,字符串4...;
    例：my $x =join "-",1,2,3,4;
   结果：1-2-3-4

非贪婪量词：

   +、*、?、{n,m}等都是贪婪量词，在后面加上一个?问号，如：+?，使它尽可能少的从头到位匹配。

一次更新多个文件：

   $^I中是个字符串，该字符中就会变成备份文件的扩展名（要和<>一起使用）。
   流程：①打开要操作的文件，并把名改成$^中字符串为结尾的名字。②然后打开一个新文件，起名为源文件的名。③把输出变为新文件，写到新文件中。
   例：
    chomp(my$date:'date');
    $^I =".bak";
    while(<>){
       s/^Author:.*/Author:Randa L Schwartz/;
       s/^Phone:.*\n///
       s^Pate:.*/Date:$date/;
}

从命令行直接编辑：

    例：perl -p -i.bak -w -e 's/Randall/Randal/g' fred*.dat;

perl	以perl程序处理
-p	while(<>){print};
-i	备份名
-w	开警告
-e	告诉后面就是可供执行的代码

    等效代码：
       $^I = ".bak";
       while(<>){
           s/Randall/Randal/g;
           print;
       }