Perl é uma linguagem de programação moderna script para escrever programas de computador de qualquer nível de complexidade. Programas Perl muitas vezes obter dados para trabalhar a partir de arquivos . Arquivos compreendem várias linhas e você pode precisar de saber o número de uma linha que contém dados específicos. Um loop Perl permite que você acesse e contar linhas Instruções
O 1

Declare uma matriz Perl com o comando:

@ data = ();
2

Abra um arquivo a ser lido dentro do seu script Perl com o comando:

aberta ( INPUT, " output.txt ");

Note que " output.txt " é um exemplo dos dados arquivo e " INPUT" é o identificador de arquivo para se referir ao arquivo dentro do script
3

Leia nas linhas dos arquivos para a matriz : .

@ data = ;
4

Atribuir um valor inicial de zero para a variável " contagem ", que é o contador de linha no programa :

$ count = 0;

5

Use o laço Perl " foreach " para ir embora cada linha no arquivo :

foreach $ line ( @ data) { }

6

Coloque o contador de linha dentro do loop :

foreach $ line ( @ data) {

$ count + +; }

Note-se que a variável " contar" de forma incremental aumenta a cada iteração do loop e seu valor corresponde ao número da linha no arquivo .
7

Insira um " if" no circuito para descobrir o número de um específico linha. Por exemplo, você precisa saber o número da linha que começa com a palavra "progresso". O seguinte trecho de código faz

foreach $ line ( @ data) {

$ count + +; .

If ($ linha = ~ /Progresso /) {print " O número da linha é de R $ count" } }

Os resultados do programa se parece com " O número da linha é 12. "