#!/usr/bin/perl



if(@ARGV<2) {
	print "This programm removes the linefeeds from an input textfile and writes the result to an output textfile.\nParameter 1: Inputfile\nParameter 2: Outputfile\nFor example: ./removeLineFeeds.pl ./inputfile.txt ./outputfile.txt\n";
}
else { 
	print "Read from @ARGV[0] (Inputfile)\n";
  print "Write to @ARGV[1] (Outputfile)\n";
	
	open(INPUT , "<", @ARGV[0]);
	open(SINK , ">" , @ARGV[1]);
	
	while(defined ($zeile = <INPUT>)) {
		chomp($zeile);
		print SINK $zeile;
		#print $zeile;
	}
}