Perl 剪切字符串的精确部分并存储第一个分隔符

Question

假设我有一个这种格式的变量:

my $time1 = "2021-01-02T11:12:00+01:00";

我想获取从 + 或最后一个 - 到最后一个 : 的字符串部分以及第一个分隔符应该是 + 或 -

到目前为止我尝试过的:

print (split(/\+/, $time))[0];

但它会打印:

01:00

而不是:

01

并且也不存储第一个分隔符。

Answer 1

您可以使用正则表达式更轻松地提取该类型的信息:

my $time1 = "2021-01-02T11:12:00+01:00";
($hourpart) = ($time1 =~ /.*[+-](\d{2}):\d{2}$/);
print($hourpart,"\n");

(您也可以使用 split，但需要多次 split 调用)

如果您确信长度不会改变(对于固定格式日期字符串通常是这样)，您也可以尝试使用 substr:

print(substr($time1, 20, 2),"\n");