如何獲取給定字符串的子字符串，直到指定字符的第一次出現？

Question

問題是否爲perl。

例如，如果我有"hello.world"和指定的字符是'.'那麼我想要的結果是"hello"。

Answer 1

見perldoc -f index：

$x = "hello.world"; 
$y = substr($x, 0, index($x, '.')); 

Answer 2

使用substr：

my $string = "hello.world"; 
my $substring = substr($string, 0, index($string, ".")); 

或者使用正則表達式：

my ($substring2) = $string =~ /(.*)?\./; 

Answer 3

use strict; 
use warnings; 

my $string = "hello.world"; 
my $dot = index($string, '.'); 
my $word = substr($string, 0, $dot); 

print "$word\n"; 

給你hello

Answer 4

另一種可能性：

my $string = 'hello.world'; 
print ((split /\./, $string)[0], "\n"); 

Answer 5

在TIMTOWTDI的精神，並引入新的功能：使用non-destructive option/r

my $partial = $string =~ s/\..*//sr; 

貪婪.*端將砍掉在第一時段後的一切，包括可能的換行符（/s選項），但保持原始字符串不變，並刪除需要增加列表上下文的選項（/r選項）。從perlop得到

引用：

如果/ R（非破壞性）選項用於然後在其上運行的而不是返回 數置換的字符串的副本和 取代時，它返回副本是否發生 替換。當/ r使用 時，原始字符串永遠不會更改。即使輸入是一個 對象或一個綁定變量，該副本始終是一個純字符串。