Question

perl按hash值排序并返回名次

比如说这样的文件:
a 0.1
b 0.3
c 0.2
d 0.3
e 0.4
想要排序后得到这样的文件
a 0.1 1
c 0.2 2
b 0.3 3
d 0.3 3
e 0.4 5
也就是说按数字的大小排序，然后还要返回名次，数字大小一样的名次要保证一样。
其中第一列的字母是唯一的。

Answer 1

#!/bin/env perl
my @data = map {$_->[0]} sort{$a->[1] <=> $b->[1]} map{[ $_, (split)[1] ]} <DATA>;
my $line=1;
my $rank=$line;
my $flag=undef;
for (@data)
{
chomp;
if ($flag != (split)[1])
{
$flag = (split)[1];
$rank = $line;
}
print "$_\t$rank\n";
$line++;
}
__DATA__
a 0.1
b 0.3
c 0.2
d 0.3
e 0.4

Answer 2

#!/usr/bin/perl

my ( $i, $j ) = ( 0, 1 );
my @a = sort { $a->[1] <=> $b->[1] } map { [split] } <DATA>;
for my $r ( 1 .. @a ) {
print join( "\t", @{ $a[ $r - 1 ] }, $i == $a[ $r - 1 ][1] ? $j : $r ),
"\n";
( $i, $j ) = ( $a[ $r - 1 ][1], $r );
}
__DATA__
a 0.1
b 0.3
c 0.2
d 0.3
e 0.4

Answer 3

#!usr/bin/perl -w
my ($file,$out)=@ARGV;
open FILE,$file or die "$!";
open OUT,"+>$out" or die "$!";
my %count;
my %number;
my $i=1;
while (<FILE>)
{
chomp;
my @array =split(/\s+/,$_);
if (exists $count{$array[1]})
{
$number{"$array[0]\t$array[1]"}=$count{$array[1]};
$i++;

}
else
{
$number{"$array[0]\t$array[1]"}=$count{$array[1]}=$i;
$i++;
}
my $keys = "$array[0]\t$array[1]";
print OUT "$keys\t$number{$keys}\n";

}

close FILE;
close OUT;

Answer 4

考题或面试题？

先说你自己有什么思路吗

追问

我的思路是先排序（已经排好了）然后按行读入文件，创建一个新的变量表示名次，如果数值没出现过，名次就等于行号，如果出现过了就等于上一个值的名次。
但是俺不会写。