[Cascavel-pm] Ler Arquivo

[Rafael Lebrão Martins]

Correção.. Faltou "$_" na linha: next if ... 

#!/usr/bin/perl 

use strict; 
use warnings; 

my $arquivo = 'caminho'; 
open (my $infile, '<', "$arquivo"); 
my @linhas = <$infile>; 

foreach (@linhas) { 
next if $_ eq $linhas[2]; 
close ($infile);