#top POSIX¶

#top Predefined Constants¶

#top Datatypes / MACROS¶

#top POSIX Functions¶

#top endgrent¶

endgrent

#top endpwent¶

endpwent

#top getegid¶

getegid

#top geteuid¶

geteuid

#top getgid¶

getgid

#top getgrent¶

getgrent

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



my ($name, $passwd, $gid, $members);



if ($#ARGV+1<0) {
	print("Usage: $0\n");
	exit(1);
}

setgrent();
while (1) {
	($name, $passwd, $gid, $members)=getgrent();
	if (!defined($name)) { last; }
	printf(""$0: (\$name, \$passwd, \$gid, \$members)=getgrent(): \$name=$name \$passwd=$passwd \$gid=$gid \$members=$members\n");
}
endgrent();

/home/local/code/perlcode/posix/getgrent.pl

/home/local/code/perlcode/posix/getgrent.pl: ($name, $passwd, $gid, $members)=getgrent(): $name=root $passwd=x $gid=0 $members=root
/home/local/code/perlcode/posix/getgrent.pl: ($name, $passwd, $gid, $members)=getgrent(): $name=bin $passwd=x $gid=1 $members=root bin daemon
/home/local/code/perlcode/posix/getgrent.pl: ($name, $passwd, $gid, $members)=getgrent(): $name=daemon $passwd=x $gid=2 $members=root bin daemon
/home/local/code/perlcode/posix/getgrent.pl: ($name, $passwd, $gid, $members)=getgrent(): $name=sys $passwd=x $gid=3 $members=root bin adm
/home/local/code/perlcode/posix/getgrent.pl: ($name, $passwd, $gid, $members)=getgrent(): $name=adm $passwd=x $gid=4 $members=root adm daemon
[...]

#top getgrnam¶

getgrnam

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



my ($groupname);
my ($name, $passwd, $gid, $members);



if ($#ARGV+1<1) {
	print("Usage: $0 <username>\n");
	print("Examples:\n");
	print("       $0 root\n");
	print("       $0 bin\n");
	print("       $0 daemon\n");
	print("       $0 adm\n");
	exit(1);
}

$groupname=$ARGV[0];
($name, $passwd, $gid, $members) = getgrnam($groupname);
if (defined($name)) {
	printf(""$0: (\$name, \$passwd, \$gid, \$members)=getgrnam($groupname): if (defined(\$name)): \$name=$name \$passwd=$passwd \$gid=$gid \$members=$members\n");
}else {
	printf(""$0: (\$name, \$passwd, \$gid, \$members)=getgrnam($groupname): if (defined(\$name)): else: Entry '$groupname' does not exists!\n");
}

/home/local/code/perlcode/posix/getgrnam.pl

Usage: /home/local/code/perlcode/posix/getgrnam.pl <username>
Examples:
       /home/local/code/perlcode/posix/getgrnam.pl root
       /home/local/code/perlcode/posix/getgrnam.pl bin
       /home/local/code/perlcode/posix/getgrnam.pl daemon
       /home/local/code/perlcode/posix/getgrnam.pl adm

/home/local/code/perlcode/posix/getgrnam.pl root
/home/local/code/perlcode/posix/getgrnam.pl bin
/home/local/code/perlcode/posix/getgrnam.pl daemon
/home/local/code/perlcode/posix/getgrnam.pl adm
/home/local/code/perlcode/posix/getgrnam.pl roota

/home/local/code/perlcode/posix/getgrnam.pl: ($name, $passwd, $gid, $members)=getgrnam(root): if (defined($name)): $name=root $passwd=x $gid=0 $members=root

/home/local/code/perlcode/posix/getgrnam.pl: ($name, $passwd, $gid, $members)=getgrnam(bin): if (defined($name)): $name=bin $passwd=x $gid=1 $members=root bin daemon

/home/local/code/perlcode/posix/getgrnam.pl: ($name, $passwd, $gid, $members)=getgrnam(daemon): if (defined($name)): $name=daemon $passwd=x $gid=2 $members=root bin daemon

/home/local/code/perlcode/posix/getgrnam.pl: ($name, $passwd, $gid, $members)=getgrnam(adm): if (defined($name)): $name=adm $passwd=x $gid=4 $members=root adm daemon user sp

/home/local/code/perlcode/posix/getgrnam.pl: ($name, $passwd, $gid, $members)=getgrnam(roota): if (defined($name)): else: Entry 'roota' does not exists!

#top getlogin¶

getlogin

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX;



my ($mylogin);



if ($#ARGV+1<0) {
	print("Usage: $0\n");
	exit(1);
}

$mylogin=getlogin();

print""$0: \$mylogin=getlogin(): \$mylogin=$mylogin\n");

/home/local/code/perlcode/posix/getlogin.pl

/home/local/code/perlcode/posix/getlogin.pl: $mylogin=getlogin(): $mylogin=user

#top getpid¶

getpid

#top getppid¶

getppid

#top getpwent¶

getpwent

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



my ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell);



if ($#ARGV+1<0) {
	print("Usage: $0\n");
	exit(1);
}

setpwent();
while (1) {
	($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwent();
	if (!defined($name)) { last; }
	printf(""$0: (\$name, \$passwd, \$uid, \$gid, \$quota, \$comment, \$gcos, \$dir, \$shell) = getpwent(): \$name=$name, \$passwd=$passwd, \$uid=$uid, \$gid=$gid, \$quota=$quota, \$comment=$comment, \$gcos=$gcos, \$dir=$dir, \$shell=$shell\n");
}
endpwent();

/home/local/code/perlcode/posix/getpwent.pl

/home/local/code/perlcode/posix/getpwent.pl: ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwent(): $name=root, $passwd=x, $uid=0, $gid=0, $quota=, $comment=, $gcos=root, $dir=/root, $shell=/bin/bash
/home/local/code/perlcode/posix/getpwent.pl: ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwent(): $name=bin, $passwd=x, $uid=1, $gid=1, $quota=, $comment=, $gcos=bin, $dir=/bin, $shell=/sbin/nologin
/home/local/code/perlcode/posix/getpwent.pl: ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwent(): $name=daemon, $passwd=x, $uid=2, $gid=2, $quota=, $comment=, $gcos=daemon, $dir=/sbin, $shell=/sbin/nologin
/home/local/code/perlcode/posix/getpwent.pl: ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwent(): $name=adm, $passwd=x, $uid=3, $gid=4, $quota=, $comment=, $gcos=adm, $dir=/var/adm, $shell=/sbin/nologin
[...]

#top getpwnam¶

getpwnam

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



my ($username);
my ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell);



if ($#ARGV+1<1) {
	print("Usage: $0 <username>\n");
	print("Examples:\n");
	print("       $0 root\n");
	print("       $0 bin\n");
	print("       $0 daemon\n");
	print("       $0 adm\n");
	exit(1);
}

$username=$ARGV[0];
($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwnam($username);
if (defined($name)) {
	printf(""$0: (\$name, \$passwd, \$uid, \$gid, \$quota, \$comment, \$gcos, \$dir, \$shell) = getpwnam($username): if (defined(\$name)): \$name=$name, \$passwd=$passwd, \$uid=$uid, \$gid=$gid, \$quota=$quota, \$comment=$comment, \$gcos=$gcos, \$dir=$dir, \$shell=$shell\n");
}else {
	printf(""$0: (\$name, \$passwd, \$uid, \$gid, \$quota, \$comment, \$gcos, \$dir, \$shell) = getpwnam($username): if (defined(\$name)): else: Entry '$username' does not exists!\n");
}

/home/local/code/perlcode/posix/getpwnam.pl

Usage: /home/local/code/perlcode/posix/getpwnam.pl <username>
Examples:
       /home/local/code/perlcode/posix/getpwnam.pl root
       /home/local/code/perlcode/posix/getpwnam.pl bin
       /home/local/code/perlcode/posix/getpwnam.pl daemon
       /home/local/code/perlcode/posix/getpwnam.pl adm

/home/local/code/perlcode/posix/getpwnam.pl root
/home/local/code/perlcode/posix/getpwnam.pl bin
/home/local/code/perlcode/posix/getpwnam.pl daemon
/home/local/code/perlcode/posix/getpwnam.pl adm
/home/local/code/perlcode/posix/getpwnam.pl roota

/home/local/code/perlcode/posix/getpwnam.pl: ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwnam(root): if (defined($name)): $name=root, $passwd=x, $uid=0, $gid=0, $quota=, $comment=, $gcos=root, $dir=/root, $shell=/bin/bash

/home/local/code/perlcode/posix/getpwnam.pl: ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwnam(bin): if (defined($name)): $name=bin, $passwd=x, $uid=1, $gid=1, $quota=, $comment=, $gcos=bin, $dir=/bin, $shell=/sbin/nologin

/home/local/code/perlcode/posix/getpwnam.pl: ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwnam(daemon): if (defined($name)): $name=daemon, $passwd=x, $uid=2, $gid=2, $quota=, $comment=, $gcos=daemon, $dir=/sbin, $shell=/sbin/nologin

/home/local/code/perlcode/posix/getpwnam.pl: ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwnam(adm): if (defined($name)): $name=adm, $passwd=x, $uid=3, $gid=4, $quota=, $comment=, $gcos=adm, $dir=/var/adm, $shell=/sbin/nologin

/home/local/code/perlcode/posix/getpwnam.pl: ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwnam(roota): if (defined($name)): else: Entry 'roota' does not exists!

#top getuid¶

getuid

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX;



my ($mypid, $myppid);
my ($myuid, $mygid);
my ($myeuid, $myegid);



if ($#ARGV+1<0) {
	print("Usage: $0\n");
	exit(1);
}

$mypid=getpid();
$myppid=getppid();
$myuid=getuid();
$mygid=getgid();
$myeuid=geteuid();
$myegid=getegid();

print""$0: \$mypid =getpid():  \$mypid =$mypid\n");
print""$0: \$myppid=getppid(): \$myppid=$myppid\n");
print""$0: \$myuid =getuid():  \$myuid =$myuid\n");
print""$0: \$mygid =getgid():  \$mygid =$mygid\n");
print""$0: \$myeuid=geteuid(): \$myeuid=$myeuid\n");
print""$0: \$myegid=getegid(): \$myegid=$myegid\n");

/home/local/code/perlcode/posix/getuid.pl

/home/local/code/perlcode/posix/getuid.pl: $mypid =getpid():  $mypid =7516
/home/local/code/perlcode/posix/getuid.pl: $myppid=getppid(): $myppid=6743
/home/local/code/perlcode/posix/getuid.pl: $myuid =getuid():  $myuid =501
/home/local/code/perlcode/posix/getuid.pl: $mygid =getgid():  $mygid =100
/home/local/code/perlcode/posix/getuid.pl: $myeuid=geteuid(): $myeuid=501
/home/local/code/perlcode/posix/getuid.pl: $myegid=getegid(): $myegid=100

#top setgid¶

setgid

#top setgrent¶

setgrent

#top setpwent¶

setpwent

#top setuid¶

setuid

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX;



my ($myuid, $mygid, $result);



if ($#ARGV+1<2) {
	print("Usage: $0 <uid> <gid>\n");
	exit(1);
}

$myuid=int($ARGV[0]);
$mygid=int($ARGV[1]);

$result=setuid($myuid);
if (defined($result)) { printf("$0: \$result=setuid($myuid): if (defined(\$result)): Successful setuid().\n"); }
else                  { printf("$0: \$result=setuid($myuid); if (defined(\$result)): else: Unable to setuid(), Reason: $!\n"); }

$result=setgid($mygid);
if (defined($result)) { printf("$0: \$result=setgid($mygid): if (defined(\$result)): Successful setgid().\n"); }
else                  { printf("$0: \$result=setgid($mygid); if (defined(\$result)): else: Unable to setgid(), Reason: $!\n"); }

/home/local/code/perlcode/posix/setuid.pl

Usage: /home/local/code/perlcode/posix/setuid.pl <uid> <gid>

/home/local/code/perlcode/posix/setuid.pl 501 100
/home/local/code/perlcode/posix/setuid.pl 501 48
/home/local/code/perlcode/posix/setuid.pl 501 95
/home/local/code/perlcode/posix/setuid.pl 0 100
/home/local/code/perlcode/posix/setuid.pl 0 0
/home/local/code/perlcode/posix/setuid.pl 501 100

/home/local/code/perlcode/posix/setuid.pl: $result=setuid(501): if (defined($result)): Successful setuid().
/home/local/code/perlcode/posix/setuid.pl: $result=setgid(100): if (defined($result)): Successful setgid().

/home/local/code/perlcode/posix/setuid.pl: $result=setuid(501): if (defined($result)): Successful setuid().
/home/local/code/perlcode/posix/setuid.pl: $result=setgid(48); if (defined($result)): else: Unable to setgid(), Reason: Operacja niedozwolona

/home/local/code/perlcode/posix/setuid.pl: $result=setuid(501): if (defined($result)): Successful setuid().
/home/local/code/perlcode/posix/setuid.pl: $result=setgid(95); if (defined($result)): else: Unable to setgid(), Reason: Operacja niedozwolona

/home/local/code/perlcode/posix/setuid.pl: $result=setuid(0); if (defined($result)): else: Unable to setuid(), Reason: Operacja niedozwolona
/home/local/code/perlcode/posix/setuid.pl: $result=setgid(100): if (defined($result)): Successful setgid().

/home/local/code/perlcode/posix/setuid.pl: $result=setuid(0); if (defined($result)): else: Unable to setuid(), Reason: Operacja niedozwolona
/home/local/code/perlcode/posix/setuid.pl: $result=setgid(0); if (defined($result)): else: Unable to setgid(), Reason: Operacja niedozwolona

/home/local/code/perlcode/posix/setuid.pl: $result=setuid(501): if (defined($result)): Successful setuid().
/home/local/code/perlcode/posix/setuid.pl: $result=setgid(100): if (defined($result)): Successful setgid().

#top ttyname¶

ttyname

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX;



my ($STDIN_FILENO, $STDOUT_FILENO, $STDERR_FILENO);
my ($ttyinfo, $filename, $FPRD, $fileno);



if ($#ARGV+1<1) {
	print("Usage: $0 </path/to/filename>\n");
	print("Examples:\n");
	print("       $0 /home/local/code/perlcode/posix/ttyname.pl\n");
	exit(1);
}

$STDIN_FILENO =STDIN_FILENO ;
$STDOUT_FILENO=STDOUT_FILENO;
$STDERR_FILENO=STDERR_FILENO;
$filename=$ARGV[0];

$ttyinfo=ttyname(STDIN_FILENO);
print""$0: ttyinfo=ttyname(STDIN_FILENO=$STDIN_FILENO): ttyinfo=$ttyinfo\n");

$ttyinfo=ttyname(STDOUT_FILENO);
print""$0: ttyinfo=ttyname(STDOUT_FILENO=$STDOUT_FILENO): ttyinfo=$ttyinfo\n");

$ttyinfo=ttyname(STDERR_FILENO);
print""$0: ttyinfo=ttyname(STDERR_FILENO=$STDERR_FILENO): ttyinfo=$ttyinfo\n");

if (open($FPRD,$filename)) {
	printf(""$0: if (open($FPRD,$filename)); Successful opened file '$filename'.\n");
	
	$fileno=fileno($FPRD);
	$ttyinfo=ttyname($fileno);
	if (defined($ttyinfo)) { printf("$0: ttyinfo=ttyname($fileno): ttyinfo=$ttyinfo\n"); }
	else                   { printf("$0: ttyinfo=ttyname($fileno): else: ttyinfo=UNDEFINED\n"); }
	
	close($FPRD);
} else {
	printf(""%s: if (open($FPRD,$filename)); else: Unable to open file '$filename', Reason: $!\n");
}

/home/local/code/perlcode/posix/ttyname.pl

Usage: /home/local/code/perlcode/posix/ttyname.pl </path/to/filename>

/home/local/code/perlcode/posix/ttyname.pl /home/local/code/perlcode/posix/ttyname.pl

/home/local/code/perlcode/posix/ttyname.pl: ttyinfo=ttyname(STDIN_FILENO=0): ttyinfo=/dev/pts/44
/home/local/code/perlcode/posix/ttyname.pl: ttyinfo=ttyname(STDOUT_FILENO=1): ttyinfo=/dev/pts/44
/home/local/code/perlcode/posix/ttyname.pl: ttyinfo=ttyname(STDERR_FILENO=2): ttyinfo=/dev/pts/44
/home/local/code/perlcode/posix/ttyname.pl: if (open(GLOB(0x94d5dd8),/home/local/code/perlcode/posix/ttyname.pl)); Successful opened file '/home/local/code/perlcode/posix/ttyname.pl'.
/home/local/code/perlcode/posix/ttyname.pl: ttyinfo=ttyname(3): else: ttyinfo=UNDEFINED

#top uname¶

uname

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX;



my ($sysname, $nodename, $release, $version, $machine);



if ($#ARGV+1<0) {
	print("Usage: $0 </path/to/filename>\n");
	exit(1);
}

($sysname, $nodename, $release, $version, $machine)=uname();
print""$0: (\$sysname, \$nodename, \$release, \$version, \$machine)=uname(): \$sysname=$sysname \$nodename=$nodename \$release=$release \$version=$version \$machine=$machine\n");

/home/local/code/perlcode/posix/uname.pl

/home/local/code/perlcode/posix/uname.pl: ($sysname, $nodename, $release, $version, $machine)=uname(): $sysname=Linux $nodename=xnd.nat.wbcd.pl $release=2.6.18-128.el5 $version=#1 SMP Wed Jan 21 10:44:23 EST 2009 $machine=i686