作者cutecpu (可爱中央处理器)
看板Perl
标题Re: [问题] 正规表示+读档方面问题
时间Fri Sep 23 17:11:48 2011
#!/usr/bin/perl
$_ = '!@#/Z @#2/BB 24rRYE/CCC'; # your test case
@result = /\/([A-Z]{1,3})/g;
print join('+',@result);
※ 引述《firegsh (~\cite{yaranaiga})》之铭言：
: 虽然感觉短时间一再来发问不是很好，不过还是不得不上来求救了！
: 问题如下，假设我在某个资料夹内有一些档案，档案内容为
: !@#/Z @#2/BB 24rRYE/CCC ...
: 1.档案的内容格式大致上是*/[A-Z]的形式，slash前是一堆字元，slash之後是1-3个大
: 写英文字母
: 2.现在的目的是把这堆档案中的内容要处理後放到另一个档案内
: 3.新的档案内容会是
: Z+BB+CCC+...
: 这样的形式，而且是逐行处理的。
: 目前试过用s/.+\/[A-Z][A-Z]?[A-Z]?/\+/g来进行全部的取代处理，
: 但是结果不正确，想请教一下该如何修改？谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.59.164.109