Perlコーディング初心者質問スレ Part 38

**nobodyさん** · 04/11/05 04:46:45

>>544
引数をハッシュに代入してexistsで条件分離したら？

for(@ARGV){
　　$param{$_} = '1'; #値自体はなんでもいい。
}
分岐は
if(exists $param{'-a'}){ 処理１;}
とか
if($param{'-a'} == 1){ 処理１;}

みたいの。