[Cascavel-pm] Duvida ....

[Fabiano Reese Righetti]

   Boa tarde!

> > Agora depois de todo meu bla bla bla, alguem poderia
> > me ajudar em uma
> > expressao regular que possa usar em  um script, ou
> > pelo menos uma
> > expressao simples para o egrep ou sed para que possa
> > fazer um script em
> > shell? Preciso montar uma lista bonitinha e colorida
> > para o pessoal do
> > departamento comercial com todos os usuarios
> > bloqueados (nada que um
> > output para HTML nao resolva).
> 
> Shell Script? Blasfêmia! hehehe
> Você pode usar Perl mesmo. Expressões regular como:
> 
> if ($_ =~ /^\w+:\*w+/) {
> 
>      faça algo;
> 
> }
> 
> e trocentas outras variações dessa, devem indicar o
> usuário bloqueado que você quer achar. Gerar o html a
> partir daí é muito trivial: para cada linha indicada,
> apenas arranque o nome do usuário com a função
> "split". Se por um acaso você consultar
> 
> perldoc -f split
> 
> Você vai encontrar um exemplo que faz exatamente o que
> você quer.
> 
> Aí você pega cada linha e cria uma tabela em HTML.
> Pronto!

   Outra maneira de se fazer isto sem precisar usar o auxilio
da função split, é o seguinte:

open(FL, '</etc/shadow/');
   for my $linha (<FL>) {
      if ($linha =~ /^(\S+):\*.*/) {
         print $1."\n";
      }
   }
close(FL);


Abraços.
--
Fabiano Reese Righetti - frighetti at {cascavel.pm.org, cpan.org, unipan.br}