perl how to remove last '_'?

Question

In perl, how to write this regex ?

my $line = "job_name_1_" ; #end with '_'

$pattern = "_$"; # tried "\_$", still doesn't work

if($line =~ m/$pattern/){
    # remove last "_" ?
}

-#output should be "job_name"

how to do this ?

Answer 1

要删除最后一个下划线字符，您只需要执行以下操作：

$line =~ s/_$//;

Answer 2

$subject =~ s/_(?=[^_]*$)//;

对不起，如果其他人也发布了这个:)

Answer 3

To remove a trailing underscore: ( foo__ ⇒ foo_ , foo_bar ⇒ foo_bar )

$line =~ s/_\z//;

To remove all trailing underscores: ( foo__ ⇒ foo , foo_bar ⇒ foo_bar )

$line =~ s/_+\z//;

To remove the last underscore: ( foo__ ⇒ foo_ , foo_bar ⇒ foobar )

$line =~ s/_(?!.*_)//s;

$line =~ s/^.*\K_//s;

Answer 4

Try this:

$test = "test_";
$test = $1 if($test=~/(.*)_$/);
print $test