如何获取给定字符串的子字符串直到指定字符的第一次出现？

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 =~ /(.*)?\./;