Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Newlines: reading files that were created on other platforms

by bobf (Monsignor)
on Feb 02, 2005 at 00:48 UTC ( [id://427108] : perlquestion . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
        $file =~ s[(\015)?\012(?!\015)][\n]g;
        $file =~ s[(\012)?\015(?!\012)][\n]g;