Jump to content
Fórum Script Brasil
  • 0

Curso Cgi/perl Iped


edison jr

Question

Estou fazendo o curso de perl/cgi do IPED e em determinado momento ele propõe um exercício de iteração apartir do exemplo abaixo:

#!/usr/local/bin/perl

$arquivo = '/etc/passwd'; # nome do arquivo

open(INFO, $arquivo); # abre o arquivo

@linhas = <info>; # coloca ele em uma matriz

close(INFO); # fecha o arquivo

print @linhas; # exibe a matriz

O exercicio consiste na impressão linha-à-linha do arquivo, inserindo um contador de linhas, o qual foi resolvido conforme abaixo:

$arq = '/etc/passwd';

open (INFO, "$arq");

$i = 1;

while ($l = <INFO>)

{

print "$i $l";

$i++;

}

close (INFO);

o problema é que a partir disso, o enunciado, que está abaixo, pede a modificação do código acima, mas eu não sei como faze-lo... alguém sabe???

Quando você tiver feito isso, veja se pode alterá-lo de modo que cada número de linha seja mostrada como 001, 002, ..., 009, 010, 011, 012, etc.

Para fazer isso, você deverá somente mudar uma linha inserindo quatro caracteres extras. Lembre-se que o Perl permite isso.

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...