作者firegsh (~\cite{yaranaiga})
看板Perl
标题Re: [问题] 正规表示+读档方面问题
时间Fri Sep 23 17:43:19 2011
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
1F：推 abliou:上一篇没有解决你的问题吗? 09/23 23:38
2F：→ firegsh:结果是正确的 不过我想我再琢磨一下.. 09/24 12:47