perl 正则表达式s///的2个疑问/usr/perl/binuse warnings;use strict;my $in=$ARGV[0];$out=$in;$out=~s/(\.w+)?$/\.out/; print $out;open LOG1,"$out"; $out=~s/(\.w+)?$/\.out/; 1.这一行为什么必须加上?才能匹配并且替换成.out,$out=~s
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/09 23:16:40
xSMo@+C8S.*K!TQ:^*7)PH*Q PJ קή![913oy'WvHΎ,v
6vi5)J9W&H*q⁚J_Bߢ@\Y
<|كV:
;U
n/ޏh2r%q%sh+Gח/_lZǦƎ
ؼ#
[Y28G#oa39NHr2.YhlCHr8F_Ti 2sBO
*H̢?tכ)$eȿ̃h n5KK>J9n7|R4hI[BC<ꒃv$,'9"n Ɠ]ڐ *{xtIJHz;h#zB>(Āf+Ljx~3y-5#E Ӯ7