perl

Входные аргументы
$ARGV[0]

$# оператор получения максимального индекса массива
if ($#ARGV<0) ... //нет аргументов

Проверяем права

<br /> PHP<br /> <pre><?php function GetUsernameFromUid($uid) { if (function_exists('posix_getpwuid')) { $a = posix_getpwuid($uid); return $a['name']; } # This works on BSD but not with GNU elseif (strstr(php_uname('s'), 'BSD')) { exec('id -u ' . (int) $uid, $o, $r); if ($r == 0) return trim($o['0']); else return $uid; } elseif (is_readable('/etc/passwd')) { exec(sprintf('grep :%s: /etc/passwd | cut -d: -f1', (int) $uid), $o, $r); if ($r == 0) return trim($o['0']); else return $uid; } else return $uid; } echo "Read ID: ".posix_getuid()."\n"; echo "Effective ID: ".posix_geteuid()."\n"; //mkdir test; ls test; rmdir test; ?> </pre><br /> perl<br /> <br /> <br />