23 lines
699 B
Perl
23 lines
699 B
Perl
Quota, change or age#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
use User::pwent();
|
|
|
|
sub User::pwent::has {
|
|
my $self = shift;
|
|
return User::pwent::pw_has(@_);
|
|
}
|
|
|
|
print "Supported fields: ", scalar(User::pwent::has), "\n";
|
|
|
|
while (my $user = User::pwent::getpwent) {
|
|
print 'Name : ', $user->name, "\n";
|
|
print 'Password: ', $user->passwd, "\n";
|
|
print 'User ID : ', $user->uid, "\n";
|
|
print 'Group ID: ', $user->gid, "\n";
|
|
|
|
# one of quota, change or age
|
|
print 'Quota : ', $user->quota, "\n" if $user->has('quota');
|
|
print 'Change : ', $user->change, "\n" if $user->has('change');
|
|
print 'Age : ', $user->age, "\n" if $user->has('age');
|
|
} |