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,3,"girl"); print $str;???????????? #I'm girl,and you? substr($str,3)="girl"; print $str;???????????? #I'm girl,and you? unpack 无法做到 regex $str =~ s/boy/girl/g; print $str; 删除 substr($str,3)=""; print $str;???????? #I'm,and you? unpack 无法做到 regex $str =~ s/boy//g; print $str;