看板
[ Perl ]
討論串[問題] 關於上下左右轉換的問題
共 5 篇文章
內容預覽:
看你有幾行就用幾次.<FP>. 如果是不固定的話 那.. 就一行慢慢掃 掃到你滿意為止. while(<FP>). {. last if($_=~/停止條件/);. $row.=$_:. }你應該是想問 一個row裡面的元素數量不固定 該怎麼解決. 因為我那段程式的話 每列的長度要一樣 行數是無限制
(還有79個字)
內容預覽:
use List::Util qw( max );. open $F, '<', 'fun.txt';. @raw = <$F>;. close $F;. chomp for @raw;. $max_len = max map { length($_) } @raw;. @p = @raw[0..4
(還有301個字)
內容預覽:
1.先讀取前三行. 然後讀取剩下的. open FP,"test.txt" or die $!;. $row=<FP>.<FP>.<FP>;. @text=<FP>;. close FP;. 2.把 行首跟內文分開. foreach(@text). {. push @column,substr $_
(還有282個字)
內容預覽:
#########################################. 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2. 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9. 10 E E F F E .. 11 8 F 2
(還有426個字)