Opening text files with CR format

[knith]

Hi I am trying to open some text files saved with the format CR (MAC) using perl, I am having the problem that the open function does'nt recongnize the newline character. The solution might be to open every file and saved them with a format CR+LF (DOS) but I have to open more than a hundred files in different folders and I don't want to go one by one. Please Monks I need some help here. This is the code I am using I am only including the opening part ;)

use strict;
use warnings;
@files = <*.tx>;        
print "@files \n";        

foreach $file (@files)
{
print " \n Working with file: $file \n";        

my @lines=(); 
open(INFO, $file)or die "Could not open file: $!" ; 
@lines=<INFO>;                                                
close(INFO);                                                    
...
}

[linuxer]

Hi,

have a look at perlvar; search for $INPUT_RECORD_SEPARATOR

You can set that variable to the needed character/string to parse your files...

Example snippet:

#! /usr/bin/perl
use strict;
use warnings;

# ...

for my $file ( @files ) {
  if ( open my $fh, '<', $file ) {
    # see perldoc perlvar
    local $/ = "\x0d";
    @lines = <$fh>;
  }
  else {
    warn "$file: $!\n";
  }
}

[knith]

Thanks a million, you just saved me a lot of frustation time :P

[moritz]

You can set $/ to "\r", then perl will read lines separated by CR instead.

See also: perlvar, perlport

[Bloodnok]

Unless I've misunderstood the question, I think that the solution offered by both moritz & linuxer have missed the point - AFAICT, the OP appears to be experiencing problems actually opening files c/w reading a successfully opened file.

Never having used a Mac (thus not being aware of the pitfalls), my only suggestion would be to change:

@files = <*.tx>;

to read:

@files = <*.tx>;
chomp @files;

thus removing any trailing whitespace from the filename(s).

[knith]

Hi, sorry maybe I was not so clear with the question, I am using a normal computer with windows, the files that I am working with where stored by someone using a mac, that is why new line indicator is different and not recognized by the open function in perl. It took me a while to realized why it was not working properly. First I started programming with perl since a couple of hours and the second thing is that my text editor can handle mac, unix, dos terminations, giving no hint what kind of format for the new line was used. Thanks for the answer anyway :))