my $sec; my $min; my $hour; my $mday; my $mon; my $year; my $wday; my $yday; my $isdst; my $sday; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
直接可以写成 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(); -__-|| -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
