народ, помогите переписать это с перла на парсер

Elvis 17.03.2007 00:00

sub ip {
  my ($addr,$subnet)=@_;
  my ($oaddr,$mask)=split/\//,$subnet;
  my $poaddr=unpack("L",pack("C4",(split (/\./, $oaddr))));
  my $paddr=unpack("L",pack("C4",(split (/\./, $addr))));
  my $pmask=unpack("L",pack("B32",(1 x $mask)));
  if (($paddr & $pmask)==($poaddr & $pmask)){return 1;}
  return 0;
}