公彦栋 / Perl / (转载)substr: perl提取字符串

分享

   

(转载)substr: perl提取字符串

2017-12-05  公彦栋
在编写perl程序的时候,我们有时需要截取一个字符串中的部分内容。

这个时候通常会使用substr函数实现这个功能。

函数参数:

substr(待截取字符串,截取起始位置,截取终了位置);

view plaincopy to clipboardprint?
$str="testtest";  
print substr($str,0,5); 
$str="testtest";
print substr($str,0,5);

运行上面的程序,输出结果"testt",这个是我们想要的结果。再看看下面的程序:

view plaincopy to clipboardprint?
$str="测试文本";  
print substr($str,0,1); 
$str="测试文本";
print substr($str,0,1);

这时候输出了一个"?",这显然不是我们想要的结果。因为在perl中,所有从外部输入的字符串(包括写在程序里的字符串)都会当成字节来处理,"print substr($str,0,1);"这句话只是把"测试文本"的第一个字节取出来,并且用print输出,然而单个字节是不能表示一个中文字符的,所以就输出了"?"。

如果想要上面的程序输出正确的结果,就需要使用decode函数把"测试文本"转换成perl内部字符串,让perl把"测试文本"当成字符串来处理,这样再用"substr($str,0,1);"截取的就不是一个字节,而是一个汉字。

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥.00

    微信或支付宝扫码支付:

    开通即同意《个图VIP服务协议》

    全部>>