วิธีสร้าง perl one-liner line-ending ที่ไม่เชื่อเรื่องพระเจ้า

\R ลำดับการหลีก ^{Perl v5.10+; ดู perldoc rebackslash หรือเอกสารประกอบออนไลน์} ซึ่งตรงกับ "การขึ้นบรรทัดใหม่ทั่วไป" ( ไม่เชื่อเรื่องแพลตฟอร์ม) สามารถ สามารถทำงานได้ที่นี่ (ตัวอย่างใช้ Bash เพื่อสร้างสตริงอินพุตหลายบรรทัด):

$ printf 'foo barmy\r\nfoo baryour\r\n' | perl -pe 's/foo bar(.*?)\R/foo $1 bar\n/gm'
foo my bar
foo your bar

โปรดทราบว่าข้อแตกต่างเพียงอย่างเดียวของ คำตอบของ Ether คือ การใช้โครงสร้างที่ ไม่โลภ (.*? แทนที่จะเป็นเพียง .*) ซึ่งสร้างความแตกต่างทั้งหมดที่นี่

อ่านต่อหากคุณต้องการทราบข้อมูลเพิ่มเติม

พื้นหลัง:

เป็นตัวอย่างของ หลุมพรางที่เกี่ยวข้องกับ \R ซึ่งเกิดจากการที่มันสามารถจับคู่อักขระ หนึ่งหรือสองตัว - อาจเป็น \r\n หรือโดยทั่วไปแล้ว \n: ^[1]

ด้วยโครงสร้าง (.*) ที่มีความละโมบ "my\r" - รวมถึง \r - จะถูกบันทึก เนื่องจากกลไก regex ดูเหมือนจะย้อนรอยเพียง หนึ่ง อักขระเพื่อค้นหา \R ซึ่งส่วนที่เหลือ \n ด้วยตัวมันเองก็พอใจเช่นกัน

ในทางตรงกันข้าม การใช้โครงสร้าง (.*?) ที่ไม่โลภจะทำให้ \R ตรงกับ \r\n ลำดับ ตามที่ตั้งใจไว้

^{[1] \R จับคู่มากกว่า \r\n และ \n: โดยจะจับคู่อักขระตัวเดียวใดๆ ที่จัดประเภทเป็น ช่องว่างแนวตั้ง ในแง่ Unicode ซึ่งรวมถึง \v (แนวตั้งด้วย แท็บ), \f (ฟีดแบบฟอร์ม), \r (โดยตัวมันเอง) และอักขระ Unicode ต่อไปนี้: 0x133 (NEXT LINE), 0x2028 (LINE SEPARATOR), 0x8232 (LINE SEPARATOR) และ 0x8233 (PARAGRAPH SEPARATOR)}

ก่อนอื่นให้เราจำไว้ว่า

perl -ple's/foo bar(.*)\z/foo $1 bar/g' file.txt

สั้นสำหรับบางสิ่งที่ใกล้ชิด

perl -e'
   while (<>) {
      chomp;
      s/foo bar(.*)\z/foo $1 bar/g;
      print $_, $/;
   }
' file.txt

Perl ทำให้โค้ดสามารถอ่าน/เขียนไฟล์ข้อความในเครื่องในลักษณะที่เป็นอิสระจากแพลตฟอร์ม

ในความคิดเห็น คุณถามวิธีอ่าน/เขียนทั้งไฟล์ข้อความในเครื่องและไฟล์ข้อความต่างประเทศในลักษณะที่เป็นอิสระจากแพลตฟอร์ม

ขั้นแรก คุณจะต้องปิดการใช้งานการจัดการตามปกติของ Perl

binmode STDIN;
binmode STDOUT;

จากนั้นคุณจะต้องจัดการกับการสิ้นสุดหลายบรรทัด

sub mychomp { (@_ ? $_[0] : $_) =~ s/(\s*)\z//; $1 }

while (<STDIN>) {
   my $le = mychomp($_);
   s/foo bar(.*)\z/foo $1 bar/g;
   print($_, $le);
}

ดังนั้นแทนที่จะ

perl -ple's/foo bar(.*)\z/foo $1 bar/g' file.txt

คุณจะมี

perl -e'
   sub mychomp { (@_ ? $_[0] : $_) =~ s/(\s*)\z//; $1 }

   binmode STDIN;
   binmode STDOUT;
   while (<STDIN>) {
      my $le = mychomp($_);
      s/foo bar(.*)\z/foo $1 bar/g;
      print($_, $le);
   }
' <file

ใน Perls ที่ใหม่กว่า คุณสามารถใช้ \R ใน regex ของคุณเพื่อตัดอักขระท้ายบรรทัดทั้งหมดออก (รวมทั้ง \n และ \r) ดู perldoc perlre

คุณสามารถพูดได้:

perl -pe 's/foo bar([^\015]*)(\015?\012)/foo $1 bar$2/g' *.txt

การสิ้นสุดบรรทัดจะยังคงอยู่ กล่าวคือ จะเหมือนกับไฟล์อินพุต

คุณอาจต้องการอ้างอิงถึง perldoc perlport

มีวิธีรับ Perl จัดการการสิ้นสุดบรรทัดเฉพาะแพลตฟอร์มโดยอัตโนมัติหรือไม่

ใช่. มันเป็นค่าเริ่มต้นจริงๆ

ปัญหาคือคุณกำลังพยายามจัดการการสิ้นสุดบรรทัดของ Windows บนแพลตฟอร์มยูนิกซ์

สิ่งนี้จะทำได้อย่างแน่นอน:

perl -pe'
    BEGIN {
       binmode STDIN,  ":crlf";
       binmode STDOUT, ":crlf";
    }
    s/foo bar(.*)$/foo $1 bar/g;
' <file.txt

ฉันขอแนะนำให้คุณทำต่อไปด้วยตนเองได้ไหม

หรือคุณสามารถแปลงไฟล์เป็นไฟล์ข้อความแล้วแปลงกลับได้

<file.orig dos2unix | perl -pe'...' | unix2dos >file.new