#!/usr/bin/perl
#author: j. s. leonard 2006
print header();
use CGI ':standard';

# Why are spaces added to array lines when your file
# contains linefeeds?  Here's an example.
#
# Note that testout4.txt is correct, but all others
# have a space added after the linefeed.
#
# Also note that testout3.txt is correct, because it
# does not contain linefeeds.
#
# Thanks.

  open(*FH, "<testin1.txt");   #open file
  my @Data=<FH>;              #read file into array
  close (*FH);                #close file
  open(*FH, ">testout1.txt");  #open file
  print FH "@Data";           #read file into array
  close (*FH);                #close file

  open(*FH, "<testin2.txt");   #open file
  my @Data=<FH>;              #read file into array
  close (*FH);                #close file
  open(*FH, ">testout2.txt");  #open file
  print FH "@Data";           #read file into array
  close (*FH);                #close file

  open(*FH, "<testin3.txt");   #open file
  my @Data=<FH>;              #read file into array
  close (*FH);                #close file
  open(*FH, ">testout3.txt");  #open file
  print FH "@Data";           #read file into array
  close (*FH);                #close file

  open(*FH, "<testin1.txt");   #open file
  my @Data=<FH>;              #read file into array
  close (*FH);                #close file
  open(*FH, ">testout4.txt");  #open file
  foreach (@Data) {           #loop through array
    print FH "$_";            #print to file
  }
  close (*FH);                #close file

  exit;

#==========================
# ALREADY TRIED:
#==========================
#
# * Windows, Linux doesn't matter.
# * Tested on many different machines.
# *
# *
# *
# *
# *

#==========================
# DEPENDENCIES:
#==========================

# testin1.txt (Normal)
#----------------------------
#line1
#line2
#line3
#line4

# testin1.txt HEX (CRt-Lf)
#----------------------------
# 6C 69 6E 65 31 0D 0A
# 6C 69 6E 65 32 0D 0A
# 6C 69 6E 65 33 0D 0A
# 6C 69 6E 65 34

# testin2.txt HEX (Lf)
#----------------------------
# 6C 69 6E 65 31 0A
# 6C 69 6E 65 32 0A
# 6C 69 6E 65 33 0A
# 6C 69 6E 65 34

# testin3.txt HEX (CRt)
#----------------------------
# 6C 69 6E 65 31 0D
# 6C 69 6E 65 32 0D
# 6C 69 6E 65 33 0D
# 6C 69 6E 65 34


#==========================
# OUTPUT:
#==========================

# testout1.txt
#----------------------------
#line1
# line2
# line3
# line4

# testout1.txt HEX
#----------------------------
# 6C 69 6E 65 31 0D 0A
# 20 6C 69 6E 65 32 0D 0A
# 20 6C 69 6E 65 33 0D 0A
# 20 6C 69 6E 65 34

# testout2.txt HEX
#----------------------------
# 6C 69 6E 65 31 0D 0A
# 20 6C 69 6E 65 32 0D 0A
# 20 6C 69 6E 65 33 0D 0A
# 20 6C 69 6E 65 34

# testout3.txt HEX
#----------------------------
# 6C 69 6E 65 31 0D
# 6C 69 6E 65 32 0D
# 6C 69 6E 65 33 0D
# 6C 69 6E 65 34

# testout4.txt HEX
#----------------------------
# 6C 69 6E 65 31 0D 0A
# 6C 69 6E 65 32 0D 0A
# 6C 69 6E 65 33 0D 0A
# 6C 69 6E 65 34
[download]