Study Notes

#! /usr/bin/perl -w
# check users

use User::pwent qw(:FIELDS);
@list = qw(root phillip bruce);
foreach $uu(@list){
print “$uun”;
if(getpwnam $uu) {
print “There’s the $uu.n”;
}
else{
print “No $uu exists.n”;
}
}