討論區快速選單
知識庫快速選單
掌握Salesforce雲端管理秘訣 討論區最近新進100則主題 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
初學者的問題...
更改我的閱讀文章字型大小
作者 : synnex89853(sssssaaaa)
[ 貼文 9 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/8/18 下午 02:24:12
$input="123.txt";
open (FILE1, "$input");
@var=<FILE1>;
chop(@var);
for($i=0;$i<$#var;$i++)
{
if($var[$i]<$var[$i+1])
{
next;
}
{
open FILE, ">ans.txt";
print "$var[$i+1] \n";
for(keys @var){
print FILE " $var[$_]\n";
close FILE;
}
}
}
跑出
1
2
3


為什麼 我的ans.txt檔中 卻只會跑出3 而已呢

作者 : kunkun(阿昆)
[ 貼文 9 | 人氣 0 | 評價 80 | 評價/貼文 8.89 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/8/18 下午 04:19:13
不知道你123.txt內容是什麼 也不清楚這程式的功用是啥
或許你可以把>ans.txt改成>>ans.txt看看!
作者 : synnex89853(sssssaaaa)
[ 貼文 9 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/8/18 下午 05:17:28
123.txt 檔 裡是用
1 1.3
2 1.2
3 1.1
4 1.0
3 1.1
2 1.2
1 1.3

看 1 2 3 4 3 2 1 是否遞增
沒有的話 會出現

3 1.1
2 1.2
1 1.3
之後我想要perl 開個txt檔 然後 把
3 1.1
2 1.2
1 1.3
放到裡面
但是 只出現
1 1.3
作者 : kunkun(阿昆)
[ 貼文 9 | 人氣 0 | 評價 80 | 評價/貼文 8.89 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人synnex89853註記此篇回應為最佳解答 2012/8/18 下午 06:46:30
開檔那邊改成
open FILE, ">>ans.txt";
print "$var[$i+1] \n";
print FILE " $var[$i+1]\n";
close FILE;

這樣就可以了吧!

前面的chop可以改成chomp
我把你程式碼cope下來執行 cmd顯示的最後一行都會不見
3 1.1
2 1.2
1 1.
我改成chomp就不會了
 板主 : 徵求中
 > Perl - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Perl - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Perl
1 HKLN.net 2850 
2 Benson 480 
3 Jsn 470 
4 pail 240 
5 可愛處理器 170 
6 菜鳥小德 160 
7 mrhsuap 160 
8 kalua 120 
9 110 
10 jackkon 100 
Perl
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.046875