Help for this page

Select Code to Download


  1. or download this
    my ($perms, $type) = @ARGV;
print "Other Test: ", ($perms & $type ) ,"\n";
print "Group Test: ", ($perms & ($type << 3 )),"\n";
print "Owner Test: ", ($perms & ($type << 4)),"\n";
# with command line params: 63,1;
  2. or download this
    my ($perms, $type) = @ARGV;
print "Other Test: ", ($perms & ($type << 0) ,"\n";
print "Group Test: ", ($perms & ($type << 3 )),"\n";
print "Owner Test: ", ($perms & ($type << 4)),"\n";
# with command line params: 63,1;