搜诶符合你 发表于 2018-8-31 12:41:38

perl 求和

　　CU上一道题，利用perl求和
　　请问如何求和？
　　


[*]a 2
[*]a 3
[*]a 4
[*]b 4
[*]b 5
[*]c 6
[*]d 4
[*]d 1
　　

　　相同的字母求和。
　　直接上代码哦，
　　


[*]#!/bin/env perl
[*]
[*]use strict "subs";
[*]use List::Util qw/sum/;
[*]
[*]my %hash = ();
[*]
[*]open my $file,'
页: [1]
查看完整版本: perl 求和