如何使用Perl将冒号放入字符串中最后两个字符？

Question

我正在尝试找到一种方法将冒号(:)放入一个字符串中,字符串末尾有两个字符.

$ meetdays的示例:
1200 => 12:00
900 => 9:00
1340 => 13:40

不确定这应该是正则表达式还是我不知道的另一个函数.

Answer 1

也可以使用substr() ......

my $string = "1200";
substr $string, -2, 0, ':';

# $string => '12:00';

Answer 2

s/(?=..$)/:/

不要使用罗的建议$&.perldoc perlvar:

在程序中的任何位置使用此变量会对所有正则表达式匹配造成相当大的性能损失.见"BUGS".