Perl 笔试题1

Nvidia 2019 笔试题

1164424-20200225215514571-314991237.png

源代码

#!/usr/bin/perl

open(IN,"<nv_data1.txt") or die "File does not exist!";
while (<IN>){
    chomp;                    #删除\n
    print("$_\n");
    if($i==0){next};          #跳过第一行
    ($power,$area) = calc($_);#统计当前行单元的面积和功耗
    
    $total_power += $power;   #统计总面积和功耗
    $total_area += $area;
    if(/^ALU/i){
    $alu_power +=  $power;
    } 
    elsif(/^RAM/i){
        $ram_area +=  $area;        
    }
}continue{
    $i++;
}
# 功耗和面积计算函数
sub calc{
    my $string = scalar($_);
    @tmp = split(/\s+/,$string); #根据空格划分单元格内容

    return ($tmp[1]*$tmp[3], $tmp[1]*$tmp[2]);
}
close IN;

#输出
print("Total area is $total_area\n");
print("Total power is $total_power\n");
print("RAM area is $ram_area\n");
print("ALU power is $alu_power\n");

$RAM_area_percentage = $ram_area/$total_area*100;
$ALU_power_percentage = $alu_power/$total_power*100;
print("The percentage of RAM area is $RAM_area_percentage %\n");
print("The percentage of ALU power is $ALU_power_percentage %\n");

程序输出结果

Name:            Instance_number        Area-per-instance      Power-per-instance
ALU-Adder:       32                     945                    0.0333
ALU-Multiplier   16                     6347                   0.2235
RAM-Small        8                      2239                   0.0542
RAM-Large        2                      10943                  1.9312
Control          1                      8345                   0.2344
Data-pipe        1                      10123                  1.3423
Processor        1                      24231                  1.0212
Total area is 214289
Total power is 11.5355
RAM area is 39798
ALU power is 4.6416
The percentage of RAM area is 18.5721152275665 %
The percentage of ALU power is 40.2375276320922 %
Perl编程语言是一种强大的脚本编程语言,适用于各种任务和领域,包括文本处理、系统管理、网络编程等。下面是一个Perl编程的笔试练习题的解答: 题目:编写一个Perl脚本,统计一个文本文件中每个单词出现的次数,并按照频率从高到低的顺序输出。 解答: ```perl #!/usr/bin/perl use strict; use warnings; my $filename = 'text.txt'; open(my $file, "<", $filename) or die "无法打开文件:$!"; my %word_count; while (my $line = <$file>) { chomp($line); my @words = split(' ', $line); foreach my $word (@words) { $word =~ s/[^a-zA-Z]//g; # 只保留字母字符 next if $word eq ''; # 跳过空字符串 $word_count{lc($word)}++; } } close($file); foreach my $word (sort { $word_count{$b} <=> $word_count{$a} } keys %word_count) { print "$word: $word_count{$word}\n"; } ``` 这个Perl脚本首先打开指定的文本文件,并使用`<`操作符将文件内容读入到循环变量`$line`中。在每次迭代中,我们将每一行字符串使用空格进行分割,得到一个单词数组`@words`。接下来,我们使用一个循环遍历`@words`数组中的每个单词,并进行一些处理: 1. 使用正则表达式`s/[^a-zA-Z]//g`去除单词中的非字母字符; 2. 使用`next if $word eq '';`跳过空字符串; 3. 使用`lc($word)`将单词转换为小写字母形式,并将其作为哈希表`%word_count`的键,将该单词的出现次数加一。 在循环结束后,脚本将按照单词出现次数从高到低的顺序对`%word_count`进行排序,并循环打印输出每个单词和其出现次数。 以上是对Perl编程的笔试练习题的参考解答,希望对您有帮助。如果有任何疑问,请随时提问。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

love小酒窝

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值