如何使用 Perl 的本地时间和 print 来获取时间戳？

Question

我使用以下语句来获取当前时间。

  print "$query executed successfully at ",localtime;
  print "$query executed successfully at ",(localtime);
  print "$query executed successfully at ".(localtime);

输出

 executed successfully at 355516731103960
 executed successfully at 355516731103960
 executed successfully at Wed Apr  7 16:55:35 2010

前两个语句不以日期格式打印当前时间。 第三条语句仅以日期格式提供正确的输出。

我的理解是第一个是在标量上下文中返回一个值，因此它返回数字。

然后在第二次打印中，我仅在列表上下文中使用本地时间，为什么它也给出数字输出。

Answer 1

也许在 Perl 编程中你可以学到的最重要的东西就是上下文。许多内置子例程和运算符的行为根据上下文而有所不同。

print "$query executed successfully at ", localtime, "\n"; # list context
print "$query executed successfully at ",(localtime),"\n"; # list context
print "$query executed successfully at ". localtime, "\n"; # scalar context
print "$query executed successfully at ".(localtime),"\n"; # scalar context

print "$query executed successfully at ", scalar  localtime, "\n"; # scalar context
print "$query executed successfully at ", scalar (localtime),"\n"; # scalar context

通过拆分语句可以使这一点变得更清楚。

my $time = localtime; # scalar context
print "$query executed successfully at $time\n";

my @time = localtime; # list context
print "$query executed successfully at @time\n";

Answer 2

localtime 的返回值取决于上下文。在列表上下文中，它是一个 9 元素列表，而在标量上下文中，它是一个 ctime(3) 值：

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
my $now_string = localtime;  # e.g., "Thu Oct 13 04:54:34 1994"

现在，print 为其参数提供列表上下文。这就是为什么 print localtime 从列表中输出数字（默认情况下不带任何分隔符）。您可以使用 . 连接运算符（如第三条语句中所示）或使用 标量：

print "".localtime;
print scalar localtime;

Answer 3

标量 强制标量上下文：

print scalar localtime ();

在第二个示例中，它显然是一个列表上下文，因此您只是获得连续数字的打印输出。例如，尝试一下

 print join (":", (localtime));

，您将看到用冒号连接的数字。

Answer 4

第一个和第二个都返回列表上下文中的值，但它们可能不是您所期望的。在当地时间附近使用括号根本不会做任何有用的事情。但是您可以使用以下代码单独获取这些返回的列表项：

@list = ($sec,$min,$hour,$day,$mon,$year_1900,$wday,$yday,$isdst)=localtime;
print join("\n",@list);

Answer 5

如果你想获取当前时间的时间戳，
你可以只使用函数 time()