Cara membuat akhiran baris perl satu baris agnostik

\R urutan escape ^{Perl v5.10+; lihat perldoc rebackslash atau dokumentasi online}, yang cocok dengan "baris baru umum" ( platform-agnostically) dapat dibuat berfungsi di sini (contoh menggunakan Bash untuk membuat string input multi-baris):

$ 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

Perhatikan bahwa satu-satunya perbedaan jawaban Ether adalah penggunaan konstruksi tidak serakah (.*? bukan hanya .*), yang membuat perbedaan besar di sini.

Baca terus, jika Anda ingin tahu lebih banyak.

Latar belakang:

Ini adalah contoh jebakan yang terkait dengan \R, yang berasal dari fakta bahwa karakter tersebut dapat cocok dengan satu atau dua karakter - baik \r\n atau, biasanya, \n: ^[1]

Dengan konstruk (.*) yang serakah, "my\r" - termasuk \r - ditangkap, karena mesin regex tampaknya hanya melakukan backtrack sebanyak satu karakter untuk mencari \R, yang tersisa \n dengan sendirinya juga memuaskan.

Sebaliknya, penggunaan konstruk (.*?) yang tidak serakah menyebabkan \R cocok dengan urutan \r\n, sebagaimana dimaksud.

^{[1] \R cocok LEBIH dari sekadar \r\n dan \n: cocok dengan karakter apa pun yang diklasifikasikan sebagai spasi vertikal dalam istilah Unicode, yang juga mencakup \v (vertikal tab), \f (umpan formulir), \r (sendiri), dan karakter Unicode berikut: 0x133 (NEXT LINE), 0x2028 (LINE SEPARATOR), 0x8232 (LINE SEPARATOR) dan 0x8233 (PARAGRAPH SEPARATOR)}

Pertama-tama, mari kita ingat hal itu

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

adalah kependekan dari sesuatu yang dekat dengan

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

Perl membuatnya sehingga kode dapat membaca/menulis file teks lokal secara independen pada platform.

Dalam komentar, Anda bertanya bagaimana cara membaca/menulis file teks lokal dan file teks asing secara independen pada platform.

Pertama, Anda harus menonaktifkan penanganan normal Perl.

binmode STDIN;
binmode STDOUT;

Maka Anda harus menangani beberapa akhiran baris.

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

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

Jadi, bukannya

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

kamu akan melakukannya

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

Di perls yang lebih baru, Anda dapat menggunakan \R di regex Anda untuk menghapus semua karakter akhir baris (termasuk \n dan \r). Lihat perldoc perlre.

Anda dapat mengatakan:

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

Akhiran baris akan dipertahankan, yaitu sama dengan file masukan.

Anda mungkin juga ingin merujuk ke perldoc perlport.

apakah ada cara agar Perl menangani akhir baris khusus platform secara otomatis?

Ya. Ini sebenarnya defaultnya.

Masalahnya adalah Anda mencoba menangani akhiran baris Windows pada platform unix.

Ini pasti akan berhasil:

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

Bolehkah saya menyarankan Anda tetap melakukannya secara manual?

Alternatifnya, Anda dapat mengonversi file menjadi file teks dan mengonversinya kembali.

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