Mega Code Archive

 

Categories / Perl / System Functions

 

List users

#!/usr/bin/perl use warnings; use strict; my @users; while (my $name = getpwent) {     push @users, $name; } print "Users: @users \n";