PerlからPHPへ移行 Part2

質問

以下、Perlのソースですが、これをコメントどおりに
PHPに直すとどうなりますか？
Time::Localは ppm install Time-Localでインストールできます。

use strict;

BEGIN{ # BEGINはPHPで
$|=1; # バッファリングしない
}

use Time::Local; #PHPでUseは？

sub test_date_time{
my ($year, $mon, $mday, $hours, $min, $sec) = @_; # 可変引数な方法
my $serial = timelocal($sec, $min, $hours, $mday, $mon - 1, $year);
my $moji = sprintf("$year年$mon月$mday日 $hours時$min分$sec秒");
return ($serial, $moji); # 複数の戻り値で様々な型で返す方法
}

my ($serial, $moji) = test_date_time(2006, 10, 2, 10, 25, 30); # 一度に受け取る方法

print q{シリアルは} . $serial . "\n"; #q
print qq{文字列は$moji\n};

my $ptn = qr{^(.+?)年(.+?)月(.+?)日\s(.+?)時(.+?)分(.+?)秒$};
if($moji =~ /$ptn/i){
print "$1/$2/$3 $4:$5:$6\n";
}

exit(0);

# 結果
#シリアルは1159752330
#文字列は2006年10月2日 10時25分30秒
#2006/10/2 10:25:30

回答No.1

php504 · ベストアンサー

<?php
//use strict; # しいて書けばerror_reporting(E_ALL);でしょうか

//BEGIN{ # BEGINに相当する関数はありません
//$|=1; # PHPでは必要時にバッファをフラッシュするしかないです
//}

//use Time::Local; #PHPではモジュールを読み込むにはincludeやrequireを使います
//Time::Localに限らずPHPでは多くの機能が標準関数にあります

function test_date_time($year=0, $mon=0, $mday=0, $hours=0, $min=0, $sec=0){
$serial = mktime($hours, $min, $sec, $mon, $mday, $year); #引数の順番が違います
$moji = "${year}年${mon}月${mday}日 ${hours}時${min}分${sec}秒";
//PHPでは変数名に日本語が使えるので変数名を{}で明示しています
return array($serial, $moji); # 複数の戻り値は配列にして返す
}

list($serial, $moji) = test_date_time(2006, 10, 2, 10, 25, 30); # 配列をlist()で受け取る

print 'シリアルは' . $serial . "\n"; #引用符にqやqqは使えません
print "文字列は$moji\n";

$ptn = '^(.+?)年(.+?)月(.+?)日\s(.+?)時(.+?)分(.+?)秒$';
if(preg_match("/$ptn/i", $moji, $match)){
print "$match[1]/$match[2]/$match[3] $match[4]:$match[5]:$match[6]\n";
}

exit(0);
?>