您可以像在其他任何编程语言中一样，从 Perl 子程序返回一个值。如果您没有从子程序返回值，则子程序中最后执行的任何计算也自动成为返回值。您可以像任何标量一样从子程序返回数组和哈希，但是返回多个数组或哈希通常会导致它们丢失其单独的身份。因此，我们将使用引用（在下一章中解释）从函数返回数组或哈希。示例让我们尝试以下示例，它接收数字列表并…… 阅读更多

当您向接受列表的 Perl 子程序或运算符提供哈希时，哈希会自动转换为键/值对列表。例如 - 示例 在线演示#!/usr/bin/perl # 函数定义 sub PrintHash {    my (%hash) = @_;    foreach my $key ( keys %hash ) {       my $value = $hash{$key};       print "$key : $value";    } } %hash = ('name' => 'Tom', 'age' => 19); # 使用哈希参数调用函数 PrintHash(%hash);输出当执行上述程序时，它会产生以下结果 -name : Tom age : 19

因为 @_ 变量在 Perl 中是一个数组，所以它可以用来向子程序提供列表。但是，由于 Perl 接受和解析列表和数组的方式，从 @_ 中提取单个元素可能很困难。如果您必须与其他标量参数一起传递列表，则将列表作为最后一个参数，如下所示 - 示例 在线演示#!/usr/bin/perl # 函数定义 sub PrintList {    my @list = @_;    print "Given list is @list"; } $a = 10; @b = (1, 2, 3, 4); # 使用列表调用函数…… 阅读更多

您可以像在任何其他编程语言中一样向 Perl 子程序传递各种参数，并且可以使用特殊的数组 @_ 在函数内部访问它们。因此，函数的第一个参数在 $_[0] 中，第二个参数在 $_[1] 中，依此类推。您可以像任何标量一样传递数组和哈希作为参数，但是传递多个数组或哈希通常会导致它们丢失其单独的身份。因此，我们将使用引用（在下一章中解释）来传递数组或哈希。让我们尝试以下示例，它接收一个列表…… 阅读更多

Perl 编程语言中子程序定义的一般形式如下所示 -sub subroutine_name {    子程序的主体 }调用该 Perl 子程序的典型方法如下所示 -subroutine_name( 参数列表 );在 5.0 之前的 Perl 版本中，调用子程序的语法略有不同，如下所示。这仍然适用于最新的 Perl 版本，但不推荐，因为它绕过了子程序原型。&subroutine_name( 参数列表 );让我们看一下以下示例，它定义了一个简单的函数，然后调用它。因为 Perl 会在……之前编译您的程序 阅读更多

您可以使用 Perl 中的 POSIX 函数 strftime() 来格式化日期和时间，方法是使用下表。请注意，标有星号 (*) 的说明符取决于语言环境。说明符替换为示例%a缩写的星期几名称 *Thu%A完整的星期几名称 *Thursday%b缩写的月份名称 *Aug%B完整的月份名称 *August%c日期和时间表示 *Thu Aug 23 14:55:02 2001%CA 年除以 100 并截断为整数 (00-99)20%d月份的天数，用零填充 (01-31)23%D简短的 MM/DD/YY 日期，相当于 %m/%d/%y08/23/01%e月份的天数，用空格填充 ( 1-31)23%F简短的 YYYY-MM-DD 日期，相当于 %Y-%m-%d2001-08-23%g基于星期的年份，最后两位数字 (00-99)01%G基于星期的年份2001%h缩写的月份名称 *(与 %b 相同)Aug%H24 小时制的小时…… 阅读更多

您可以使用 Perl 中的 time() 函数获取纪元时间，即自给定日期以来经过的秒数，在 Unix 中是 1970 年 1 月 1 日。示例 在线演示#!/usr/local/bin/perl $epoc = time(); print "Number of seconds since Jan 1, 1970 - $epoc";输出当执行上述代码时，它会产生以下结果 -Number of seconds since Jan 1, 1970 - 1361022130您可以将给定的秒数转换为日期和时间字符串，如下所示 - 示例 在线演示#!/usr/local/bin/perl $datestring = localtime(); print "Current date and time $datestring"; $epoc = time(); $epoc = $epoc - 24 * 60 * 60;…… 阅读更多

您可以使用 Perl 中的 localtime() 函数获取一个包含 9 个元素的列表，然后您可以使用 printf() 函数根据您的要求格式化日期和时间，如下所示 - 示例 在线演示#!/usr/local/bin/perl ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); printf("Time Format - HH:MM:SS"); printf("%02d:%02d:%02d", $hour, $min, $sec);输出当执行上述代码时，它会产生以下结果 -Time Format - HH:MM:SS 06:58:52

Perl 中的 gmtime() 函数的工作方式与 localtime() 函数相同，但返回值针对标准格林威治时区进行了本地化。当在列表上下文中调用时，gmtime 返回的最后一个值 $isdst 始终为 0。格林威治标准时间 (GMT) 没有夏令时。您应该注意 localtime() 将返回运行脚本的机器上的当前本地时间，而 gmtime() 将返回世界标准时间格林威治标准时间或 GMT（或 UTC）。尝试以下示例以打印当前日期和时间，但在 GMT 比例上 - 示例 在线演示#!/usr/local/bin/perl $datestring = gmtime(); print…… 阅读更多

让我们从 Perl 中的 localtime() 函数开始，如果未提供参数，则返回当前日期和时间的数值。以下是 localtime 函数在列表上下文中使用时返回的 9 个元素列表 -sec，# 分钟的秒数，从 0 到 61 min，# 小时的分钟数，从 0 到 59 hour，# 一天的小时数，从 0 到 24 mday，# 月份的天数，从 1 到 31 mon，# 一年的月份，从 0 到 11 year，# 自 1900 年以来的年份 wday，# 自星期日以来的天数 yday，# 自 1 月 1 日以来的天数 isdst #……的小时数 阅读更多