需要把这些关键字行取出来

523066680

回复 10# Windows19

你缺乏的知识太多，这个是C语言的，先保存 biru.c

然后按答主给出的编译指令编译

gcc -Wall -O3 -march=native -o biru biru.c `pkg-config --cflags --libs glib-2.0`

然后才可以用 ./biru 命令

Windows19

523066680 发表于 2017-07-03 09:57
回复 10# Windows19

你缺乏的知识太多，这个是C语言的，先保存 biru.c

嗯，
因最近资产亏了一半，心神漂忽

今天才回了一点血

等我回神了我会认真学习了一下各位老师知识

希望能够增些基本功

stanley_tam

回复 6# Windows19

egrep不行？试试perl的，不知道行不行

1. #!perl
   
2. use strict;
   
3. use warnings;
   
4. use IO::File;
   
5. use Data::Dumper;
   
6. 
   
7. sub main;
   
8. sub get_lines_from_b;
   
9. sub find_these_in_big_file;
   
10. sub is_in;
    
11. 
    
12. main();
    
13. 
    
14. sub main {
    
15.     my $lines_aref = get_lines();
    
16.     find_these_in_big_file($lines_aref)
    
17. }
    
18. 
    
19. sub get_lines {
    
20.     my $fh = IO::File->new('b.txt', 'r');
    
21.     my @lines = $fh->getlines;  
    
22.     $fh->close;
    
23.     chomp @lines;
    
24.     return \@lines;
    
25. }
    
26. 
    
27. sub find_these_in_big_file {
    
28.     my ($lines_aref) = @_;
    
29.     my $read_fh = IO::File->new('a.txt', 'r');
    
30. 
    
31.     my $out_file = 'out.txt';
    
32.     my $write_fh = IO::File->new($out_file, 'w');
    
33. 
    
34.     my $million = 1_000_000;
    
35.     my $line_num = 0;
    
36.     while (my $line = $read_fh->getline) {
    
37.         ++$line_num;
    
38.         print "Processing line $line_num$/" if not $line_num % $million;
    
39. 
    
40.         if (is_in($lines_aref, $line)) {
    
41.             $write_fh->print($line)
    
42.         }
    
43.     }
    
44. 
    
45.     $read_fh->close;
    
46.     $write_fh->close;
    
47. 
    
48.     my $duration = time - $^T;
    
49.     print "Done, cost $duration seconds$/";
    
50. }
    
51. 
    
52. sub is_in {
    
53.     my ($lines_aref, $target_line) = @_;
    
54.     my $is_in = 0;
    
55.     for my $line (@{$lines_aref}) {
    
56.         if (index($target_line, $line) != -1) {
    
57.             $is_in = 1;
    
58.             last;
    
59.         }
    
60.     }
    
61.     return $is_in;
    
62. }
    
63. 
    
64. __END__

复制代码

stanley_tam

...

stanley_tam

1. 重复发这么多。。

复制代码