Read password : Text « System Functions « Perl

1. Perl
2. System Functions
3. Text

Read password

      

#!/usr/bin/perl

use warnings;
use strict;

use Text::ParseWords;

my (@users, @fields);
if (open PASSWD,"/etc/passwd") {
    @users = <PASSWD>;
    chomp @users; # remove linefeeds
    @fields = quotewords(':', 0, @users);
    close PASSWD;
}
print "@fields";

   
    
    
    
    
    
  

Related examples in the same category