¿Hay una expresión regular para eliminar una barra final en Perl?

Question

Me gustaría eliminar una barra inclinada de una cadena. Por ejemplo, si tengo una cadena llamada $ test = "test /". ¿Cómo eliminaría la barra al final?

Answer 1

Si está seguro de que hay es uno/al final todo el tiempo que puede utilizar la función chuleta:

$test = "test/"; 
$test = chop($test); 

Si no está seguro de que puede hacer:

$test = "test/"; 
$test = $1 if($test=~/(.*)\/$/); 

Answer 2

Con una expresión regular hacer: $test =~ s/\/$//

Alternativamente, si estás segura el último carácter va a ser una barra, puede utilizar la función chop: chop $test

Answer 3

Usted puede utilizar el operador s/// substitución:

$test =~ s{/\z}{}; 

Answer 4

Personalmente me gustaría reformular esto para evitar la mezcla de "\" y "/"

$test =~ s|/$|| 

Si utiliza "|" que no es necesario citar el "/"

Answer 5

Este fragmento se hará cargo de barras al final, excepto en el directorio raíz:

#!/usr/bin/perl 
 

 
my $test = './'; 
 
$test =~ s{(.+)/\z}{\1}; 
 
print $test."\n";

Aquí es cómo funciona:

La primera parte de la expresión regular - s {(. +)/\ Z} - define un grupo entre corchetes (). Esto se referencia en el \ 1 en la segunda parte de la expresión regular - {\ 1}. Dentro de este grupo, definí uno o más caracteres - . + - seguido inmediatamente por una barra inclinada, seguida por el final absoluto de la cadena - \ z.

La expresión regular guarda todo dentro de los corchetes, para ser utilizado más tarde como \ 1 en la especificación de reemplazo

Esto funciona muy similar a una estrategia típica de sed, a saber (la segunda parte, en el fondo.):

echo "./" | sed -e 's:\(..*\)/$:\1:'

espero que esto sea de ayuda para usted.