Help for this page

Select Code to Download


  1. or download this
    sub get_parents {
  my (@p, $o); 
  for (grep !/^$/, split ("/",$_[0])) {push(@p,"$o/$_");$o.="/$_"}
  return \@p;
}
  2. or download this
    print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x1234
+5678)))