ファイル比較
File::Compareモジュールを使うと二つのファイルが同じ物かどうかを調べることができます。
my $file1 = 'foo.dat'; my $file2 = 'bar.dat'; print $file1, "\n"; print $file2, "\n"; print "\n"; if (compare($file1, $file2) == 0) { print "同じファイルです。\n"; } else { print "違うファイルです。\n"; }
my $file1 = 'foo.dat'; my $file2 = 'bar.dat'; print $file1, "\n"; print $file2, "\n"; print "\n"; if (compare($file1, $file2) == 0) { print "同じファイルです。\n"; } else { print "違うファイルです。\n"; }