方法一:sort()+substr()函数
为了比较使用数字的字符串,从字符串中获取数字是非常重要的。我们可以根据这些数字,对字符串数组进行排序。
substr()函数可以用于从字符串中提取这些数字。此函数将字符串中不包括数字的字符数作为参数。
注意:数组中的所有字母数字字符串必须具有相同的大小。
示例:
use strict; use 5.010; # 用字母数字字符串定义数组值 my @x = qw(prin_4 Keys_8 pubg_12); print 原数组:\n; print join , , @x; # 使用sort()和substr()函数对数组进行排序 my @y = sort { substr($a, 5) <=> substr($b, 5) } @x; # 输出排序的数组 print \n\n排序的数组:\n; print join , , @y;
输出:
原数组: prin_4 , Keys_8 , pubg_12 排序的数组: prin_4 , Keys_8 , pubg_12
方法二:sort()+正则表达式
如果字母数字字符串有点复杂,执行上面的代码是一项艰巨的工作,因此,为了更简单,我们可以使用正则表达式。
例如:如果数组包含“Keys_8_keys”,那么很难处理这种情况,因此为了正确过滤字符串中的数字,可以使用正则表达式。
注意:此方法不关心字母数字字符串是否具有不同的大小。
示例:
use strict; use 5.010; # Sample string to extract # number from my $str = 'Key_8_key'; # Regular expression to extract the number my ($number) = $str =~ /(\d+)/; # 输出提取的数字 print 从Key_8_key中提取的数字是:$number\n; # 用字母数字字符串定义数组 my @x = qw(pri_4 Key_8_key pubg_12); # 排序前的数组 print \n排序前的数组:\n; print join , , sort @x; # 使用正则表达式 my @y = sort { ($a =~ /(\d+)/)[0] <=> ($b =~ /(\d+)/)[0] } @x; # 排序后数组 print \n\n排序后数组\n; print join , , @y;
输出:
从Key_8_key中提取的数字是:8 排序前的数组: Key_8_key , pri_4 , pubg_12 排序后数组 pri_4 , Key_8_key , pubg_12
注:如果数组包含其中某些字符串中没有数字的字符串,则可以使用0代替该数字。要检查字符串中是否没有数字,请使用以下代码:
my @y = sort { (($a =~ /(\d+)/)[0] || 0) (($b =~ /(\d+)/)[0] || 0) } @x;
示例:
#!/usr/bin/perl use strict; use 5.010; # 混合类型字符串的数组 my @x = qw(pri_4 Key pubg_12); # 使用正则表达式 my @y = sort { (($a =~ /(\d+)/)[0] || 0) <=> (($b =~ /(\d+)/)[0] || 0) } @x; # 输出排序的数组 print 排序后数组:\n; print join , , @y;
输出:
排序后数组: Key , pri_4 , pubg_12
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。