Re: [問題] 正規表示+讀檔方面問題

[firegsh (~\cite{yaranaiga})]

my code:（失敗的情形）

#!/usr/bin/perl

my $dir="...";
opendir(DIR,$dir) or die "...";

foreach my $file(readdir(DIR)){
        /\/([A-Z]{1,3})/g;
        print join('+',$1);
}
closedir(DIR);

現在我要處理的文件裡面的情形

.../AA .../BB .../C .../DDD
.../.. .../.. .../.. .../..
...

處理之後的文件希望成為
AA+BB+C+DDD
..+..+..+..
...

另外一點麻煩的是原文的最後一組符號出現，像DDD
要如何去判斷才不會讓後面也出現一個多餘的'+'，變成
AA+BB+C+DDD+

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.117.169.190
推 abliou:上一篇沒有解決你的問題嗎?
→ firegsh:結果是正確的 不過我想我再琢磨一下..