6 lines
179 B
Perl
6 lines
179 B
Perl
|
# The syntax of the getpgrp function is pgroup = getpgrp (pid);
|
||
|
|
|
||
|
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
$pgroup = getpgrp (0);
|
||
|
|
print ("The process group for this program is $pgroup.\n");
|