perl的练习题救助。希望大家能帮忙写写。

acguitar

刚开始接触perl，对perl一点都不懂，关于perl的语句啥的也一点都不懂呃。现在有两个练习题，希望大家帮忙写一下，最好能多些点注释。谢谢啦！

1.用Perl语言写一段代码，将目标文件一行一行的读取（txt文件），并复制到指定的文件。目标文件和指定的文件路径作为输入的参数。
2。用Perl语言写一段代码,计算出一个文本中有多少个单词（重复的也算），并按照字母表顺序输出每个单词在文本中的频率。

希望大神们能多写点注释哈。谢谢啦。

acguitar

求帮助啊？各位大神帮帮忙呢

huang6894

Perl实例精解(原书第4版)
http://bbs.chinaunix.net/forum.p ... mp;fromuid=29097174



http://bbs.chinaunix.net/forum.p ... mp;fromuid=29097174

stanley_tam

这个要是帮你写了，会不会受到谴责。。。{:3_188:}

stanley_tam

帮一半吧，一个有注释，一个没有
题1:

1. #!perl
   
2. use strict;
   
3. use FileHandle;
   
4. 
   
5. my %frequency = ();
   
6. ++$frequency{$_} for split /\s+/, do {local $/; FileHandle->new(shift, 'r')->getline};
   
7. printf "%-20s=>%10s$/", $_, $frequency{$_} for sort keys %frequency;
   
8. 
   
9. __END__

复制代码

题2:

1. #!perl
   
2. use strict;
   
3. use FileHandle;
   
4. use Getopt::Std qw{ getopts };
   
5. 
   
6. sub main;
   
7. sub usage;
   
8. 
   
9. main;
   
10. 
    
11. sub main {
    
12.     # get files from parameters
    
13.     getopts('f:t:', \my %opts);
    
14.     my ($from, $to) = @opts{'f', 't'};
    
15.     usage() if not $from or not $to;
    
16. 
    
17.     # open files
    
18.     my $from_fh = FileHandle->new($from, 'r');
    
19.     my $to_fh   = FileHandle->new($to,   'w');
    
20. 
    
21.     # read and write
    
22.     while ( defined(my $line = $from_fh->getline) ) {
    
23.         # read one line each time
    
24.         $to_fh->print($line);
    
25.     }
    
26. 
    
27.     # close
    
28.     $from_fh->close;
    
29.     $to_fh->close;
    
30. }
    
31. 
    
32. sub usage {
    
33.     print "Usage:\n\t$0 -f file1 -t file2$/";
    
34.     exit 1;
    
35. }
    
36. 
    
37. __END__

复制代码

huang6894

回复 5# stanley_tam


    大神，我觉得你写的话，应该写最基础那些写法{:2_176:}

acguitar

回复 3# huang6894
哈哈，谢谢，但是根据自己的题目看代码是不是会学的快点噢。

   

acguitar

回复 5# stanley_tam
赞一个，太感谢啦。。。嘿嘿，不过好像两个题写反了。


   

stanley_tam

第二个应该很基础了吧，都是核心库{:3_201:} 回复 6# huang6894


   

huang6894

..................
不好意思，我其实写了一个每行都有注释的。。。可是忘记贴代码就rm掉了。。。就不重写了。。。。

第一题你去看看@ARGV、句柄；
第二题你去了解一下split、[^\w]+、数组和$#数组名。。。。

就可以了