Có biểu thức chính quy nào để xóa dấu gạch chéo ở Perl không?

Question

Tôi muốn xóa dấu gạch chéo theo sau khỏi một chuỗi. Ví dụ: nếu tôi có một chuỗi gọi là $ test = "test /". Làm cách nào để xóa dấu gạch chéo ở cuối?

Answer 1

Nếu bạn chắc chắn rằng có là một trong/ở cuối tất cả các thời gian, bạn có thể sử dụng chức năng Chop:

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

Nếu bạn không chắc chắn bạn có thể làm:

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

Answer 2

Với một biểu thức chính quy làm: $test =~ s/\/$//

Ngoài ra, nếu bạn chắc chắn ký tự cuối cùng sẽ là một dấu gạch chéo, bạn có thể sử dụng chức năng chop: chop $test

Answer 3

Bạn có thể sử dụng toán tử s/// thay:

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

Answer 4

Cá nhân tôi sẽ nói lại điều này để tránh hỗn hợp "\" và "/"

$test =~ s|/$|| 

Nếu bạn sử dụng "|" bạn không cần phải trích dẫn "/"

Answer 5

đoạn này sẽ chăm sóc dấu slashes, ngoại trừ thư mục gốc:

#!/usr/bin/perl 
 

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

Dưới đây là cách hoạt động:

Phần đầu tiên của cụm từ thông dụng - s {(. +)/\ Z} - xác định nhóm trong ngoặc đơn (). Điều này được tham chiếu bởi \ 1 trong phần thứ hai của cụm từ thông dụng - {\ 1}. Trong nhóm này, tôi đã xác định một hoặc nhiều ký tự - + - theo sau ngay lập tức bằng dấu gạch chéo, sau đó là đầu cuối tuyệt đối của chuỗi - \ z.

Các biểu hiện thường xuyên tiết kiệm tất cả mọi thứ trong phạm vi khung, sau đó được sử dụng như \ 1 trong đặc tả thay thế

này hoạt động rất giống với một chiến lược sed điển hình, tức là (phần thứ hai, về cơ bản.):

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

tôi hy vọng điều này là trợ giúp cho bạn.