テキストを読み込んで1行ずつ書きだすPerlスクリプト。 文字列置換処理などを入れる前のベース。

copy-text-file.pl

#!/usr/bin/perl
use strict;

my $tgtFilename	= "textToExport.txt";
my $orgFilename	= "textToImport.txt";

open(ORG_TEXT, "<$orgFilename") or die("error :$!");
open(TGT_TEXT, ">$tgtFilename") or die("error :$!");
while (my $line = <ORG_TEXT>){
	# copy.
	print TGT_TEXT $line;
}
close(TGT_TEXT);
close(ORG_TEXT);