функция Замена, чтобы очистить строку

Question

я мог разделить

$string = "AA_name" 

в @tmp массив и захватить $ TMP [1], чтобы получить только имя и отбрасывать AA_. Однако как вы это сделаете с помощью s ///? Я не знаю регулярное выражение, чтобы заменить все предыдущее и, в том числе, подчеркивание, чтобы ничто не оставило меня только имя. Что-то вроде

$n = $string =~ s/^_//; 

Но я довольно нуб с регулярным выражением.

Answer 1

Вы можете использовать следующее регулярное выражение

$string = "AA_name"; 
($name,undef) = $string =~ /(.*)_.*/; 
print "name=$name", ",Val=" , $string; 

Answer 2

Вы можете сделать следующее:

use strict; 
use warnings; 

my $string = "AA_name"; 
(my $n = $string) =~ s/.*_//; 
print $n; 

Выход:

name 

Если разделитель точка, то вы можете использовать s/.*\.// (ускользает от точки), или вы можете использовать класс символов: s/.*[.]//.

Answer 3

Вы можете использовать:

$string =~ s/^[^_]+_//; 

Это означает, что заменить все ведущие символы, которые не подчеркивания, плюс подчеркивание, ни с чем; что означает, что последующие символы подчеркивания остаются там, т.е.

AA_My_Name ==> My_Name 

Если вы хотите удалены до последнего '_', то используйте:

$string =~ s/^.+_//; 

Другие сепараторы могут быть использованы. Если вы хотите использовать '.' то не забудьте сбежать от него с помощью '\'.

Обратите внимание, что вам не нужно присваивать результат чему-либо. s /// изменяет строку аргумента.