我正在尝试使用 Perl 和Date::Day将给定日期转换为一周中的相应日期。
输入字符串的格式为:October 24, 2011; March 12, 1989; November 26, 1940
.
我编写了一个脚本,它将解析上述输入并将每个日期转换为Date::Day::day()
.
此子例程接受格式为 的输入mm,dd,yyyy
。我已经使用哈希完成了这项工作。最近在stackoverflow上发布了一个关于这个查询的线程,并在其他成员的帮助下,能够做到这一点。
这是我的脚本,它为每个日期返回 ERR,而不是返回与日期对应的星期几。
传递给 day() 子例程的参数的输入格式似乎有问题。
这里有更多关于我正在使用的 Perl 模块的文档:http: //helpspy.com/cm/programming/lang/perl/cpan/c06/Date/Day/d_1/
我很想知道,我到底哪里出错了。在将日期作为参数传递给 day() 子例程之前,我是否必须对日期进行一些修改?
#!/usr/bin/perl
use Date::Day;
use strict;
use warnings;
my @arr;
print "Enter the string: ";
my $str=<>;
chomp $str;
my @dates= split /; /,$str;
my %days= ("January",1,"February",2,"March",3,"April",4,"May",5,"June",6,"July",7,"August",8,"September",9,"October",10,"November",11,"December",12);
my @output = map {
my $pattern=$_;
$pattern =~ s/(\S*)\s/$days{$1}, /;
$pattern =~ s/\s//g;
$pattern
} @dates;
print &day(11,9,1987); # for test purpose and it returns correct value
foreach $output (@output)
{
chomp $output;
my $result=&day($output);
push(@arr,$result);
}
foreach my $arr (@arr)
{
print $arr."; ";
}
上述脚本的输出为:ERR;呃; 呃;