Re: How to split a file on the CR carriage Return and/or replace the \r with \n ??

[Robert Citek]

On Jul 26, 2006, at 2:59 PM, Steve Pittman wrote:
I am using activestate on a windows box ...the files I am parsing are
Unix files...I tried this so far...
open ( IN, "<$_[0]" )||die "Can't open DAT source file: $tempFile
$!\n";
        while (<IN>){s/\r/\n/g;@lines = <IN>;}#
        close (IN);
        
        foreach $line (@lines)
        {

Try a different value for the INPUT_RECORD_SEPARATOR ($/):

$/="\n" ;
open ( IN, "<$_[0]" ) or die "Can't open DAT source file: $tempFile $! 
\n" ;
my @lines = <IN> ;
  foreach $line (@lines)
  { ...

Notice that I also changed the || to "or".

Let us know what you try and how it works for you.

Regards,
- Robert
http://www.cwelug.org/downloads
Help others get OpenSource software.  Distribute FLOSS
for Windows, Linux, *BSD, and MacOS X with BitTorrent



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>