perl脚本截取字符串和用正则截取字符串的两种方式

#!/usr/bin/perl

my ${a}="cac_aaa_ccc";
1.sustr截取
my ${b}=substr(${a},4); #aaa_ccc
print "${b}\n";
2.把cac_替换为空
${a}=~ s/(^[a-z]*_){1}//gi;#把前面//中间的替换成后面*/的值 aaa_ccc  
print "${a}";
3.把cac_匹配出来之后用$'输出cac_后面的值
${a}-~ m/^[a-z]*_){1}/
print "$&";

perl脚本中

=~表示正则表达式匹配出的文本，！~表示未匹配出的

~后面跟的值

1.替换 s /用正则表达式匹配要替换的文本0/替换成的文本/   替换正则表达式匹配出的文字(s///)

替换操作修饰符

2.匹配 m /正则表达式匹配文本/ (m//可以简写为//，略去m)

模式修改匹配符(接到语句最后)

 i 匹配时忽略大小写

    g 全局匹配

    m 多行模式

    s 单行模式

    o 仅赋值一次

    x 忽略模式中的空白

    cg 全局匹配失败后，允许再次查找匹配串

3.转化 tr

转换操作符

c 转化所有未指定字符
d 删除所有指定字符
s 把多个相同的输出字符缩成一个(将重复的删除)

eg：将变量所有的小写转换成大写
$string ="sss";
$string =~ tr /[a-z]/[A-Z];

三个特殊变量名

$` 匹配部分的前一部分字符串
$& 匹配出来的字符串
$' 还没有匹配出的剩余的字符串