求会perl的朋友帮忙看看啊

zengxuli

a   b
1   -1
1   2
1   3
2   4
2   5
2   7
3   8
3   9
3   0

remark

是学生交作业? 什么学校还有这课 还是自己做吧

zengxuli

回复 2# remark

哎，自己知道思路但是不知道怎么用这个语言来写啊，头大额，前辈我想问问比如说统计111对应的值把相应的结果存入二维数组中，以111,222，333为二维数组的行，以对应的值作为列，这样处理行吗，还是perl有比较简单的方法啊，谢谢前辈

stanley_tam

偶试试，正好100行，呵呵

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use IO::Dir;
   
5. 
   
6. sub get_txt_from;
   
7. sub get_fh;
   
8. sub strip;
   
9. sub process;
   
10. sub main;
    
11. 
    
12. our %interval_g_counter_for = ();
    
13. our %values_of_g_for = ();
    
14. our $containing_folder = 'A';
    
15. main();
    
16. 
    
17. sub main {
    
18.     my $texts_aref = get_txt_from($containing_folder);
    
19.     for my $file (@{$texts_aref}){
    
20.         process($file);
    
21.     }
    
22. 
    
23.     # 0-5,6-10,11-15，16-20
    
24.     for my $key (keys %interval_g_counter_for){
    
25.         my $value = $interval_g_counter_for{$key};
    
26.         print "$key => [$value]\n";
    
27.     }
    
28. 
    
29.     #  11 22 33 44
    
30.     for my $key (sort keys %values_of_g_for){
    
31.         my @values_g = @{ $values_of_g_for{$key} };
    
32.         print "When B is $key, the values for g are [@values_g]\n";
    
33.     }
    
34. }
    
35. 
    
36. sub process {
    
37.     my ($file) = @_;
    
38.     my $fh = get_fh($file);
    
39.     while(defined(my $line = <$fh>)){
    
40.         $line = strip($line);
    
41.         next if !$line;
    
42.         # skip lines not start with 11 22 33 44
    
43.         if ($line =~ m{^ (:? [1234]) \1 \s+}mix) {
    
44.             my ($b, $g) = (split /\s+/, $line)[0, 5];
    
45.             $b ||= 0;
    
46.             $g ||= 0;
    
47. 
    
48.             if ($g <= 5) {
    
49.                 $interval_g_counter_for{'0to5'}++;
    
50.             }
    
51.             elsif ($g <=10) {
    
52.                 $interval_g_counter_for{'5to10'}++;
    
53.             }
    
54.             elsif ($g <=15) {
    
55.                 $interval_g_counter_for{'11to15'}++;
    
56.             }
    
57.             elsif ($g <=20) {
    
58.                 $interval_g_counter_for{'16to20'}++;
    
59.             }
    
60.             else {
    
61.                 $interval_g_counter_for{'21to'}++;
    
62.             }
    
63. 
    
64.             # hash values are array reference, auto vivification...
    
65.             push @{$values_of_g_for{$b}}, $g;
    
66.         }
    
67.     }
    
68.     close $fh;
    
69. }
    
70. 
    
71. sub get_txt_from {
    
72.     my ($dir) = @_;
    
73.     my @files = ();
    
74. 
    
75.     my $d_fh = IO::Dir->new($dir);
    
76.     if (defined $d_fh) {
    
77.         while ( defined(my $file = $d_fh->read) ) {
    
78.             next if $file eq '.';
    
79.             next if $file eq '..';
    
80.             next if $file !~ m{ \.txt $}mix;
    
81.             push @files, "$dir/$file";
    
82.         }
    
83.     }
    
84.     return \@files;
    
85. }
    
86. 
    
87. sub get_fh {
    
88.     my ($file, $mode) = @_;
    
89.     open my $fh, $mode, $file or
    
90.         die "Fail to open file $file:$!\n";
    
91.     return $fh;
    
92. }
    
93. 
    
94. sub strip {
    
95.     my ($str) = @_;
    
96.     chomp $str;
    
97.     $str =~ s{^\s+ | \s+$}{}gmx;
    
98.     return $str;
    
99. }
    
100. 
     
101. __END__

复制代码

rubyish

试试:

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my $DIR = '/tmp';     
   
4. @ARGV = glob "$DIR/*.txt";
   
5. my ( @K, %B, %G ) = qw/ c d e f g h i /;
   
6. while (<>) {
   
7.     my ( $B, @s );
   
8.     ( $B, @s ) = split if /^\d+/;
   
9.     next unless @s == 7;
   
10.     $G{ $s[4] }++;
    
11.     map { push @{ $B{$B}{$_} }, shift @s } @K;
    
12. }
    
13. 
    
14. sub GRANGE {
    
15.     my ( $h, $t, $c ) = @_;
    
16.     map { $c += $G{$_} } grep { $_ >= $h && $_ <= $t } keys %G;
    
17.     $c;
    
18. }
    
19. sub ELIST { @{ $B{ $_[0] }{ $_[1] } } }
    
20. 
    
21. say "[ G:0-5 ]  ", GRANGE( 0, 5 );                 # [ G:0-5 ]  3
    
22. say "[ 11: g ]  ", join '|', ELIST( 11, 'g' );    # [ 11: g ]  2|4|5|6|8

复制代码

change line 3 :

1. my $DIR = '/tmp';  

复制代码

rubyish

change line 5:

1. my ( @K, %B, %G ) = qw/ c d e f g h i /;

复制代码

zengxuli

第五行下面的好多都看不懂额，你能不能给我注释注释讲讲你的思路啊，我是想的先找到文件夹下面所有匹配的.txt文件，然后对于这些文件中的每一个.txt文件进行处理。每个的处理方式是先读取该文件中的所有行存到对象中，在统计g值得分布的时候，对于每一行去查找"g"这个关键词，设置一个标记位，看是否找到，找到则为1，退出该行，查找下面的行，找到'-------'则设为0，然后判断该标记位为1则去掉该行数据间的空格，用','代替存到数组中去，然后判断该数组中的对应g值属于哪个分区，从而进行统计。，回复 6# rubyish


   

zengxuli

在统计b对应的g值时，一行行判断，查找关键字”b”，如果找到了，则将flag标志位记为1，如果找到'--------'则记为0。判断标志位如果为1，则将文本中数据之间以及开头的空格去掉，每行中数字之间的空格用逗号代替，这样把文件中的这些数据存放到二维数组中（二维数组多大没定，因为有的.txt文件中数据是像我提问中写的那样，有的会多一些b值（b值其实是不定的，有的就像写的11,22,33，但是也有45,67这样的情况，但是确定的一点是比如11就对应有5行，这个是确定的））。现在看二维数组的第一列有哪些b,将统计出的b值放到另一个二维数组的行中，再来判断如果二维数组中的列为该一维数组中对应的值，则将相应的g值放到b的值的二维数组对应的列中。这样最终查看b值时，就能查看相对应的g值了。不知道这样想是不是复杂了，求教啊，感激涕零回复 5# rubyish


   

stanley_tam

@ARGV = glob "$DIR/*.txt";
这个glob不错，还以为在windows下不能用呢。

zengxuli

查看b对应的g值这个功能不知道是怎么实现的额，还有一个应该是我没说清楚的一点是b值可能是11，22,33,44,34,56等等还有可能是别的值，这个值其实是不定的，这样的话该怎么处理呢，谢谢回复 4# stanley_tam