Làm cách nào để thay thế bằng biểu thức được đánh giá trong Perl?

Question

Có một tập tin dummy.txt

Nội dung bao gồm:

9/0/2010 
9/2/2010 
10/11/2010 

tôi phải thay đổi phần tháng (0,2,11) +1, tức là (1,3,12) tôi đã viết regex thay như sau

$line =~ s/\/(\d+)\//\/\1+1\//; 

Nó được in

9/0+1/2010 
9/2+1/2010 
10/11+1/2010 

Làm thế nào để làm cho nó thêm - 3 số hơn so với thực hiện chuỗi concat? ??

Answer 1

Ba thay đổi:

• Bạn sẽ phải sử dụng các e modifier để cho phép một biểu thức ở phần thay thế.
• Để thực hiện thay thế toàn cầu , bạn nên sử dụng công cụ sửa đổi g. Đây là không phải cần thiết nếu bạn có một ngày trên mỗi dòng.
• Bạn sử dụng $1 ở phía bên thay thế, không phải là một backreference

này nên làm việc:

$line =~ s{/(\d+)/}{'/'.($1+1).'/'}eg; 

Ngoài ra nếu regex của bạn có chứa delimiter bạn đang sử dụng (/ trong trường hợp của bạn), nó tốt hơn để chọn một dấu phân cách khác nhau ({} ở trên), bằng cách này bạn không phải thoát khỏi dấu phân cách trong regex làm cho regex của bạn sạch sẽ.

Answer 2

Làm thế nào về điều này?

$ cat date.txt 
9/0/2010 
9/2/2010 
10/11/2010 
$ perl chdate.pl 
9/1/2010 
9/3/2010 
10/12/2010 
$ cat chdate.pl 
use strict; 
use warnings; 

open my $fp, '<', "date.txt" or die $!; 

while (<$fp>) { 
    chomp; 
    my @arr = split (/\//, $_); 
    my $temp = $arr[1]+1; 
    print "$arr[0]/$temp/$arr[2]\n"; 
} 

close $fp; 
$ 

Answer 3

công trình này: (e là để đánh giá chuỗi thay thế: xem tài liệu perlrequick).

$line = '8/10/2010'; 
$line =~ s!/(\d+)/!('/'.($1+1).'/')!e; 

print $line; 

Nó giúp để sử dụng ! hoặc một số nhân vật khác như delimiter nếu biểu thức chính quy của bạn có / riêng của mình.

---

Bạn cũng có thể sử dụng, từ câu hỏi này trong Can Perl string interpolation perform any expression evaluation?

$line = '8/10/2010'; 
$line =~ s!/(\d+)/!("/@{[$1+1]}/")!e; 

print $line; 

nhưng nếu điều này là một câu hỏi bài tập về nhà, hãy sẵn sàng để giải thích khi giáo viên yêu cầu bạn làm thế nào bạn đạt được giải pháp này.