Perl-统计某电路面积、功耗占比（NVDIA2019笔试）

1、perl脚本

open IN, "<", "data.txt" or die "The file does not exist!";
 
$line = ;    # 文本总的行数
 
while(<IN>){
    chomp;
    #print("$_\n");
    push(@line_array,$_);   # 将文本所有行存入数组
    if(/^ALU/){
             push(@ALU_index,$line);  # 记录ALU所在行
    }
    if(/^RAM/){
             push(@RAM_index,$line);        # 记录RAM所在行
    }
    $line++;
}
 
#print("$line\n");
#print("@RAM_index\n");
 
foreach (@line_array){
    print("$_\n");
  @elements = split(/\s+/,$_);           #按空格进行切分
    push(@name_array,$elements[]);        #将每行的4个元素进行归类
    push(@number_array,$elements[]);
    push(@area_array,$elements[]);
    push(@power_array,$elements[]);
}
#print("@power_array\n");
 
#    计算总面积
$total_area = ;
for($i=;$i<$line;$i++){
    $total_area = $total_area + $number_array[$i]*$area_array[$i];
}
print("total area is $total_area\n");
 
# 计算RAM的面积
$RAM_area = ;
foreach(@ALU_index){
    $RAM_area = $RAM_area + $number_array[$_]*$area_array[$_];
}
print("RAM area is $RAM_area\n");
$RAM_area_percentage = $RAM_area/$total_area*;
print("The percentage of RAM area is $RAM_area_percentage %\n");
 
close IN;

2、输出

Name:           Instance_number        Area-per-instance      Power-per-instance
ALU-Adder:                                               0.0333
ALU-Multiplier                                          0.2235
RAM-Small                                                0.0542
RAM-Large                                               1.9312
Control                                                  0.2344
Data-pipe                                               1.3423
Processor                                               1.0212
total area is
RAM area is
The percentage of RAM area is 61.5019903028154 %

3、涉及知识点

　　1）数组的基本操作：push

　　2）按照空白字符进行分割：split(/\s+/,$_)，+表示多个空格

　　3）循环语句：for，foreach