perl按照字符串长度进行排序，sort函数的示例

最新推荐文章于 2021-04-29 12:54:24 发布
最新推荐文章于 2021-04-29 12:54:24 发布
阅读量2.1k 收藏
点赞数
分类专栏： NLP研究 perl 文章标签： perl join
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jiangredsheep/article/details/7945042
版权
## rank by len
print join("\n",sort sort_by_len keys %chn_hash);


sub sort_by_len
{
if(length($a) < length($b)) {-1} elsif (length($a) > length($b)) {1} else {0}
}
jiangredsheep
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Perl字符串与排序
追梦赤子心
12-30 695
Perl字符串与排序 1. 字符串操作函数 1.1 index() 字符串查找函数 index 可以用于查找给定的字符串a是否出现在某个字符串b中，其实就是找到a在b中出现的位置； 找到匹配字符返回index，否则返回-1； 用法1： index($str1,$str2) 含义：查找 $str2 在 $str1 中出现的位置，从字符串首位开始查找； 用法2： index($str1,$str2...
Perl-字符串与排序2
Arkardia的博客
11-13 629
1. 用sprintf格式化字符串 sprintf函数与printf有相同的参数（可选的文件句柄参数除外），但sprintf函数返回的是结果字符串，而不会直接打印出来 sprintf函数的方便之处在于，可以将格式化后的字符串存放在变量里以便稍后使用 my $date_tag = sprintf "%4d/%02d/%02d %2d:%02d:%02d", $yr, $mo, $da, $h, $m, $s; # 得到类似 2038/01/19 3:00:08的结果 格式化定义中数字字段的前置零表示必要
perl利用字符串中的数字进行排序
yuehedou的博客
10-31 1090
使用Sort::Naturally模块进行排序用法： use Sort::Naturally; @them = nsort(qw( foo12a foo12z foo13a foo 14 9x foo12 fooa foolio Foolio Foo12a )); print join(' ', @them), "\n";Prints: 9x 14 foo fooa foolio
Perl笔记:12、字符串与排序
lanyanai的专栏
10-14 1973
index 函数 使用方法：index(待检索的字符串,"检索什么",从哪开始检索); 如下： my $string = "hello world!"; my $where = index($string,"wor"); $where 的结果为6，即wor中的w首次出现的位置，这个位置是从零开始算起的，如果你非要从1算起也可以，但解释就有些不同了，如果从1开始算起，你可以理解为“到达此字符之前经过
PERL 散列排序
liulipuo的专栏
03-05 509
perl -e %abc = qw/a 1 b 2 c 3/; print map {"$_/t$abc{$_}/n"} sort {$abc{$b} $abc{$a}} keys %abc
perl 函数全集（绝版）
10-27
"Perl函数全集"是Perl学习者的重要参考资料，它包含了Perl语言中众多内置函数的详细解释和示例，对于深入理解Perl的功能和提升编程技能非常有帮助。 在Perl中，函数是可重用的代码块，用于执行特定的任务。以下是...
Perl基础知识.pptx
03-10
`reverse`操作符用于反转列表的顺序，`sort`操作符可以对数组进行排序，默认按照字符编码排序，也可以自定义排序规则。在标量上下文中使用`@TD_team_names`将返回数组元素的个数，而在列表上下文中使用`<STDIN>`会...
pv.rar_Perl脚本_perl 统计
09-24
Perl提供了丰富的内建函数，如`open()`用于打开文件，`<FILEHANDLE>`用于读取文件内容，`chomp()`用于去除字符串末尾的换行符，以及`split()`用于按特定分隔符分割字符串。在描述中提到，Perl脚本会读取由shell脚本...
perl函数说明
04-08
Perl函数是Perl编程中的基本元素，它们执行特定的任务，如字符串操作、数组处理、文件I/O等。这些函数可以分为内建函数，即Perl语言本身提供的，和模块函数，由CPAN（Comprehensive Perl Archive Network）提供的...
数据结构和算法Perl：使用Perl5的数据结构和算法
02-05
例如，Perl的sort函数可以接受用户自定义比较函数，这使得实现各种排序算法变得简单。 “PerlPerl”标签可能指的是书中会详细讨论Perl语言本身，包括其语法特性、最佳实践以及一些陷阱和技巧。对于学习者来说，理解...
Perl基本数组排序方法介绍
hs6605015的博客
04-29 1856
这篇文章主要介绍了Perl基本数组排序方法介绍,本文讲解基于ASCII码排序、比较函数、按字母顺序排列、Perl对数值排序等内容 本文我们学习如何用Perl对字符串或者数字数组进行排序。 Perl有个内置函数叫做sort毫无疑问的可以排序一个数组。 其最简单的形式是传递一个数组，它会返回排序后的元素组成的数组。@sorted = sort @original。 基于ASCII码排序 #!/usr/bin/perl use strict; use warnings; use 5.010; use Data::
PERL子程序的调用与return操作符
dasgk的专栏
10-19 5881
先不说别的，先上代码 use strict; sub which_element_is() { my ($what,@array)=@_; foreach(0..$#array) { if($what eq  $array[$_]) { return $_; } } -1; } my @names=qw(fred betty dino wilma pebbles);
【perl】函數的參數變量和返回值
lbt_dvshare的博客
12-17 717
函數返回值 在Perl中，return语句可以返回一个标量值或者一个列表，这个标量值可以是一个变量，或者一个表达式的最后求值，如：return 1;&lt;===&gt;return(1); return $a+$b; &lt;===&gt;return($a+$b); 一个Perl函数的返回值，并不止一个，有时会有多个值需要返回，這時就要用到列表，这个列表可以包含多个变量值。 返...
如何用Perl对字符串或者数字数组进行排序。 hash 按value/按keys 排序(多种方法)。
whiffen_cann的专栏
03-14 5122
转载自：http://www.jb51.net/article/67894.htm Perl有个内置函数叫做sort毫无疑问的可以排序一个数组。 其最简单的形式是传递一个数组，它会返回排序后的元素组成的数组。@sorted = sort @original。 基于ASCII码排序 复制代码代码如下: #!/usr/bin/perl use strict
perl hash 按value/按keys 排序(多种方法)
热门推荐
bruce_wang_janet的专栏
02-04 3万+
use strict; my%hash=('a'=>2,'b'=>3,'c'=>1); foreachmy$key(sort{$hash{$b}$hash{$a}}keys%hash){     print$key,"=>",$hash{$key},"\n"; } perl中如何将按hash key值排序如果是按ASCII码排序，则代码如下： foreach my $key ( sor
perl字符串与排序
周翔的专栏
07-11 1619
index（主串，子串）从0开始查找，返回最近的一个子串的头字母在主串中的位置。 rindex（主串，子串）从最后结尾开始查找，返回最近的一个子串的头字母在主串中的位置。 都可以接受第三个参数，表示才那位开始查找，默认的是从0或最后 substr操作子字符串 三个参数：一个字符串，一个从零起算的初始值以及子字符串的长度 返回的值是子字符串 第二个参数为负值的话，则是从结尾
perl中sort的用法小记。
weixin_33817333的博客
03-29 444
为什么80%的码农都做不了架构师？>>> ...
Perl基础学习02之数组和哈希
qq_21478261的博客
04-11 237
数组（ Arrays） 以@开头，类似python中列表（list），例如数组array1表示为@array1。 例如，array1.pl #!/usr/bin/perl use strict; use warnings; my $out="test"; #数组定义 my @array1=(1,"apple",$out);#一个列表中可储存不同类型的数据，可引用外部变量 print ...
perl 匿名函数传参
zhaoyangjian724的专栏
05-26 1340
$subref=sub { my $a=shift; return $a; }; print $subref->("xxyyzz");
perl计算字符串长度
最新发布
06-13
在Perl中，可以使用内置函数length来计算字符串的长度。例如： ``` my $str = "Hello, world!"; my $len = length($str); print "Length: $len\n"; # 输出：Length: 13 ``` 在上面的代码中，首先定义了一个字符串...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值