Re: [問題] 一個關於perl讀檔的問題 請各位高手幫忙！

[pqman (who want some?)]

※ 引述《pqman (who want some?)》之銘言：
: 想請問大家
: 現在我有一個檔案 file.txt
: 內容是
: a  b  c  d  e
: f  g  h  i  j
: 1  2  3  4  5
: 6  7  8  9  10
: 我想把這群資料重新排列成
: a 1 b 2 c 3 d 4 e 5 f 6 g 7 h 8 i 9 j 10
: 然後輸出到data.txt
: 請問我該怎麼用perl達成呢？
: 謝謝喔！！
現在我卡在一個地方
那就是我想用常規表示法來搜尋字串
以下是我的code 例如我想找到a 把他貼到data.txt上

open (data1,"file.txt")
$text=<data1>;
        while ($text){
                if ($a = $text =~/\ba\b/){
                        $a="a";
                }
                else{
                        print "failed";
                }
                $text=<data1>;
        }
open (data2,"data.txt")
print data2 "$a";

但是我開data.txt來看 他都沒有寫入a耶
好奇怪＠＠
有人能幫我一下嗎＠＠？

--
    ◢                  █
                 ●     █
█◥█                ◢
 ◢◣█      ◢●╯     ◣◢ ◣
 ███   ●   ╯◤  ◢     ╮ 
▇▆◣          ◢▌ █ ◢◣│   

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.113.170.178
※ 編輯: pqman           來自: 140.113.170.178      (05/01 21:47)
推 LiloHuang:open (data2,"data.txt") 改 open (data2,">data.txt")
→ pqman:謝謝！！