Re: [問題] 正規表示+讀檔方面問題
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
推
09/23 23:38, , 1F
09/23 23:38, 1F
→
09/24 12:47, , 2F
09/24 12:47, 2F
討論串 (同標題文章)
完整討論串 (本文為第 3 之 3 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
