こちらも再掲。 #!/usr/bin/perl use strict; use Getopt::Std; use VMware::Vix::Simple; use VMware::Vix::API::Constants; my (%opt, $err, $host, $vm, $source, $dest); getopts("H:P:u:p:g:w:x:c:a:", \%opt); if (!defined($opt{"x"}) or !defined($opt{"c"})) { die "Usage: $0 [Authentication flags] -x VMX -c cmd -a args\n\n" . "Authentication flags\n" . "-H \n" . "-P \n" . "-u \n" . "-p \n" . "-g \n" . "-w \n\n"; }