Perlは2つのファイルの重複行を削除し、それらをカウントします

入力ファイル1

入力ファイル2

＃！/ usr / bin / perl
print'hello ';
警告を使用します。
厳密に使用します。
私の％ハッシュ;
私の$ source_file =“ read.log”; ＃去
重文件1 my $ source_file1 =“ read1.log”; ＃去重文件2
my KaTeX解析エラー：予期された「EOF」、位置28で「＃」を取得：… "num2.txt"; ＃̲結果文件open（FILE… source_file "）またはdie"ファイルKaTeX解析エラーを開くことができません：未定義の制御シーケンス：\ n位置2：！\ ̲n̲ "; open（FILE1、… source_file1”）またはdie“ファイルKaTeX解析エラーを開くことができません：未定義の制御シーケンス：\ n位置2：！\ ̲n̲”; open（ SORTED … dest_file”）またはdie“ファイルを開けません$！\ n ”;
while（defined（my $ line =））
{KaTeX解析エラー：位置10の数学モードで関数 '\ r'を使用できません：line = 〜s / [\ ̲r̲ \ n] //;
chomp（$ line）;
KaTeX解析エラー：「}」が必要です。入力の最後に「EOF」があります：hash { line} + = 1;
＃print“ $line、$ hash {$ line} \ n”;
}
while（defined（my $ line =））
{KaTeX解析エラー：位置10の数学モードで関数 '\ r'を使用できません：line =〜s / [\ ̲r̲ \ n]//;
chomp（$ line）;
KaTeX解析エラー：「}」が必要です。入力の最後に「EOF」があります：hash { line} + = 1;
＃print“$line、$ hash {$ line} \ n”;
}
foreach my$k（keysif（$ hash { KaTeX解析エラー：期待される 'EOF'、位置2で '}'を取得} ̲！= 1）{print…k、KaTeX解析エラー：期待される '}'、取得入力の最後にある「EOF」：hash { k} \ n ";print SORTED“ $ k \ n”;＃行を変更して、列と列の出現回数をターゲットファイルに出力します}}close（ FILE1）;閉じる（FILE）;閉じる（SORTED）;

CSDN：Perlスクリプトの一般的な操作