ฉันจะทำการแทนที่ Perl บนสตริงในขณะที่เก็บต้นฉบับได้อย่างไร

ใน Perl เป็นวิธีที่ดีในการดำเนินการแทนบนสตริงโดยใช้การแสดงออกปกติและเก็บค่าไว้ในตัวแปรที่แตกต่างกันโดยไม่ต้องเปลี่ยนต้นฉบับได้อย่างไร

ฉันมักจะเพียงแค่คัดลอกสตริงไปยังตัวแปรใหม่แล้วผูกไว้กับs///regex ที่จะแทนที่ในสตริงใหม่ แต่ฉันสงสัยว่ามีวิธีที่ดีกว่าการทำเช่นนี้?

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

นี่เป็นสำนวนที่ฉันมักจะใช้เพื่อรับสำเนาที่แก้ไขของสตริงโดยไม่ต้องเปลี่ยนต้นฉบับ:

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

ใน perl 5.14.0 หรือใหม่กว่าคุณสามารถใช้/r ตัวดัดแปลงการแทนที่แบบไม่ทำลายใหม่ได้:

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

หมายเหตุ: การแก้ปัญหาข้างต้นทำงานได้โดยไม่ต้องgเกินไป นอกจากนี้ยังทำงานร่วมกับตัวดัดแปลงอื่น ๆ

คำสั่ง:

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

ซึ่งเทียบเท่ากับ:

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

อีกทางเลือกหนึ่งของ Perl 5.13.2 คุณสามารถใช้/rเพื่อทดแทนการทำลายแบบไม่ทำลาย:

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

ภายใต้use strictพูดว่า:

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

แทน.

วิธีแก้ปัญหาแบบใช้ครั้งเดียวมีประโยชน์มากกว่า shibboleth มากกว่ารหัสที่ดี ผู้เขียนโค้ด Perl ที่ดีจะรู้และเข้าใจ แต่มันมีความโปร่งใสน้อยกว่าและอ่านง่ายกว่าคูเปอร์เลเยอร์การคัดลอกและแก้ไขสองบรรทัดที่คุณเริ่มต้น

กล่าวอีกนัยหนึ่งวิธีที่ดีในการทำเช่นนี้คือวิธีที่คุณทำไปแล้ว ข้อสรุปที่ไม่จำเป็นที่ค่าใช้จ่ายในการอ่านไม่ได้ชนะ

อีกวิธีการแก้ปัญหาก่อน 5.14: http://www.perlmonks.org/?node_id=346719 (ดูโพสต์ของ japhy)

ขณะที่วิธีการของเขาใช้mapมันยังทำงานได้ดีสำหรับอาร์เรย์ แต่ต้องการ cascading mapเพื่อสร้างอาร์เรย์ชั่วคราว (มิฉะนั้นจะถูกปรับเปลี่ยนต้นฉบับ):

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

ฉันเกลียดฟู่และบาร์ .. ใครที่ฝันถึงคำศัพท์ที่ไม่สื่อความหมายเหล่านี้ในการเขียนโปรแกรมล่ะ?

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

หากคุณเขียน Perl ด้วยuse strict;คุณจะพบว่าไวยากรณ์บรรทัดเดียวไม่ถูกต้องแม้ว่าจะประกาศแล้วก็ตาม

ด้วย:

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

คุณได้รับ:

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

use strict;แต่ไวยากรณ์ที่คุณได้รับใช้ในขณะที่สายอีกต่อไปเป็นวิธีที่ถูกต้องไวยากรณ์ที่จะทำกับ สำหรับฉันแล้วการใช้use strict;เป็นเพียงนิสัยในตอนนี้ ฉันทำมันโดยอัตโนมัติ ทุกคนควร

#!/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";