Как читать этот код в 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 в качестве имени файла для открытия.