#!/usr/bin/perl

# stripCR - perl script to strip carriage returns from text
#           files in preparation for UNIX/LINUX usage
# (c) 2000 by Fantasai Rainne (fantasai@escape.com)

if ("-h" eq $ARGV[0] || "-help" eq $ARGV[0] || "--help" eq $ARGV[0]) {
  print "stripCR filename\n";
  exit;
}
if ("" ne $ARGV[0]) {
  print "stripCR\n";
  print "--------------------------\n";
  print "command line argument mode\n";
  local $/=undef;
  foreach (@ARGV) {
    open(FILE,"$_") || die "error opening [read] $_: $!";
    $file = <FILE>;
    close(FILE);
    $file =~ tr/\x0d//d;
    open(FILE,">$_") || die "error opening [overwrite] $_:$!";
    print FILE $file;
    close(FILE);
    
    print "$_: done\n";
  }
  
  print "done\n";
  exit;
}
else {
  print "stripCR\n";
  print "-------------------\n";
  print "standard input mode\n";

  @ARGV = <STDIN>;

  local $/=undef;
  foreach (@ARGV) {
    open(FILE,"$_") || die "error opening [read]$_: $!";
    $file = <FILE>;
    close(FILE);
    $file =~ tr/\x0d//d;
    open(FILE,">$_") || die "error opening [overwrite] $_:$!";
    print FILE $file;
    close(FILE);

    print "$_: done\n";
  }

  print "done\n";
  exit;
}