[Cascavel-pm] Como abrir/ler arquivo com condicoes...

[Luis Campos de Carvalho]

----- Original Message -----
From: "Maiko" <meskelsen em yahoo.com>
Sent: Wednesday, April 23, 2003 11:54 AM


> Saudacoes a lista!
>
> Estou com dificuldades pra escrever um script/programa
> perl que leia o arquivo /etc/passwd a partir de
> determinada linha ou (pra quem conhece *NIX...) quero
> ler a partir da linha que contem o uid 1005 ateh o
> final do arquivo.
>
> Se alguem puder ajudar agradeco!
>
> Sem mais para o momento

# -- perl --
sub getLinesBelowUID( $ ){
  local $/ = "\n";
  local $_;
  my $uid = shift || '1005';

  open PASSWD, '/etc/passwd'
    or die "$!\n";

  # Movimenta o cursor até a linha do uid 1005
  while( my $line = <PASSWD> ){
    next unless $line =~ m/^[^:]+:$uid:/o;
  }

  my @lines = <PASSWD>;

  close PASSWD
    or die "$!\n";

  return wantarray? @lines : join "\n", @lines;
}
__END__