perl脚本求教贴

hhuangfh

各位兄弟，在项目开发过程中，读前面不知多少年前的哪位哥们在shell脚本里留下的一段perl脚本。
我和周围的人都没有用过perl。所以不知道这段脚本到底做的时候。麻烦哪位亲帮忙看看，翻译翻译，不胜感谢：

1. perl -e '
   
2.      while (<>) { s/\|\s*$/ |/;  # make sure final | is preceded by space.
   
3.              @A = split; if (!($#A == 5 && $A[1] =~ m/sph2pipe$/ &&
   
4.                                $A[2] eq "-f" && $A[3] eq "wav" && $A[5] eq "|")) { exit(1); }
   
5.              $utt = $A[0]; $sphere_file = $A[4];
   
6. 
   
7.              if (!open(F, "<$sphere_file")) { die "Error opening sphere file $sphere_file"; }
   
8.              $sample_rate = -1;  $sample_count = -1;
   
9.              for ($n = 0; $n <= 30; $n++) {
   
10.                 $line = <F>;
    
11.                 if ($line =~ m/sample_rate -i (\d+)/) { $sample_rate = $1; }
    
12.                 if ($line =~ m/sample_count -i (\d+)/) { $sample_count = $1; }
    
13.                 if ($line =~ m/end_head/) { break; }
    
14.              }
    
15.              close(F);
    
16.              if ($sample_rate == -1 || $sample_count == -1) {
    
17.                die "could not parse sphere header from $sphere_file";
    
18.              }
    
19.              $duration = $sample_count * 1.0 / $sample_rate;
    
20.              print "$utt $duration\n";
    
21.      } '

复制代码

sunzhiguolu

1. 
   
2. while (<>) {
   
3.     s/\|\s*$/ |/;    #匹配以 "|" 字符串结尾的记录,允许行尾的空白; 将其替换为 " |" 的形式
   
4.     @A = split;    #用空白字符分割每条记录,忽略前导空白字符
   
5.     if (!($#A == 5 && $A[1] =~ m/sph2pipe$/ && $A[2] eq "-f" && $A[3] eq "wav" && $A[5] eq "|")) {
   
6.     #如果 数组 @A 包含6个元素 并且 第二个元素以 "sph2pipe " 字符串结尾 并且 第三个元素等于 "-f" 字符串 并且 第四个元素等于 "wav" 字符串 并且最后一个元素等于 "|" 字符串的话, 执行取反操作
   
7.     # 执行 exit 函数返回码为 "1";
   
8.         exit(1);
   
9.     }
   
10.     #if 条件判断失败的话，执行如下语句;
    
11.     $utt = $A[0];    #将第一个元素的值赋值给变量 $utt;
    
12.     $sphere_file = $A[4];    #将第五个元素的值赋值给变量 $sphere_file
    
13. 
    
14.     if (!open(F, "<$sphere_file")){    #如果打开文件失败的话, 抛出一个异常;
    
15.         die "Error opening sphere file $sphere_file";
    
16.     }
    
17.    
    
18.     $sample_rate = -1;    $sample_count = -1;    # 变量初始化操作
    
19.     for ($n = 0; $n <= 30; $n++) {    #仅读取文件的前31行记录
    
20.         $line = <F>;
    
21.         if ($line =~ m/sample_rate -i (\d+)/){
    
22.             $sample_rate = $1;
    
23.         }
    
24.         if ($line =~ m/sample_count -i (\d+)/) {
    
25.             $sample_count = $1;
    
26.         }
    
27.         if ($line =~ m/end_head/) {
    
28.             break;    #匹配此模式后退出 for 循环
    
29.         }
    
30.     }
    
31.     close(F);    #关闭 F 文件句柄
    
32.     if ($sample_rate == -1 || $sample_count == -1) {
    
33.         die "could not parse sphere header from $sphere_file";    #变量 $sample_rate 或 $sample_count 任意一个依然保持初始化的值的话，抛出一个异常;
    
34.     }
    
35.     $duration = $sample_count * 1.0 / $sample_rate;
    
36.     print "$utt $duration\n";    #打印结果
    
37. }
    

复制代码

应该能够看懂了。

hhuangfh

回复 2# sunzhiguolu

万分感谢～有了你打注释简单多了，虽然没有学过perl，不过这段代码大概做什么是明白了～谢谢