PERL – Ler arquivo para um array

Bom gente no meu primeiro post aqui no blog vou mostrar como ler uma arquivo de texto no perl e montar um array com cada linha desse arquivo, bom então vamos lá…

Nesse exemplos vamos supor que no mesmo diretório que estou executando o script eu tenho um arquivo chamado “sites”
e nele tenho por exemplo as seguintes linhas:
www.python.org
www.perl.org
www.php.net
www.cplusplus.com

script que irá ler nosso arquivo


#!/usr/bin/perl
use strict;
use warnings;
my $file = ’sites’;
open FILE, $file or die $!;
my @sites;
while ()
{
#pulo as linhas em branco do arquivo…
next if /^(\s)*$/;
push @sites, $_;
}
print $sites[1] . “\n”;
close(FILE);

Executando esse script a saída seria
www.perl.org