- 论坛徽章:
- 307
|
本帖最后由 sunzhiguolu 于 2016-06-06 17:13 编辑
- #!/usr/bin/perl
- use strict;
- use warnings;
- my @aTitle = split ' ', scalar <DATA>;
- print "@aTitle M ID\n";
- while (<DATA>){
- my ($max, $offset, @aData) = (-1, 0, split);
- foreach (1 .. $#aData){
- ($max, $offset) = ($aData[$_], $_) if ($max < $aData[$_]);
- }
- print "@aData $max $aTitle[$offset]\n";
- }
- __DATA__
- N a b c d e f g h i j
- N1 1 2 3 5 6 5 7 5 3 1 7
- N2 1 5 3 4 2 7 5 4 5 6 7
- N3 6 3 1 3 5 9 4 3 2 1 9
复制代码 N a b c d e f g h i j M ID
N1 1 2 3 5 6 5 7 5 3 1 7 7 g
N2 1 5 3 4 2 7 5 4 5 6 7 7 f
N3 6 3 1 3 5 9 4 3 2 1 9 9 f
|
|