- 论坛徽章:
- 0
|
请教一段简单代码中的错误问题
拼写错误。
use strict;
use warnings;
my @date_array=();
my $line;
while($line=<DATA>
{
chomp($line);
my @data_parts=split /\//,$line;
if($#data_parts!=2)
{
print STDERR "Bad input line $line";
}
my %date_hash=
(
month=>;$data_parts[0],
day=>;$data_parts[1],
year=>;$data_parts[2]
);
push(@date_array,{%date_hash}); # 21行错误行
}
my %year_hash;
foreach my $cur_date(@date_array)
{
$year_hash{$cur_date->;{year}}=1;
}
foreach my $cur_year (sort keys %year_hash)
{
print "$cur_year\n"
}
__DATA__
02/25/01
05/09/02
11/6/03
9/29/01 |
|