从perl中的字符串中排除第一个单词

Question

我有一个像下面的字符串，字符串可能会扩展更多，但我想只排除第一个字而不是下一个连续。单词

at.below.card

我希望o / p看起来如下

below.card

Answer 1

$string =~ /.*?\.(.*)/
print $1

这匹配最短的字符串直到第一个点，然后返回$ 1中的其余部分。

Answer 2

您可以使用简单的字符串替换排除第一个单词。

$mywords = "at.below.card";
$mywords =~ s/^[^\.]*\.(.*)$/$1/;
print $mywords;

Answer 3

以下两种方法可以实现这一目标：

use strict;
use warnings;

my $string = 'at.below.card';

$string =~ s/^.*?\.//;
print $string, "\n";

$string = 'at.below.card';
print substr $string, ( index $string, '.' ) + 1;

输出：

below.card
below.card