Curso Cgi/perl Iped

[edison jr]

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.

[Guest Rodrigo Rondena]

Faça o seguinte

$i = ( '0' x ( 3 - length( 3 ) ) ).$i;