三九宝宝网宝宝百科宝宝知识

Perl如何按第二列排序

12月24日 编辑 39baobao.com

[大学生自主创业如何设计创业计划书]创业计划书是将有关创业的想法,借由白纸黑字最后落实的载体。创业计划书的质量,往往会直接影响创业发起人能否找到合作伙伴、获得资金及其他政策的支持创业计划书必杀技如何写...+阅读

如果你是linux环境的话,可以直接用sort命令进行排序

sort -k 2nr your_file.txt >res.txt

如果没有的话用下面的perl脚本也可以实现

注:这个代码的结果是输出在STDOUT上的

#!/usr/bin/env perl

use strict;

use warnings;

my $file = "file.txt";

open FH,$file or die "$!";

my lines = ;

close FH;

my arr = map { my temp = split /\t/; \temp } lines;

arr = sort { $$b[1] $$a[1] } arr;

map { print {[ join "\t" , $_ ]} } arr;

以下为关联文档:

大学生创业大赛策划书如何自己弄的,内部资料,在网上应该搜不到的 编写提纲: 一、执行总结 二、项目介绍 三、市场分析 四、总体进度安排和发展策略 五、创业团队 六、资金运作与财务预测 七、风险应对...

如何快速出版学术专著每天都有很多学者咨询学术著作出版的问题,特别是为了评职称而出版专著的作者,更是恨不得下个月就能拿到新图书。出过书的朋友都知道,一本书稿的正规出版需要经过严格的审读和申...

如何做学术报告给我个格式学术报告优秀论文格式 1 编写要求 1.1 学术论文须用A4标准白纸。 1.2 学术论文页边距按以下标准设置:上边距:2.5cm;下边距:2.5cm;左边距:2.5cm;右边距:2.5cm;装订线:0.5cm;页眉:1.5cm;页...

perl的排序#!/usr/bin/perl use strict; exit(-1) if (!defined $ARGV[0]); if (!open FILE,"<$ARGV[0]") { print "Cannot open file:$ARGV[0]\n"; exit(-1); } my %content; foreach my...

如何用PERL实现如下排序:三列第一列为主排序依据第二列次my line; while(<>) { chomp; push line, [ split ]; } foreach ( sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] or $a->[2] <=> $b->[2] } line) { print $_, "\n"; }...

在perl语言下怎么对散列的数组按其中的三个散列值排序然后再按顺#!/usr/bin/perl my a = ( { name =>'banan', class =>1, score =>45 }, { name =>'tommy', class =>2, score =>35 }, { name =>'tommy', class =>2, score =>22 }, { name...

perl排序一个数组其中每组数含有8个数字按照其中某个数字大小import java.io.*;import java.util.*;public class ArraySortDemo { public static void main(String[] args) throws IOException{ BufferedReader br = new BufferedRead...

perl语言的几种排序sub qsort { my arr = _; if ($#arr <= 1) { if ($#arr == 1 & $arr[1] < $arr[0]) { arr[1,0] = arr[0,1]; } return arr; } my $p = $arr[int(rand($#arr + 1))]; my (s,...

perl中m行n列的列表按任一列排序怎么做啊楼上正解。 如三行三列数据分别为id name age: 1 wang 20 2 zeng 21 3 cheng 18 比如数据的文件名为t1.txt可以进行如下操作: open (FH ,"t1.txt") or die print "error $!" ; my...

推荐阅读
图文推荐