Tie::File CR und LF - #181370 (Allgemeines zu Perl)

Raubtier

2015-06-19 21:14

User since
2012-05-04
1075 Artikel
BenutzerIn
[default_avatar]

Als jemand, der noch nie Tie::File benutzt hat, frage ich mich gerade, ob man nicht statt recsep => "\r\n", discipline => ':encoding(UTF-8)' auch schreiben könnte: discipline => ':encoding(UTF-8):crlf'

Gerade mal ausprobiert, folgendes kommt raus (funktioniert nur halb):

Code: (dl )

% perl -wE'use Tie::File;tie my @A, "Tie::File", "blah.txt", discipline => ":encoding(UTF-8):crlf" or die $!; $A[2] = "Hallo";$A[4] = "Welt";'
% od -A n -c blah.txt                                                                                                                                                                   
  \r  \n  \r  \n   H   a   l   l   o  \r  \r  \n   W   e   l   t
  \r  \n  \r  \n

Wenn ich es aber wie von Jürgen beschrieben mache, ist alles wie erwartet:

Code: (dl )

% rm blah.txt
% perl -wE'use Tie::File;tie my @A, "Tie::File", "blah.txt", discipline => ":encoding(UTF-8)", recsep => "\r\n" or die $!; $A[2] = "Hallo";$A[4] = "Welt";'
% od -A n -c blah.txt
  \r  \n  \r  \n   H   a   l   l   o  \r  \n  \r  \n   W   e   l
   t  \r  \n