leraning perl第六版 17章习题第一题疑问？

无双六

习题如下：
写一个程序,从文件中读入字符串,一行一个字符串,然后让用户输入模式,这个模式可能匹配上某些字符串。对于每一个模式,程序将指出文件中有多少个字符串(多少行)匹配上了,并指出是哪些。对于新的模式不需要重新读文件,将这些字符串保留在内存中。文件名可以直接写在程序之中。如果模式无效(例如,圆括号不匹配),则程序报告这个错误,并让用户继续尝试新的模式。当用户输入一个空行,则程序退出。
给出的答案如下：

1. #!usr/bin/perl
   
2. use 5.014;
   
3. use utf8;
   
4. use strict;
   
5. 
   
6. my $filename = 'sample_text.txt';
   
7. open my $fh, '<', $filename
   
8.         or die "Can't open '$filename': $!";
   
9. chomp(my@strings = <FILE>);
   
10. while (1) {
    
11.         print 'please enter a pattern:';
    
12.         chomp (my$pattern = <STDIN>);
    
13.         last if $pattern=~ /\A\s*\Z/;
    
14.         my @matches = eval {
    
15.                 grep /$pattern/, @strings;
    
16.         };
    
17.         if ($@) {
    
18.                 print "Error: $@";
    
19.         } else {
    
20.                 my$count = @matches;
    
21.                 print "there were $count matching stings:\n",
    
22.                         map "$_\n", @matches;
    
23.         }
    
24.         print "\n";
    
25. }

复制代码

我运行这个程序总是零匹配，而且在我看来貌似是错了，比如"<FILE>"是哪里来的。。

我自己写的如下：

1. #!usr/bin/perl
   
2. use 5.014;
   
3. use utf8;
   
4. use strict;
   
5. use autodie;
   
6. 
   
7. eval(open my$story_fh, '<', 'sample_text.txt');
   
8. 
   
9. while (1) {
   
10.         say "Please input your word:";
    
11.         chomp(my$input = <STDIN>);
    
12. 
    
13.         last if $input =~ /\A\s*\z/;
    
14.         my@match = eval { grep /\b$input\b/i, <$story_fh> };
    
15.         if ($@) {
    
16.                 say "Error: $@";
    
17.         } else {
    
18.                 my$count = @match;
    
19.                 print "$count successed match , they are:\n", @match, "\n";
    
20.         }
    
21. }
    
22. close $story_fh;

复制代码

第一次匹配成功，但之后就都匹配失败，都是零次了。
望高人指点。

rubyish

1. chomp(my@strings = <$fh>);

复制代码

无双六

回复 2# rubyish


    那请问我自己写的代码错在哪呢

mcshell

回复 3# 无双六


    你在循环中加入

1. my @str = <$story_fh>;
   
2.        

复制代码

然后输出@str，你看下结果。。
@str只会输出一次读取的文本值，第二次就为空。
你必须在循环之前读取@str,否则在循环中只会读取一次。

要么你把open放在循环中~

aku1

楼上正确，这错误不应该啊:wink:

无双六

回复 4# mcshell


    原来如此，多谢指点！

无双六

回复 5# aku1


    一直是自己一个人在看书，对细节方面不是很熟悉，只能边用边学习了