Re: [問題] 關於上下左右轉換的問題
※ 引述《jjt (jet)》之銘言：
: 1.先讀取前三行
: 然後讀取剩下的
: open FP,"test.txt" or die $!;
: $row=<FP>.<FP>.<FP>;
假設前面有幾行不一定的話,或是有很多行的話,還可以這樣寫嗎?
或是有別的辦法?用for可以嗎?
: @text=<FP>;
: close FP;
: 2.把 行首跟內文分開
: foreach(@text)
: {
: push @column,substr $_, 0, 3;
: push @content,substr $_, 3,-1;
假設前後的行數都不一定,是否要設變數?或是有比較好的想法?
例如以前面的行列數當作INDEX?
: }
: 3.印出來
: print "$row";
: foreach(0...$#content)
: {
: print $column[$_], reverse_x($content[$#content-$_]), "\n";
: }
: sub reverse_x
: {
: my $i = shift;
: join '', reverse unpack 'a ' x length $i,$i;
: }
: 黃字部份 $#content-$_ 表示反轉 , 改成 $_ 就是不轉啦
: reverse_x 最後那個join '', 把array連起來 然後再印出來那邊
: 其實不用join結果也一樣 端看你後來要怎麼處理或是顯示
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.65.55.161
※ 編輯: handsomegirl 來自: 61.65.55.161 (10/16 10:55)
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
