Perl CGI 寫文件嚴(yán)重靈異了，求助ing

dove-young

代碼是這樣的

1.     open (SPRINT, ">${project}/data/sprint_plan.csv" ) || die "cannot write to file ";
   
2.     $num = 0;
   
3.     foreach (@start_date) {
   
4. #        print "end_date = $_ <br>";
   
5. #        print join "|", $start_date[$num], $end_date[$num], $num+1, "<br>";
   
6. 
   
7.         print "start date = $_ <br>";
   
8.         $end = $end_date[$num];
   
9.        
   
10. #        $sprint_plan = join ",", $num+1, $_, $end_date[$num] ;
    
11. #        $sprint_plan = join "|",  $_, $num++ ;
    
12.         print "end date = $end<br>";
    
13.         print SPRINT "$_ | ";
    
14.         print SPRINT "$end | ";
    
15.         print SPRINT $num++, "\n"
    
16. #        print SPRINT "$_|$start|<br>\n";
    
17. #        print SPRINT "----------------\n";
    
18. #        $num++;
    
19.     }
    
20.     close (SPRINT);

復(fù)制代碼

執(zhí)行之后頁面輸出這樣的信息

1. start date = 2010-03-04
   
2. end date = 2010-03-14
   
3. start date = 2010-03-15
   
4. end date = 2010-03-25
   
5. start date = 2010-03-26
   
6. end date = 2010-04-05
   
7. start date = 2010-04-06
   
8. end date = 2010-04-18
   
9. start date = 2010-04-19
   
10. end date = 2010-04-27
    
11. start date = 2010-04-28
    
12. end date = 2010-05-08
    
13. start date = 2010-05-09
    
14. end date = 2010-05-19
    
15. start date = 2010-05-20
    
16. end date = 2010-05-30
    
17. start date = 2010-05-31
    
18. end date = 2010-06-10
    
19. start date = 2010-06-11
    
20. end date =

復(fù)制代碼

但靈異的是文件始終是這樣的結(jié)果

1. -bash-3.1# cat /var/www/cgi-bin/new/data/sprint_plan.csv
   
2. | 0
   
3. | 1
   
4. | 2
   
5. | 3
   
6. | 4
   
7. | 5
   
8. | 6
   
9. | 7
   
10. | 8
    
11. 2010-06-11 |  | 9
    
12. -bash-3.1#

復(fù)制代碼

靈異的是，如果把這一行注釋掉

1. #        print SPRINT "$end | ";

復(fù)制代碼

， 就會(huì)成這樣的結(jié)果

1. -bash-3.1# cat /var/www/cgi-bin/new/data/sprint_plan.csv
   
2. 2010-03-04 | 0
   
3. 2010-03-15 | 1
   
4. 2010-03-26 | 2
   
5. 2010-04-06 | 3
   
6. 2010-04-19 | 4
   
7. 2010-04-28 | 5
   
8. 2010-05-09 | 6
   
9. 2010-05-20 | 7
   
10. 2010-05-31 | 8
    
11. 2010-06-11 | 9
    
12. -bash-3.1#

復(fù)制代碼

dove-young

如果把 這一行換成其他任何變量，都能成功寫入文件

1. #        print SPRINT "$end | ";

復(fù)制代碼

換成

1. #        print SPRINT "$start | ";

復(fù)制代碼

，就能成功寫入

1. -bash-3.1# cat /var/www/cgi-bin/new/data/sprint_plan.csv
   
2. 2010-03-04 | 2010-03-04 | 0
   
3. 2010-03-15 | 2010-03-04 | 1
   
4. 2010-03-26 | 2010-03-04 | 2
   
5. 2010-04-06 | 2010-03-04 | 3
   
6. 2010-04-19 | 2010-03-04 | 4
   
7. 2010-04-28 | 2010-03-04 | 5
   
8. 2010-05-09 | 2010-03-04 | 6
   
9. 2010-05-20 | 2010-03-04 | 7
   
10. 2010-05-31 | 2010-03-04 | 8
    
11. 2010-06-11 | 2010-03-04 | 9
    
12. -bash-3.1#

復(fù)制代碼

dove-young

看起來真是相當(dāng)奇怪。 print $end 輸出到 STDOUT 沒任何問題，可是為什么就是寫不到文件呢？ 而且還是只要包括了他， $start_date 也寫不進(jìn)去了

zhlong8

無法重現(xiàn)你的錯(cuò)誤

copy的你的代碼，加了點(diǎn)數(shù)據(jù)，一切正常。

dove-young

所以說就靈異呢啊。 簡(jiǎn)單到不能再簡(jiǎn)單，初級(jí)到不能再初級(jí)的東西     昨天晚上搞了半晚上，還是那個(gè)錯(cuò)。

wxlfh

會(huì)不會(huì)是換行符沒去掉呢，哈哈。

dove-young

會(huì)不會(huì)是換行符沒去掉呢，哈哈。
wxlfh 發(fā)表于 2010-11-07 09:57

  就是那個(gè) <textarea> 提交上來的詭異的換行符。 但是為什么有這個(gè)換行符寫文件就寫不進(jìn)去呢？

貌似是應(yīng)該有詭異的折行才是��？

2gua

靈異？這么叫有點(diǎn)別扭。

wxlfh

回復(fù) 7# dove-young


    一般文本文件按行讀到內(nèi)存時(shí)，都要去掉行尾的換行符。
安全點(diǎn)，用這樣

1. chomp $_;    #需要去掉換行符的類似的變量，不一定是$_

復(fù)制代碼

如果確定，可以直接去掉最后一個(gè)字符，當(dāng)然不是換行符也會(huì)去掉

1. chop $_;

復(fù)制代碼

iamlimeng

回復(fù) 9# wxlfh


文本文件讀到內(nèi)存，行尾的換行符并不會(huì)自動(dòng)去掉，我以前有過同樣的教訓(xùn)，靈異事件，找不到原因，所以使用chomp是個(gè)好習(xí)慣。