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にさまざまな組み合わせを試しましたが、機能しません。なぜですか?