加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 综合聚焦 > 服务器 > Linux > 正文

linux – unix – 分析文件中有多少个字符出现的记录

发布时间:2020-12-13 22:48:17 所属栏目:Linux 来源:网络整理
导读:是否有一个内置命令来执行此操作,或者有任何人对运行它的脚本有任何好运? 我想知道有多少记录(由特定的EOL定义,如“^%
是否有一个内置命令来执行此操作,或者有任何人对运行它的脚本有任何好运?

我想知道有多少记录(由特定的EOL定义,如“^%!”)有多少次出现的特定字符. (按出现次数降序排序)

例如,使用此示例文件:

jdk,|ljn^%!dk,|sn,|fgc^%!
ydfsvuyx^%!67ds5,|bvujhy,|s6d75
djh,|sudh^%!nhjf,|^%!fdiu^%!

建议输入:将EOL和文件名分隔符作为参数.

bash/perl some_script_name ",|" "^%!" samplefile

期望的输出:

occs    count
3        1
2        1
1        2
0        2

这是因为第1记录有一个分隔符,第2记录有2,第3记录有0,第4记录有3,第5记录有1,第6记录有0.

如果您可以使分隔符和EOL参数接受十六进制输入(即2C7C)或正常字符输入(即|),则可以使用奖励.

解决方法

这就是perl的生活:

#!perl -w
use 5.12.0;

my ($delim,$eol,$file) = @ARGV;

open my $fh,"<$file" or die "error opening $file $!";
$/ = $eol; # input record separator

my %counts;
while (<$fh>) {
    my $matches = () = $_ =~ /(Q$delimE)/g; # "goatse" operator
    $counts{$matches}++;
}

say "occstcount";
foreach my $num (reverse sort keys %counts) {
    say "$numt$counts{$num}";
}

(如果你没有5.12,删除“使用5.12”行并用print替换say)

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读