perl之谜

#! /usr/bin/perl

my $path="../case/";
my @file_list;
my $filename;
my $run_case="../tools/run_case";
my @regress_list;
################################
# get input parameter:sim_tool
################################
my $sim_tool=0;
foreach(@ARGV){
if(/\-nc/){
$sim_tool=1;
}else {
$sim_tool=0;
}
}
if($sim_tool){
$run_case="$run_case -sim_tool nc";
}else{
$run_cae="$run_case -sim_tool vcs"
}
################################
# get input parameter:cov
################################
my $cov=0;
foreach(@ARGC[0]){
if(/\-cov/){
$cov=1;
}else {
$cov=0;
}
}
if($cov){
$run_case="$run_case -cov";
}else{
}
################################
# get input parameter:regress
################################
my $cov=0;
foreach(@ARGC[1]){
if(/\-regress/){
$regress=1;
}else {
$regress=0;
}
}
if($regress){
$run_case="$run_case -regress";
}else{
}

 

昨夜西风凋碧树，一段perl代码的坑……

结合下面这段百度来的知识，学习到了@ARGC的用法，嗯！

@ARGV
既然以@开头，标明这是一个list，你当做数组看就行了。
含义是包含了程序从命令行得到的所有参数。
比如运行
a.pl 10 20 30 a b c
则，
$ARGV[0]是10
$ARGV[3]是a
如此。