作者 主題: Perl text file parsing 問題  (閱讀 4851 次)

0 會員 與 1 訪客 正在閱讀本文。

hongbin

  • 憂鬱的高中生
  • ***
  • 文章數: 101
    • 檢視個人資料
Perl text file parsing 問題
« 於: 2009-10-22 15:32 »
小弟有一個檔案,內容為下
"aaa"
    test1
"bbb"
    test2
    test3
"ccc"
    test4
    test5
    test6
  
小弟想把檔案內容變成
"aaa" test1
"bbb" test2 test3
"ccc" test4 test5 test6

請教各位先進透過Perl 如何能夠達這個想法,謝謝...




« 上次編輯: 2009-10-22 15:35 由 hongbin »

Yamaka

  • 俺是博士!
  • *****
  • 文章數: 4913
    • 檢視個人資料
    • http://www.ecmagic.com
回覆: Perl text file parsing 問題
« 回覆 #1 於: 2009-10-22 18:25 »
小弟有一個檔案,內容為下
"aaa"
    test1
"bbb"
    test2
    test3
"ccc"
    test4
    test5
    test6
  
小弟想把檔案內容變成
"aaa" test1
"bbb" test2 test3
"ccc" test4 test5 test6

請教各位先進透過Perl 如何能夠達這個想法,謝謝...

用RE來做應該比較簡單吧, 一行就可以搞定~

hongbin

  • 憂鬱的高中生
  • ***
  • 文章數: 101
    • 檢視個人資料
$file="test.txt";
open(FD,"$file")||die "Can't open $file!!\n";
$str=join('',<FD>);
$str=~ s/\n\s+/ /g;
print $str,"\n";

test.txt 檔案內容為下:

"aaa"
    test1
"bbb"
    test2
    test3
"ccc"
    test4
    test5
    test6