Существует ли регулярное выражение для удаления запаздывающей наклонной черты в Perl?
Я хотел бы удалить запаздывающую наклонную черту со строки. Например, если у меня есть строка, названная $test = "тест /". Как я удалил бы наклонную черту в конце?
9
задан brian d foy 22 March 2010 в 15:24
поделиться
4 ответа
Если вы уверены, что в конце всегда есть один /, вы можете использовать функцию chop:
$test = "test/";
$test = chop($test);
Если вы не уверены, что можете это сделать:
$test = "test/";
$test = $1 if($test=~/(.*)\/$/);
8
ответ дан 4 December 2019 в 06:35
поделиться
С регулярным выражением выполните: $ test = ~ s / \ / $ //
В качестве альтернативы, если вы уверены, что последним символом будет косая черта, вы можете использовать Функция chop : chop $ test
12
ответ дан 4 December 2019 в 06:35
поделиться
Лично я бы перефразировал это, чтобы избежать смешения "\" и "/"
$test =~ s|/$||
Если вы используете "|" вам не нужно цитировать "/"
8
ответ дан 4 December 2019 в 06:35
поделиться
Вы можете использовать оператор подстановки s /// :
$test =~ s{/\z}{};
8
ответ дан 4 December 2019 в 06:35
поделиться
Другие вопросы по тегам: