從字符串Perl後綴中刪除Alpha字符

Question

如何從一行中刪除字母后綴？ 也就是說

AA12412BB 應該返回 AA12412

基本上看右邊最後一個數字字符後留下移除任何字符

Answer 1

如果字符串是$_：

s/\D+?$//; 

[編輯]：如果該行可能以結尾，則應使用非貪婪匹配（+?），以避免剝奪這個角色（感謝DanD指出了這一點）。這是因爲$將匹配字符串末尾或緊接在字符串末尾的\n之前。

當行文字工作，它通常是一個好主意，通過調用chomp()先去掉所有尾隨\n，然後做力所能及的工作是必要的，最後追加\n當行寫出。這簡化了處理後綴並計算了行的長度，並且非常有用，perl提供了-l選項來使單行程的過程自動化。在這種情況下，簡單的s/\D+$//;可用於：

perl -lpe "s/\D+$//" <in.txt> out.txt 

Answer 2

試試這個：$line =~ s/\D+\z//;

Answer 3

試試這個：

$str =~ s/(?<=\d)\D+//; 

你可能想扔\b在那裏，如果有多個目標在線：

$str =~ s/(?<=\d)\D+\b//; 

如果你只有萬噸至影響行的最後一場比賽，你可以使用$來代替：

$str =~ s/(?<=\d)\D+$//; 

Answer 4

s/[A-Za-z]{2}$//;

或者，如果你想要一個一行，在DOS提示符下鍵入在：

perl -pe "s/[A-Za-z]{2}$//" <a.txt >b.txt

這從在每A.TXT行的末尾去除2個字母字符和保存新的數據到b.txt

如果線路沒有按以2個字母字符結尾，那麼該行不會被修改。如果b.txt不存在，則創建它。如果b.txt存在，則b.txt中的任何舊內容都將被銷燬。 a.txt和b.txt需要位於您鍵入單行內容時所處的目錄中，例如如果您在C：\用戶中輸入單行比a.txt和b.txt還需要C：\ users