[Cascavel-pm] edição de arquivos com P
Marco Lima
marco.lima em e-via.com.br
Quarta Março 23 14:22:15 PST 2005
Se é para apelar !!
<code>
#!/usr/bin/perl -w
use strict;
use Tie::File::AsHash;
die "Usage: $0 user password" unless @ARGV == 2;
my ($user, $newpass) = @ARGV;
tie my %users, 'Tie::File::AsHash', '/pwd/users.txt', split => ':'
or die "Problem tying %hash: $!";
unless (exists $users{$user}) {
print "User '$user' not found in file. Add as a new user?
(y/n)\n";
chomp(my $y_or_n = <STDIN>);
set_pw($user, $newpass) if $y_or_n =~ /^[yY]/;
} else {
set_pw($user, $newpass);
print "Done.\n";
}
sub set_pw { $users{$_[0]} = crypt($_[1], "AA") }
</code>
*<;-{}
[ ]'ção
Marco Lima
J. A. P. H.
marco.lima em e-via.com.br
mago em rio.pm.org
+55 19 96 56 06 46
Perl Monk
Brasil Perl Monger
http://www.perlmonk.org
http://brasil.pm.org
Register Linux User #355235
Slackware Linux, for the subgenius
Mais detalhes sobre a lista de discussão Cascavel-pm