如何打印下面提到的那种字符串的一部分

Question

.a_b_c(x_y_z)，这是我的字符串所以问题是如何只获取a_b_c

提前致谢

Answer 1

my $s = '.a_b_c(x_y_z)';
print substr $s =~ s/\(.*\)//r, 1;

替换删除带括号的部分，substr删除点。

Answer 2

最好为此

使用正则表达式模式

use v5.10;

my $s = '.a_b_c(x_y_z)';

my ($ss) = $s =~ /(\w+)/;

say $ss;

输出

a_b_c