comparison src/gearsTools/generate_context.pl @ 357:e194c940c664

fix Getopt
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 15 Jun 2020 18:41:01 +0900
parents 045299ad7e97
children d2389a757323
comparison
equal deleted inserted replaced
356:599ad98aee00 357:e194c940c664
43 43
44 my $ddir = "c"; 44 my $ddir = "c";
45 45
46 our($opt_o,$opt_d,$opt_h,$opt_w, $opt_project); 46 our($opt_o,$opt_d,$opt_h,$opt_w, $opt_project);
47 GetOptions( 47 GetOptions(
48 "o=s" => \$opt_o, 48 "o=s" => \$opt_o,
49 "d=s" => \$opt_d, 49 "d=s" => \$opt_d,
50 "h" => \$opt_h, 50 "h" => \$opt_h,
51 "w" => \$opt_w, 51 "w" => \$opt_w,
52 "project" => \$opt_project, 52 "project=s" => \$opt_project,
53 ); 53 );
54 54
55 55
56 my $name = $opt_o?$opt_o:"gears"; 56 my $name = $opt_o?$opt_o:"gears";
57 57