主題: Perl text file parsing 問題

[hongbin]

小弟有一個檔案,內容為下
"aaa"
    test1
"bbb"
    test2
    test3
"ccc"
    test4
    test5
    test6
  
小弟想把檔案內容變成
"aaa" test1
"bbb" test2 test3
"ccc" test4 test5 test6

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

[Yamaka]

小弟有一個檔案,內容為下
"aaa"
    test1
"bbb"
    test2
    test3
"ccc"
    test4
    test5
    test6
  
小弟想把檔案內容變成
"aaa" test1
"bbb" test2 test3
"ccc" test4 test5 test6

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

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

[hongbin]

$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