in reply to Re: Is there a variable in which Perl stores the native file delimiter for the platform on which your script is running?
in thread Is there a variable in which Perl stores the native file delimiter for the platform on which your script is running?

my $newline = "\n";
$newline = "\r\n"
    if  grep $_ eq "crlf", PerlIO::ge­t_layers(*­STDOUT);

[download]

- tye        

  • Comment on Re^2: Is there a variable in which Perl stores the native file delimiter for the platform on which your script is running?
  • Download Code

In Section Seekers of Perl Wisdom