从字符串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