perl正则匹配
答案:4 悬赏:20 手机版
解决时间 2021-03-23 23:02
- 提问者网友：無理詩人
- 2021-03-23 03:56
perl正则匹配
最佳答案
- 五星知识达人网友：思契十里
- 2021-03-23 05:30
浓度是40%
全部回答
- 1楼网友：往事埋风中
- 2021-03-23 08:09
my $hqr1985='444-p6149c2a1';
$hqr1985 =~/^(\d{3})/;
print "$hqr1985 \n $1 \n";
$hqr1985 =~/^(\d{3})/;
print "$hqr1985 \n $1 \n";
- 2楼网友：逃夭
- 2021-03-23 07:49
$hqr1985 = ~/^\d{3}/;
print "$hqr1985 \n";
匹配并不会改变原来字符串的内容
if($hqr1985 = ~/^(\d{3})/){print $1;}
要想改变原来字符串应该用$hqr1985 = ~s/^\d{3}//;
print "$hqr1985 \n";
匹配并不会改变原来字符串的内容
if($hqr1985 = ~/^(\d{3})/){print $1;}
要想改变原来字符串应该用$hqr1985 = ~s/^\d{3}//;
- 3楼网友：骨子里都是戏
- 2021-03-23 06:21
=和~不要用空格分开 =~
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯