复制代码代码如下所示：
功能perms_str（$烫发）{
如果（（$烫发0xc000）= = 0xc000）{
套接字
$ =；
} elseif（（$烫发0xa000）= = 0xa000）{
符号链接
$信息= L；
} elseif（（$烫发0x8000）= = 0x8000）{
常规
$ =；
} elseif（（$烫发0x6000）= = 0x6000）{
块/特殊
$信息= B；
} elseif（（$烫发0x4000）= = 0x4000）{
目录
$ =；
} elseif（（$烫发0x2000）= = 0x2000）{
特殊字符
$信息= C；
} elseif（（$烫发0x1000）= = 0x1000）{
先进先出/后管
$信息= 'p'；
{人}
未知
$信息= U；
}

所有者
$信息=（R'（$烫发0x0100）：-）；
$信息=（'w'（$烫发0x0080）：-）；
$信息=（$烫发（0x0040）
（（$烫发0x0800）的：‘X'）：
（（$烫发0x0800）的：-））；

组
$信息=（R'（$烫发0x0020）：-）；
$信息=（'w'（$烫发0x0010）：-）；
$info = ($perms (0x0008)
（（$烫发0x0400）的：‘X'）：
（（$烫发0x0400）的：-））；

/世界
$信息=（R'（$烫发0x0004）：-）；
$信息=（'w'（$烫发0x0002）：-）；
$信息=（$烫发（端口）
（（$烫发0x0200）不：'X'）：
（（$烫发0x0200）不：-））；

返回$信息；
}