Program 1. Change DOS or Macintosh text format to UNIX.

#!/opt/local/bin/perl

$, = ' ';               # set output field separator 
$\ = "\n";              # set output record separator

open (infile,$ARGV[0]);

# Check to determine the file format and set the appropriate $Endline.

# The line must be less than 500 characters long 
read(infile,$testfile,500);
$cr = index($testfile,"\r");
$nl = index($testfile,"\n");

# Mac formatted PPD
if ( $cr > 0 && $nl == -1 ) {
    $Endline = "\r";
}
# DOS formatted PPD
if ( ($nl - $cr) == 1 ) {
    $isDOS = 1;
    $Endline = "\r\n";
}
# Why convert UNIX to UNIX, but just in case... 
if ( $cr == -1 && $nl > 0 ) {
    $Endline = "\n";
}

$/ = $Endline;

# Resets the file to the begining
seek(infile,0,0);

line: while (<infile>) {
    chop;
    if ( $isDOS == 1 ) {
        chop;
        }
    print;
}





