看板 [ Perl ]
討論串[問題] 讀取檔案的內容
共 10 篇文章
首頁
上一頁
1
2
下一頁
尾頁

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者hws110 ( only you )時間12年前 (2012/11/02 00:18), 編輯資訊
1
0
0
內容預覽:
大家好. 小弟最近在用perl去讀取檔案並取值. 檔案的內容是這樣. 0 1. 0 2. 0 3. 0 4. 1 1. 0 2. 2 3. 1 4. 0 1. 1 2. 右邊的1、2、3、4是代號. 左邊的數字則是得到的資料. 我的程式是將1、2、3、4的資料統計出來. 例如說0有幾個,1有幾個,2
(還有528個字)

推噓1(1推 0噓 0→)留言1則,0人參與, 最新作者flu (Crazy Rhythm)時間12年前 (2012/11/02 19:33), 編輯資訊
0
0
0
內容預覽:
use Data::Dumper ;. my %count_of_si ; #統計si出現的次數. my %p_of_si ; #統計si為0的次數. my $raw_read_in ;. while($raw_read_in = <>){. #樣式比對 把該行內首先出現的,被space or ta
(還有466個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者hws110 ( only you )時間12年前 (2012/11/05 23:27), 編輯資訊
1
0
0
內容預覽:
我試了一下,$raw_read_in是指讀入的檔案的變數吧?. 所以我改成這樣. -------. use strict;. use Data::Dumper ;. my %count_of_si ; #統計si出現的次數. my %p_of_si ; #統計si為0的次數. my $raw_rea
(還有596個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者flu (Crazy Rhythm)時間12年前 (2012/11/06 00:24), 編輯資訊
1
0
0
內容預覽:
不是喔 原先的用意是放置讀入的檔案的每一行內容的地方. 以下行首不為':' 的行就是我有修改的. my $name_of_file_in = "aaa_inc"; #讀入的檔案. if (-e $name_of_file_in) print "$name_of_file_in exist\n";.
(還有89個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者hws110 ( only you )時間12年前 (2012/11/06 20:34), 編輯資訊
1
0
0
內容預覽:
這裡我有key錯 是原本的 $count_of_si{ $filtered[1] }++; 才對. 我試了一下. 發現show出的內容是. $var1 = 7. $var2 = 7. $var3 = 7. $var1 = 6. $var2 = 7. $var3 = 2. 上行表示1、2、3全部的個數
(還有91個字)
首頁
上一頁
1
2
下一頁
尾頁