如何截斷perl中特定字符的字符串？

Question

我有一個字符串'Basingstoke & Deane'，我想檢查'&'符號，並從該點（包括）切下字符串。

所以我輸入的是：'Basingstoke & Deane'

和輸出是：'Basingstoke '

我可以搜索使用$string =~ /&/的'&'優良，可替代/使用s/&//刪除它，但我有一個如何刪除&以及之後的所有字符。剩餘的空間並不重要。

這是很多字符串之一，因此一個通用的解決方案將是最好的。道歉，如果這之前已經問過，我已經看到了很多關於使用substr截斷字符串以及搜索特定字符串的問題等等的問題，但沒有什麼我正在尋找的東西。任何幫助讚賞。

Answer 1

$string =~ s/&.*//s; 

將刪除字符串的其餘部分，包括換行符。

Answer 2

你也可以找到&的指標，並使用substr函數取字符串的一部分：

my $string = 'Basingstoke & Deane'; 
my $amp_index = index($string, '&'); 

print substr($string, 0, $amp_index); 
# Basingstoke 

禮貌@TLP的（substr當作左值）：

substr($string, index($string, '&')) = "" 

Answer 3

my ($prefix) = $string =~ /^([^&]*)/s; 

my ($prefix) = split /&/, $string;  # Slightly faster, IIRC 

就地：

$string =~ s/&.*//s;