in reply to BASH SCRIPT s TO PERL
hi Jspradling84,
..i have a question i was wondering if someone can help me with i had written a bash script that count how many people are using each shell..
May be you want to look at getpwent in perl.
Something like this should do:
use warnings; use strict; my %shell; while ( my ($ui) = ( getpwent() )[8] ) { $shell{$ui}++; } print $shell{$_}, ' person(s) uses ', $_, $/ for keys %shell;
|
|---|