[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