perl как убрать последний '_'?

Question

В Perl, как написать это регулярное выражение?

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

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

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

-#output should be "job_name"

как это сделать?

Answer 1

Чтобы удалить последний символ подчеркивания, вам просто нужно сделать следующее:

$line =~ s/_$//;

Answer 2

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

Извините, если кто-то еще опубликовал это:)

Answer 3

Чтобы удалить символ подчеркивания: (foo__ & rArr; foo_, foo_bar & rArr; foo_bar)

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

Чтобы удалить все завершающие подчеркивания: (foo__ & rArr; foo, foo_bar & rArr; foo_bar)

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

Чтобы удалить последнее подчеркивание: (foo__ & rArr; foo_, foo_bar & rArr; foobar)

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

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

Answer 4

Попробуйте это:

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