perl s/này/đó/r ==> "bareword tìm thấy nơi khai thác dự kiến"

Question

Perl docs khuyên này:

$foo = $bar =~ s/this/that/r; 

Tuy nhiên, tôi nhận được lỗi này:

Bareword found where operator expected near 
    "s/this/that/r" (#1) 

Đây là đặc trưng cho sửa đổi r mà không có mã hoạt động. Tuy nhiên, tôi không muốn sửa đổi $bar. tôi có thể, tất nhiên, thay

my $foo = $bar =~ s/this/that/r; 

với

my $foo = $bar; 
$foo =~ s/this/that/; 

Có một giải pháp tốt hơn?

Answer 1

Như ruakh đã viết, /r là mới trong perl 5.14. Tuy nhiên, bạn có thể thực hiện việc này trong các phiên bản trước của perl:

(my $foo = $bar) =~ s/this/that/; 

Answer 2

Không có giải pháp tốt hơn, không có (mặc dù tôi thường viết nó trên cùng một dòng, kể từ khi s/// được về cơ bản phục vụ như là một phần của quá trình khởi tạo:

my $foo = $bar; $foo =~ s/this/that/; 

). Nhân tiện, lý do cho thông báo lỗi của bạn gần như chắc chắn là bạn đang chạy phiên bản Perl không hỗ trợ cờ /r. Lá cờ đó đã được thêm khá gần đây, trong Perl 5.14. Bạn có thể thấy dễ dàng hơn để phát triển bằng cách sử dụng tài liệu cho phiên bản của riêng bạn; ví dụ: http://perldoc.perl.org/5.12.4/perlop.html nếu bạn đang sử dụng Perl 5.12.4.