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

Question

Ich möchte einen nachgestellten Schrägstrich aus einer Zeichenkette entfernen. Wenn ich zum Beispiel eine Zeichenkette habe, die $test = "test/". Wie würde ich den Schrägstrich am Ende entfernen?

Answer 1

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

Wenn Sie sicher sind, dass das letzte Zeichen ein Schrägstrich sein wird, können Sie alternativ die Option Kotelett Funktion: chop $test

Answer 2

Wenn Sie sich sicher sind, dass immer ein / am Ende steht, können Sie die Funktion "Chop" verwenden:

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

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

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

Answer 3

Sie können die s/// Substitutionsoperator:

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

Answer 4

Ich persönlich würde dies umformulieren, um die Vermischung von "\" und "/" zu vermeiden.

$test =~ s|/$||

Wenn Sie "|" verwenden, müssen Sie das "/" nicht in Anführungszeichen setzen.

Answer 5

Dieses Snippet kümmert sich um abschließende Schrägstriche, außer für das Root-Verzeichnis:

#!/usr/bin/perl

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

Das funktioniert folgendermaßen:

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

Der reguläre Ausdruck speichert alles innerhalb der Klammern, um später als \1 in der Ersatzspezifikation (im Wesentlichen der zweite Teil).

Dies funktioniert sehr ähnlich wie eine typische Sed-Strategie, nämlich

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

Ich hoffe, dass dies für Sie von Nutzen ist.