Этот скрипт принимает аргумент из командной строки. Это то, для чего shift(@ARGV)
. shift
удаляет первый элемент из списка, а @ARGV
- это список, заполненный именем файла, заданным в качестве аргумента командной строки, при запуске сценария с perl owl2obo.pl my-ontology.owl
.
Если это проще, вы можете изменить скрипт с помощью
my $ontology = $my_parser->work('/the/path/to/ontology.owl');
или
my $owlfile = shift(@ARGV) || '/path/to/owlfile.owl';
my $ontology = $my_parser->work($owlfile);
.