Question

我的情况是,在<代码>/性质之后,我需要删除最后的<代码>n。

例:

/iwmout/sourcelayer/iwm_service/iwm_ear_layer/pomoeron.xml@@/main/lsr_int_vnl46a/61

After the last /, I need the number 61 stripped out of the line so that the output is,

/iwmout/sourcelayer/iwm_service/iwm_ear_layer/pomoeron.xml@@/main/lsr_int_vnl46a/

我尝试使用ch,但只去掉最后的品格。以上例子1。

最后一个部分,即61个,可能就象221或2或100个东西一样。在<代码>/之后,我需要删除最后的数值。是否可能在Perl?

Answer 1

取消最后一位数的顶级替换:

my $str =  /iwmout/sourcelayer/iwm_service/iwm_ear_layer/pomoeron.xml@@/main/lsr_int_vnl46a/61 ;
$str =~ s/d+$//;

对应一系列数字,$对应线末。他们被空洞所取代。

Answer 2

@Tim s对$str =~ s/d+$/的回答是正确的;然而,如果你想要删除最后的n数字特征,则你可以这样做:

my $s = "abc123456";
my $n = 3; # Just the last 3 chars.
$s =~ s/d{$n}$//; # $s == "abc123"

Answer 3

// Code to remove last n number of strings from a string.
// Import common lang jar
import org.apache.commons.lang3.StringUtils;

public class Hello {
    public static void main(String[] args) {
        String str = "Hello World";
        System.out.println(StringUtils.removeEnd(str, "ld"));
    }
}

友情链接