[FUGSPBR] Ajuda Script

[Thomas Britis]

#!/usr/bin/perl

my (@a);
my ($x);
my ($nhe);
my ($pass);

open (A, "<file_do_aix");
@a = <A>;

for ($x = 0; $a[$x]; $x++) {
    if ($a[$x] =~ /password =/) {
        ($nhe, $pass) = split (/=/, $a[$x]);
        chomp ($a[$x - 1]);
        $pass =~ s/ //g;
        print "$a[$x - 1]$pass";
    }
}
exit (0);

kassiano em cav.udesc.br wrote:

>Oi galera
>
>Tô fazendo a conversão dos usuários AIX para Free. Funciona legal. É só 
>colocar as senha em /etc/security/passwd no vipw.
>Mas..., tenho mil e poucos para colocar, e o passwd do AIX é tipo:
>
>a2alm:
>        password = fS2krVigBhn16
>        lastupdate = 1022089153
>        flags = ADMCHG
>
>a4jrsv:
>        password = NTnjrHDLXCI7.
>        lastupdate = 1022089333
>        flags = ADMCHG
>
>Alguém pode dar uma idéia de um script que retorne "usuário:senha"? Tentei mas 
>não consegui. O resto dou um jeito. 
>
>[]s
>
>Kassiano
>______________________________________________
>http://www2.fugspbr.org/mailman/listinfo/fugspbr
>
>

-- 
Thomas Storino Britis
thomas em tcnet.com.br
TCNet Informática e Telecomunicações LTDA
http://www.tcnet.com.br
+55 (35) 3425-2556



______________________________________________
http://www2.fugspbr.org/mailman/listinfo/fugspbr