酷!學園

技術討論區 => 程式討論版 => 主題作者是: hongbin 於 2009-10-22 15:32

主題: Perl text file parsing 問題
作者: hongbin2009-10-22 15:32
小弟有一個檔案,內容為下
"aaa"
    test1
"bbb"
    test2
    test3
"ccc"
    test4
    test5
    test6
  
小弟想把檔案內容變成
"aaa" test1
"bbb" test2 test3
"ccc" test4 test5 test6

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




主題: 回覆: Perl text file parsing 問題
作者: Yamaka2009-10-22 18:25
小弟有一個檔案,內容為下
"aaa"
    test1
"bbb"
    test2
    test3
"ccc"
    test4
    test5
    test6
  
小弟想把檔案內容變成
"aaa" test1
"bbb" test2 test3
"ccc" test4 test5 test6

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

用RE來做應該比較簡單吧, 一行就可以搞定~
主題: 回覆: Perl text file parsing 問題(已解決) ,謝謝...
作者: hongbin2009-10-22 19:37
$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