Làm cách nào để đặt dấu hai chấm vào một chuỗi hai ký tự từ cuối bằng Perl?

Question

Tôi đang cố gắng tìm một cách để đặt dấu hai chấm (:) vào một chuỗi, hai ký tự từ cuối chuỗi.

Ví dụ về $ meetdays:
1200 => 12:00
900 => 09:00
1340 => 13:40

Không chắc nếu điều này phải là một biểu hiện thường xuyên hoặc chỉ là một chức năng mà tôi 'không nhận thức được.

Answer 1

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

Không sử dụng đề xuất của trứng $&. perldoc perlvar:

Việc sử dụng biến này ở bất kỳ đâu trong chương trình sẽ áp đặt một hiệu suất đáng kể cho tất cả các đối sánh cụm từ thông dụng. Xem "L BUI".

Answer 2

Bạn có thể thử này:

s/..$/:$&/ 

nó phù hợp với hai nhân vật ở phần cuối của chuỗi, và thay thế nó bằng một dấu hai chấm, và chuỗi phù hợp (ví dụ: hai ký tự).

EDIT
Cố định sed-backref cho tương đương perl.

Answer 3

Các Perl tương đương với sed của & là $ &, vì vậy nó phải được: Câu trả lời

$s = s /..$/:$&/s; 

Answer 4

trứng của "công trình", nhưng regex thay inobvious của nó.

tôi sẽ hơn đi cho

s/(^.*)(..$)/$1:$2/ 

Bởi vì tôi chỉ tình yêu backrefs.

Sự quá tải của nó đối với những gì bạn đang làm, nhưng đối với tôi, nó mang tính ngữ nghĩa hơn.

Answer 5

cũng có thể sử dụng cũng .....

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

# $string => '12:00';