请选出以下Perl程序的正确输出结果。
@data=qw#name@Cindy age@14 birthday@2008@0520 gender@girl#;
for(@data){
my @data_spl=split /@/,$_;
my $data_0=$data_spl[0];
my $data_1=$data_spl[1];
$data_1 .= ".$data_spl[2]" if $data_spl[2];
print "$data_0:$data_1;";
}
请选出以下Perl程序的正确输出结果。
@data=qw#name@Cindy age@14 birthday@2008@0520 gender@girl#;
for(@data){
my @data_spl=split /@/,$_;
my $data_0=$data_spl[0];
my $data_1=$data_spl[1];
$data_1 .= ".$data_spl[2]" if $data_spl[2];
print "$data_0:$data_1;";
}
name Cindy;age:14;gender:girl;
name Cindy;age:14;birthday:0520;gender:girl;
nameCindy;age:14;birthday:2008;gender:girl;
nameCindy;age:14;birthday:2008.0520;gender:girl;
这道题你会答吗?花几分钟告诉大家答案吧!