字符串排序

quanpai

回复 8# sunzhiguolu

这样打印的时候需要记住行数

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %seen;
   
6. open DATA, "<", shift;
   
7. 
   
8. my $count = 0;
   
9. while ( my $word = <DATA> ) {
   
10.   chomp $word;
    
11.   for my $char ( split("", $word) ) {
    
12.       next if $char !~ /[a-zA-Z]/;
    
13.       #next if $char !~ /[0-9]/;
    
14.       $seen{$char}->{num}++;
    
15.       push @{$seen{$char}->{word}}, $count . "^^^^^" . $word;
    
16.   }
    
17.   $count++;
    
18. }
    
19. 
    
20. my %print_seen;
    
21. for my $char ( sort {$seen{$b}->{num} <=> $seen{$a}->{num}} keys %seen ) {
    
22.     for my $word ( @{$seen{$char}->{word}}) {
    
23.       next if $print_seen{$word}++;
    
24.       print((split(/\^\^\^\^\^/, $word))[1] . "\n");
    
25.     }
    
26. }
    
27. 
    
28. close DATA;

复制代码

quanpai

回复 7# Windows19

1. next if $char !~ /[a-zA-Z]/;

复制代码

改成

1. next if $char !~ /[a-zA-Z0-9]/;

复制代码

quanpai

回复 10# Windows19

文件大的话按照9楼的就可以，主要原理就是不能存数据

523066680

1. =info
   
2.     code by 523066680
   
3.     2017-06
   
4. =cut
   
5. 
   
6. #!/usr/bin/perl
   
7. use strict;
   
8. use IO::Handle;
   
9. STDOUT->autoflush(1);
   
10. 
    
11. our $SRC = "A.txt";
    
12. our $DST = "Final.txt";
    
13. our %letter;
    
14. our @group = ('a'..'z', 'A'..'Z');
    
15. our $wd = "./tempfolder";
    
16. mkdir $wd if (not -e $wd);
    
17. 
    
18. ANALYSE_AND_EXPORT:
    
19. {
    
20.     my %FH;
    
21. 
    
22.     #提前准备多个文件句柄
    
23.     grep { open $FH{$_}, ">:raw", "$wd/T${_}.txt" or die "$!" } @group;
    
24. 
    
25.     open READ, "<:raw", $SRC or die "$!";
    
26.     while ( my $line = <READ> )
    
27.     {
    
28.         if ($line=~/([a-zA-Z])/)
    
29.         {
    
30.             $letter{$1} = 0 if ( not exists $letter{$1} );
    
31.             $letter{$1}++;
    
32. 
    
33.             select $FH{$1};
    
34.             print $line;
    
35.         }
    
36.     }
    
37. 
    
38.     #清理所有文件句柄
    
39.     grep { close $FH{$_} } @group;
    
40.     close READ;
    
41. 
    
42.     select STDOUT;
    
43. }
    
44. 
    
45. COLLECT_DATA:
    
46. {
    
47.     my $RESULT;
    
48.     my $TempFH;
    
49.     open $RESULT, ">:raw", $DST or die "$!";
    
50. 
    
51.     #按出现的次数排列出优先顺序
    
52.     my @rank = sort_byValue(\%letter);
    
53. 
    
54.     for my $name ( @rank )
    
55.     {
    
56.         print "Reading F$name.txt ... \n";
    
57.         open $TempFH, "<:raw", "$wd/T$name.txt" or die "$!";
    
58.         while (my $line = <$TempFH>)
    
59.         {   
    
60.             print $RESULT $line;
    
61.         }
    
62.         close $TempFH;
    
63.     }
    
64. 
    
65.     print "Please check $DST\n";
    
66. }
    
67. 
    
68. sub sort_byValue
    
69. {
    
70.     my $ref = shift;
    
71.     my @arr;
    
72.     @arr = reverse sort map { $ref->{$_} .",". $_  } keys %$ref;
    
73. 
    
74.     my ($char, $times);
    
75.     for (@arr)
    
76.     {
    
77.         ($times, $char) = split(",", $_);
    
78.         print "char: $char, times: $times\n";
    
79.     }
    
80. 
    
81.     return (map { /,(.)$/; $_ = $1 } @arr);
    
82. }
    
83. 
    

复制代码

Windows19

回复 14# 523066680


执行脚本后返回
line 1: $'=info\r': command not found
line 2: code: command not found
line 3: $'2017-06\r': command not found
line 5: $'\r': command not found
line 6: use: command not found
line 7: use: command not found
line 7: $'\r': command not found
line 8: syntax error near unexpected token `('
line 8: `STDOUT->autoflush(1);



请问使用方法

523066680

回复 15# Windows19

更新了，在开头 $SRC 和 $DST 设置读入的文件名和生成的文件名。

这个问题你需要在开头加上
#!/usr/bin/perl

18:32
呼，忘了检验结果，已更改错误的地方。

sunzhiguolu

别忘了 打赏！！！

Windows19

回复 17# sunzhiguolu

Can solve the problem
No problem

sunzhiguolu

回复 16# 523066680
大神的功力果然是非同凡响，我是小白。
有几个问题向大神请教，还请帮忙指点，谢谢。

1. use IO::Handle;

复制代码

代码中没见到用到该模块中的方法呀。

1. STDOUT->autoflush(1);

复制代码

这个函数是个啥意思。

1. ANALYSE_AND_EXPORT:
   
2. {
   
3.     ...
   
4. }
   

复制代码

这是什么结构，代码从何处开始执行？ 看的有点晕菜了。。。

sunzhiguolu

回复 18# Windows19
打赏啊 quanpai，523066680。