perl对字符串的处理

perl对字符串的处理
当我们对字符串其中的某部分做截出，替换，删除（不包括搜索）。我们可以想到的用substr,unpack,regex这些方法来做。
如果搜索，那么让我们想到的是index,rindex.
(1)截出
substr
$str="I'm boy,and you?";
$sex=substr($str,4,3);#boy

unpack
$sex=unpack("x4A3",$str);#跳过4字节打印后面3个字符

regex
$str = ~m/(boy)/;#将匹配值存入$1中
print $1;

(2)替换
substr
substr($str,4,3,"girl");
print $str;             #I'm girl,and you?

substr($str,4,3)="girl";
print $str;             #I'm girl,and you?


unpack
无法做到

regex
$str =~ s/boy/girl/g;
print $str;

删除
substr($str,4,3)="";
print $str;         #I'm ,and you?

unpack
无法做到

regex
$str =~ s/boy//g;
print $str;

如果想了解更多，请关注我们的公众号
公众号ID:opdevos
扫码关注