Sắp xếp lại dấu thời gian bằng regex Perl

Question

Tôi muốn sắp xếp lại dấu thời gian bằng regex Perl với mã ít nhất có thể. Định dạng ban đầu của tem thời gian như sau:

2011/12/29 20:19:45 

Tất cả tôi cần làm là chuyển đổi nó để năm ở phía trước thay vì đưa ra sau khi tháng/ngày như sau:

12/29/2011 20:19:45 

Tôi đã có thể đạt được điều này với 3 dòng mã dưới đây. Tôi chỉ tự hỏi nếu có một cách để làm điều này với mã ít hơn. Đặc biệt, tôi đã cố gắng loại bỏ $ 1 vào một biến trung gian và chỉ định $ 1 từ lần thay thế đầu tiên trực tiếp trong regex cho lần thay thế thứ hai, nhưng điều này dẫn đến lỗi: "Sử dụng giá trị uninitialized $ 1 trong nối (.) hoặc chuỗi. "

Nếu dòng thứ hai không thể thoát khỏi, thì có vẻ như điều này cũng không thể được chuyển xuống một dòng?

#my $ts = '2011/12/29 20:19:45'; #input to a subroutine 

$ts =~ s/^(\d{4})\///; 
my $year = $1; 
$ts =~ s/ /\/$year /; 

Answer 1

Dưới đây là bạn đi:

$ts =~ s|^(\d{4})/(\d{2})/(\d{2})(.+)$|$2/$3/$1$4|; 

Xin lưu ý rằng các biểu thức trên hy vọng timestamps có chính xác 2 chữ số trong nhiều tháng và ngày và 4 chữ số trong nhiều năm. Nhưng bạn có thể làm cho nó thậm chí ngắn hơn nhưng đáng tin cậy hơn:

$ts =~ s|^(\d+)/(\d+)/(\d+)(.+)$|$2/$3/$1$4|; 

Điều này sẽ xử lý dấu thời gian như 1/12/98 12:34:56 đúng cách.

Answer 2

Sử dụng Trở lại Tài liệu tham khảo bạn có thể nhận được định dạng mong muốn -

[jaypal:~/Temp] echo "2011/12/29 20:19:45" | 
perl -pe 's@([0-9]{4})/([0-9]{2})/([0-9]{2})@$3/$1/$2@' 
29/2011/12 20:19:45 

Answer 3

Để biết thêm thao tác chung timestamp bạn có thể muốn bay qua strptime/strftime. Trong trường hợp này, nó chỉ là sắp xếp lại trường, nhưng đối với các trường hợp phức tạp hơn như chuyển số tháng thành tên, thì yêu cầu strftime.

my @t = strptime "2011/12/29 20:19:45", "%Y/%m/%d %H:%M:%S"; 

say strftime "%d/%m/%Y %H:%M:%S", @t; # 29/12/2011 20:19:45 
say strftime "%d %b %Y, %H:%M:%S", @t; # 29 December 2011, 20:19:45