1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu print "gid = $(, egid = $), uid = $<, euid = $>\n";
 4 ffd9a51f 2023-08-04 jrmu 
 5 ffd9a51f 2023-08-04 jrmu #GID
 6 ffd9a51f 2023-08-04 jrmu $(="1004 1004";
 7 ffd9a51f 2023-08-04 jrmu #EGID
 8 ffd9a51f 2023-08-04 jrmu $)="1004 1004";
 9 ffd9a51f 2023-08-04 jrmu #UID
10 ffd9a51f 2023-08-04 jrmu $<=1004;
11 ffd9a51f 2023-08-04 jrmu #EUID
12 ffd9a51f 2023-08-04 jrmu $>=1004;
13 ffd9a51f 2023-08-04 jrmu 
14 ffd9a51f 2023-08-04 jrmu print "gid = $(, egid = $), uid = $<, euid = $>\n";
15 ffd9a51f 2023-08-04 jrmu my @results = getpwnam("jrmu");
16 ffd9a51f 2023-08-04 jrmu print "for jrmu, uid = $results[2], gid = $results[3]\n";