如何在perl中阅读此代码？

Question

我有一个出于某种原因而使用的脚本，该脚本是用perl编写的，我不知道如何用perl读取。 为了对该程序进行运行，我需要对其进行的唯一修改是在脚本中输入该程序将使用的相应文件名，但是我不知道该文件名应该去哪里。 你能帮我吗？

我假设它在脚本的以下两个块之一中的某个位置：

die "usage : [fasta file] \n" unless (@ARGV);

或者在这里：

sub read_fasta {
     my ($data, $file)= @_;
     open(FILE, "<",$file) or return 0;

Answer 1

当您不提供任何参数时，脚本生成的错误消息似乎表明您应该提供文件名作为参数。

./script file.fasta

代码确认。 脚本的第一个参数移入$genome ，并传递给read_fasta ，将其放入$file ，并传递给open作为要open的文件名。