求Perl 学习手札 简体版 ，mailport.91i的连接已经失效

gudai

RT

哪为兄弟有保存的，共享。

至为感谢



鉴于网络连接可能失效的问题，故我将繁体版抓下来，过滤掉google ad , 传到这里保存之。

zip格式包大于200K，故压为7z格式。

搜索7zip，安装解压，即可解开此包

由于论坛附件不支持7z扩展名，故重命名为7z.zip，请下载后自行去掉后面的.zip

路小佳

自己动手转换一下即可。

1. 
   
2. #!/usr/bin/perl -W
   
3. #
   
4. # File: find.pl
   
5. 
   
6. use strict;
   
7. use warnings;
   
8. 
   
9. use File::Find;
   
10. use Encode;
    
11. use Encode::Guess;
    
12. use Encode::HanConvert;
    
13. 
    
14. sub process($) {
    
15.     my $file = shift;
    
16.     local *FH;
    
17.     if (!open(FH, "<$file")) {
    
18.         die "Cannot read $file: $!";
    
19.     }
    
20.     local $/ = undef;
    
21.     my $content = <FH>;
    
22.     close(FH);
    
23.     unlink($file);
    
24. 
    
25.     my $enc = guess_encoding($content, qw/cp936 utf8/);
    
26.     if (!ref($enc)) {
    
27.         warn "Cannot guess: $enc";
    
28.         return undef;
    
29.     }
    
30.     $content = encode($enc, trad_to_simp(decode($enc, $content)));
    
31.   
    
32.     if (!open(FH, ">$file")) {
    
33.         die "cannot write $file: $!";
    
34.     }
    
35.     print FH $content;
    
36.     close(FH);
    
37.     return 1;
    
38. }
    
39. 
    
40. my @filelist = ();
    
41. 
    
42. find(sub{
    
43.         my $file = $File::Find::name;
    
44.         push(@filelist, $file) if($file =~ /\.htm$|\.html$/);
    
45.         },
    
46.      ".");
    
47. 
    
48. foreach(@filelist) {
    
49.     print $_, "\n";
    
50.     process($_);
    
51. }
    

复制代码

[ 本帖最后由 路小佳 于 2007-3-5 19:18 编辑 ]

lalasi

谢谢2位

Ecore

谢谢楼主,还2楼的兄弟.

perljoker

高人。。。。谢谢了

fliny

多谢了

xiaoshengcaicai

现在在哪里干活啊