Perl module 将OWL文件转换为OBO的Perl模块

我是Perl新手，以前从未使用过CPAN模块，我需要将OWL文件转换为OBO格式。我成功地安装了“on-PERL-1.37”模块。我想使用以下脚本：

use Carp;
use strict;
use warnings;

use OBO::Parser::OWLParser;

my $my_parser = OBO::Parser::OWLParser->new();
my $ontology = $my_parser->work(shift(@ARGV));
$ontology->export('obo');

exit 0;

结束

---

我的问题是我是否需要声明输入OWL文件，如果需要，如何为上述脚本声明输入OWL文件

此脚本从命令行获取参数。这就是移位（@ARGV）的作用<当使用

perl owl2obo.pl my ontology.owl运行脚本时，code>shift

从列表中删除第一个元素，

@ARGV

是一个列表，其中填充了作为命令行参数给定的文件名

如果更容易，可以使用修改脚本

 my $ontology = $my_parser->work('/the/path/to/ontology.owl');

或

 my $owlfile = shift(@ARGV) || '/path/to/owlfile.owl';
 my $ontology = $my_parser->work($owlfile);