2010-11-27 - kj-kiのはてなダイアリー経由、IBM Linux at IBM | RHEL5.4 KVM 仮想マシンの自動複製のkvmclone.plをリーディングしてみる。 #!/usr/bin/perl # # kvmclone.pl for RHEL5.4 KVM # # 2009/12/22 ver1.0 # ### モジュール及び、グローバル変数の宣言 use strict; use vars qw( $opt_t $opt_o $opt_n $opt_i $opt_m $opt_g $opt_s $opt_h $opt_a ); use Getopt::Std; ### 引数オプションのパース処理とusage sub chkopts { getopts( 'ahs:t:o:n:i:k:g:b:c:m:' ); ### -a と -h 以外は指定必須 $opt_h