我想从一个字符串中删除除最后一个以外的所有
可以使用JavaScript来实现。
.
。可以使用JavaScript来实现。
var s='1.2.3.4';
s=s.split('.');
s.splice(s.length-1,0,'.');
s.join('');
但是当在Perl中尝试相同的操作时
my @parts = split /./, $s;
my @a = splice @parts, $#parts-1,0;
$s = join "", @a;
我理解
Modification of non-creatable array value attempted, subscript -2 at ./test.pl line 15.
问题
有谁能在Perl中解决这个问题吗?
printf
,当print
就足够了。 - TLP.*
是贪婪的,它会找到最后一个.
,并且在其路径上遇到的所有.
都被替换为空。 - Sandra Schlichting1234
或1.2.3.4.
,如果这很重要的话。 - ikegami