Gibt es einen regulären Ausdruck, um einen nachgestellten Schrägstrich in Perl zu entfernen?

Question

Ich möchte einen abschließenden Schrägstrich aus einer Zeichenfolge entfernen. Zum Beispiel, wenn ich eine Zeichenfolge namens $ test = "test /" habe. Wie würde ich den Schrägstrich am Ende entfernen?

Answer 1

Wenn Sie sicher sind, dass es ist ein/am Ende die ganze Zeit Sie die Chop-Funktion verwenden können:

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

Wenn Sie nicht sicher sind, können Sie tun:

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

Answer 2

Mit einem regulären Ausdruck zu tun: $test =~ s/\/$//

Alternativ, wenn Sie das letzte Zeichen sind sicher, dass ein Schrägstrich sein wird, können Sie die chop Funktion: chop $test

Answer 3

können Sie die s/// Substitution Operator:

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

Answer 4

Persönlich würde ich das anders formulieren die Mischung aus "\" und "/"

$test =~ s|/$|| 

zu vermeiden Wenn Sie "|" Sie brauchen nicht die „/“

Answer 5

Dieser Ausschnitt kümmert sich um folgende Schrägstriche zu zitieren, mit Ausnahme des Stammverzeichnis:

#!/usr/bin/perl 
 

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

Hier ist, wie es funktioniert:

Der erste Teil des regulären Ausdrucks - s {(. +)/\ Z} - definiert eine Gruppe in den Klammern (). Dies wird durch die \ 1 im zweiten Teil des regulären Ausdrucks - {\ 1}. Innerhalb dieser Gruppe habe ich ein oder mehrere Zeichen definiert - . + - gefolgt von einem Schrägstrich gefolgt von dem absoluten Ende der Zeichenfolge - \ z.

Der reguläre Ausdruck speichert alles in den Klammern, die später als \ 1 in der Ersatz-Spezifikation verwendet werden

Dies zu einer typischen sed Strategie sehr ähnlich arbeitet, nämlich (den zweiten Teil, im Grunde.):

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

ich hoffe, das Ihnen von Hilfe ist.