2011-11-05 25 views
-3

我在Perl這樣的子程序/功能:Perl來PHP函數轉換 - 幫助需要

sub numToStr { 
    my ($ipnum) = @_; 
    my $z = $ipnum % 256; 
    $ipnum >>= 8; 
    my $y = $ipnum % 256; 
    $ipnum >>= 8; 
    my $x = $ipnum % 256; 
    $ipnum >>= 8; 
    my $w = $ipnum % 256; 

    return "$w.$x.$y.$z"; 
} 

任何想法如何使它成爲PHP替代?

千恩萬謝, 歡呼

回答

2
function numToStr($ipnum) 
{ 
    $z = $ipnum % 256; 
    $ipnum >>= 8; 
    $y = $ipnum % 256; 
    $ipnum >>= 8; 
    $x = $ipnum % 256; 
    $ipnum >>= 8; 
    $w = $ipnum % 256; 

    return "$w.$x.$y.$z"; 
} 

或者,您可以使用long2ip()函數。

+0

讓我看看它是否一樣 – Marcin