Làm cách nào để thực hiện thay thế Perl trên chuỗi trong khi vẫn giữ nguyên bản gốc?

Trong Perl, cách tốt nhất để thực hiện thay thế trên một chuỗi bằng cách sử dụng biểu thức chính quy và lưu trữ giá trị trong một biến khác, mà không thay đổi bản gốc là gì?

Tôi thường chỉ sao chép chuỗi vào một biến mới sau đó liên kết nó với s///regex thực hiện thay thế trên chuỗi mới, nhưng tôi đã tự hỏi liệu có cách nào tốt hơn để làm điều này không?

$newstring = $oldstring;
$newstring =~ s/foo/bar/g;

Đây là thành ngữ tôi luôn sử dụng để lấy một bản sao đã sửa đổi của chuỗi mà không thay đổi bản gốc:

(my $newstring = $oldstring) =~ s/foo/bar/g;

Trong perl 5.14.0 trở lên, bạn có thể sử dụng công cụ /r sửa đổi thay thế không phá hủy mới :

my $newstring = $oldstring =~ s/foo/bar/gr; 

Lưu ý: Các giải pháp trên hoạt động mà không gquá. Họ cũng làm việc với bất kỳ sửa đổi khác.

Tuyên bố:

(my $newstring = $oldstring) =~ s/foo/bar/g;

Tương đương với:

my $newstring = $oldstring;
$newstring =~ s/foo/bar/g;

Ngoài ra, kể từ Perl 5.13.2, bạn có thể sử dụng /rđể thực hiện thay thế không phá hủy:

use 5.013;
#...
my $newstring = $oldstring =~ s/foo/bar/gr;

Dưới use strict, nói:

(my $new = $original) =~ s/foo/bar/;

thay thế.

Giải pháp một lớp lót hữu ích như một shibboleth hơn là mã tốt; Các lập trình viên Perl giỏi sẽ biết và hiểu nó, nhưng nó ít minh bạch và dễ đọc hơn so với bộ ghép hai dòng và sao chép hai dòng mà bạn bắt đầu.

Nói cách khác, một cách tốt để làm điều này là cách bạn đã làm nó. Sự can thiệp không cần thiết với chi phí dễ đọc không phải là một chiến thắng.

Một giải pháp trước 5.14 khác: http://www.perlmonks.org/?node_id=346719 (xem bài đăng của japhy)

Theo cách tiếp cận của anh ta sử dụng map, nó cũng hoạt động tốt cho các mảng, nhưng yêu cầu xếp tầng mapđể tạo ra một mảng tạm thời (nếu không thì bản gốc sẽ được sửa đổi):

my @orig = ('this', 'this sucks', 'what is this?');
my @list = map { s/this/that/; $_ } map { $_ } @orig;
# @orig unmodified

Tôi ghét foo và bar .. ai đã mơ những thuật ngữ không mô tả này trong lập trình?

my $oldstring = "replace donotreplace replace donotreplace replace donotreplace";

my $newstring = $oldstring;
$newstring =~ s/replace/newword/g; # inplace replacement

print $newstring;
%: newword donotreplace newword donotreplace newword donotreplace

Nếu bạn viết Perl với use strict;, thì bạn sẽ thấy rằng cú pháp một dòng không hợp lệ, ngay cả khi được khai báo.

Với:

my ($newstring = $oldstring) =~ s/foo/bar/;

Bạn lấy:

Can't declare scalar assignment in "my" at script.pl line 7, near ") =~"
Execution of script.pl aborted due to compilation errors.

Thay vào đó, cú pháp mà bạn đã sử dụng, trong khi một dòng dài hơn, là cách chính xác về mặt cú pháp để thực hiện use strict;. Đối với tôi, sử dụng use strict;bây giờ chỉ là một thói quen. Tôi làm nó tự động. Mọi người nên.

#!/usr/bin/env perl -wT

use strict;

my $oldstring = "foo one foo two foo three";
my $newstring = $oldstring;
$newstring =~ s/foo/bar/g;

print "$oldstring","\n";
print "$newstring","\n";