#!/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];
三个特殊变量名
$` 匹配部分的前一部分字符串
$& 匹配出来的字符串
$' 还没有匹配出的剩余的字符串