用于检查文件是否存在于 Linux 文件系统中的 Perl 脚本

Question

我在生产服务器上工作。我想检查每天生成的文件，并通过电子邮件发送报告，比如每天生成的文件。我喜欢使用 perl 脚本，我可能会在不同的服务器上运行脚本，所以我的脚本应该检查文件生成的其他服务器。它还检查文件头和尾。请指导我如何检查不同的系统以及如何生成邮件内容取决于文件是否存在条件，即是否所有文件都存在内容类似于生成的所有文件，并且它包含带有文件名和文件状态的表是否存在。如果文件不存在，文件名应突出显示，内容应类似于未生成的丢失文件，请调查...给我一些想法。谢谢

总结：

只检查文件是否存在，使用 header 和 trailing check 。生成为文件名和状态为 1 或 0 的表格格式的邮件。如果未生成，则使用 perl 突出显示这些文件

Answer 1

您可以使用检查文件是否存在

if(-e "filename"){
  #file exists
}
else{
  #file does not exist
}

它还会检查文件头和尾。

不确定你的意思，但我想一旦你确认文件存在，你就可以阅读它的内容来检查它：

open FILE, "filename" or die "Error opening file!\n"
while(my $line=<FILE>){
  #process line
}