爲什麼我的Perl正則表達式不符合簡單的主機名？

Question

我沒提取，這可能是既FQDN和簡單的主機名的主機名

例如用sed的正常工作：

echo test_serv1.TEST-Site-1.test.com|sed 's/\..*//' 
test_serv1 
echo test_serv1|sed 's/\..*//' 
test_serv1 

但在Perl中我得到的只有當它的FQDN：

my $t='test_serv1.TEST-Site-1.test.com'; 
my ($res) = $t=~ /^(.*?)\./; 
print "$res\n"; 

我嘗試了test_serv1的不同組合，但它不起作用，爲什麼？

Answer 1

爲什麼不使用perl的相同方法？

use strict; 
use warnings; 

my $t='test_serv1.TEST-Site-1.test.com'; 
$t =~ s/\..*//; 
print "$t\n"; 
$t='test_serv1'; 
$t =~ s/\..*//; 
print "$t\n"; 

Answer 2

之所以/^(.*?)\./不匹配是因爲在簡單的主機名不.，所以比賽不會發生。

下面將與兩個工作：

• my ($res) = $t =~ /([^.])+/;

  萃取物連續非.字符