谁能帮我注释下这个程序

南宫慕容007

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. 
   
5. open(IN, $ARGV[0]);
   
6. 
   
7. $COUNT=1;
   
8. 
   
9. 
   
10. 
    
11. while ($LINE = <IN>) {
    
12.         $LINE =~ s/\n//g;
    
13.         print $LINE."  ";
    
14.         $LINE =~ s/wav/plp/g;
    
15.         @parts = split(/\//,$LINE);
    
16.         $path = $parts[0]."/".$parts[1]."/".$parts[2];
    
17.         # print $path."\n";
    
18.         if (!-e $path) {
    
19.                 system("mkdir -p $path");
    
20.         }
    
21.         print $LINE."\n";
    
22. }
    
23. 
    
24. close(IN);
    

复制代码

输入文件是这种格式的
wav/huangxunan/near/060.wav
wav/huangxunan/near/059.wav
wav/huangxunan/near/058.wav
wav/huangxunan/near/057.wav
请问按照上买的程序会得到怎么的输出结果

jason680

回复 1# 南宫慕容007

那不懂
都是基础....
查一下英文单词,也会知道什么做用...
除了 s/old/new/g
   

南宫慕容007

多谢提醒了，我回头再好好看看回复 2# jason680


   

南宫慕容007

输入文件是这种格式的
wav/huangxunan/near/060.wav
wav/huangxunan/near/059.wav
wav/huangxunan/near/058.wav
wav/huangxunan/near/057.wav
请问按照上买的程序会得到怎么的输出结果
回复 2# jason680


   

jason680

回复 4# 南宫慕容007

try and get it
   

RE_HASH

没必要花时间研究一段这种水平的程序。越学越傻。不如你说需求大家帮你找个好办法。

南宫慕容007

有道理回复 6# RE_HASH


   

zhlong8

输出的是把所有 wav 换成 plp 的字符串啊，同时创建对应的 plp/.... 的文件夹

sunzhiguolu

回复 1# 南宫慕容007
了解下 system 函数估计你也能猜出程序想干啥.

   

hztj2005

   system("mkdir -p $path");
c语言中也有这种语法。