誰能幫我注釋下這個(gè)程序

南宮慕容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);
    

復(fù)制代碼

輸入文件是這種格式的
wav/huangxunan/near/060.wav
wav/huangxunan/near/059.wav
wav/huangxunan/near/058.wav
wav/huangxunan/near/057.wav
請問按照上買的程序會(huì)得到怎么的輸出結(jié)果

jason680

回復(fù) 1# 南宮慕容007

那不懂
都是基礎(chǔ)....
查一下英文單詞,也會(huì)知道什么做用...
除了 s/old/new/g
   

南宮慕容007

多謝提醒了，我回頭再好好看看回復(fù) 2# jason680


   

南宮慕容007

輸入文件是這種格式的
wav/huangxunan/near/060.wav
wav/huangxunan/near/059.wav
wav/huangxunan/near/058.wav
wav/huangxunan/near/057.wav
請問按照上買的程序會(huì)得到怎么的輸出結(jié)果
回復(fù) 2# jason680


   

jason680

回復(fù) 4# 南宮慕容007

try and get it
   

RE_HASH

沒必要花時(shí)間研究一段這種水平的程序。越學(xué)越傻。不如你說需求大家?guī)湍阏覀�(gè)好辦法。

南宮慕容007

有道理回復(fù) 6# RE_HASH


   

zhlong8

輸出的是把所有 wav 換成 plp 的字符串啊，同時(shí)創(chuàng)建對應(yīng)的 plp/.... 的文件夾

sunzhiguolu

回復(fù) 1# 南宮慕容007
了解下 system 函數(shù)估計(jì)你也能猜出程序想干啥.

   

hztj2005

   system("mkdir -p $path");
c語言中也有這種語法。