Re: [問題] 正規表示+讀檔方面問題
#!/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
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 3 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
