求助（急）--perl转php日期类型 及@_具体含义？

[SelNew]

# 计算指定日期自公元1年1月1日开始的天数
sub DateLocal {
my ($yy, $mm, $dd) = @_;
my @MonthDays = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
my $Days;
my $LeapYear = 0;
if ($yy % 4 == 0 && ($yy % 100 != 0 || $yy % 400 == 0)) { $LeapYear = 1; }
$Days = ($yy - 1) * 365 + int(($yy - 1) / 4) - int(($yy - 1) / 100) + int(($yy - 1) / 400);
for (my $i = 1; $i < $mm; $i++) {
$Days += $MonthDays[$i - 1];
if ($i == 2) { $Days += $LeapYear; }
}
$Days += $dd - 1;
return $Days;
}

# 计算从 $yy1/$mm1/$dd1 到 $yy2/$mm2/$dd2 的天数
# 如果前一个日期后于后一个日期，则得到负数
# 方法: 均从公元 1 年开始计算经过的天数，然后用两个天数相减
sub DateDiff {
my ($yy1, $mm1, $dd1, $yy2, $mm2, $dd2) = @_;
return &DateLocal($yy2, $mm2, $dd2) - &DateLocal($yy1, $mm1, $dd1);
}

[SelNew]

以上是原perl方法：（希望转成PHP)

my ($yy, $mm, $dd) = @_; //@_应该怎么理解？怎么转PHP
my @MonthDays = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); //这句语句应该怎么理解

$Days = ($yy - 1) * 365 + int(($yy - 1) / 4) - int(($yy - 1) / 100) + int(($yy - 1) / 400);

谢谢各位的帮忙！！！

[iasky]

不怎么懂perl，路过了

[an9ryfr09]

解释下这个perl程序先

my是干什么用的?
'@_'在perl下是什么意思?
'@'符号在perl下起什么作用?

[wsnet]

my是干什么用的? //定义私有变量
'@_'在perl下是什么意思? //子程序参数数组
'@'符号在perl下起什么作用? //数组变量表示法，（array的首字母)