※ 引述《pttask (批踢踢．問．XD)》之銘言： : 不好意思，可能是我觀念及想法有問題，還請前輩指導我 : ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ : 假若我有一個同一個資料夾下有一個123.txt : 其123.txt的內容如下 : acg : bdh : ei : f : ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ : 而小弟前段大概是這樣想的 : use strict; : open TRY1,"<123.txt"; : my ($try,@array); : while(<TRY1>) <TRY1> 每次只會讀一行進來，所以 while 的內容會跑四次， 照原本的寫法最後 @array 會只有最後一行的內容。 : { : $try=$_; : $try=~ s/\n//g; : #以上代表讀到換行將換行字元去除期望成為acgbdh ei f : @array=split(//,$try); 想存成一維陣列的話，這行改成 push @array, split(//,$try);。 想存成二維陣列的話，這行改成 push @array, [ split(//,$try) ];。 : #將每個字猜成字元,以達到我想要$array[0]=a...$array[6]=空白字元...以此類推 : } : 在於這個部份我的想法是否是有誤的呢？ : 假若可以單讀將字元一個一個丟到陣列之中的話 : 後段的部份用兩個雙迴圈應當可以產生以下結果 對，其實用雙層迴圈就能產生下面的結果， 我上一篇寫的那段好像很複雜的轉換程式請當作沒看到……。 （最近迷上那個模組，結果不管做什麼都想用那個模組來做……） ## 假設 @array 已經是二維陣列了 my @array2; for ( my $i = 0; $i < @array; $i++ ) { for ( my $j = 0; $j < @{$array[$i]}; $j++ ) { $array2[$j][$i] = $array[$i][$j]; } } @array = @array2; : ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ : ab : cdef : ghi : ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ : 真的很不好意思我是程式初學者就問大家一些簡易的問題，I'M SO SORRY! Orz --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.113.23.102