[SP-pm] Dúvida sobre $1 em percorrer linhas.

Daniel de Oliveira Mantovani daniel.oliveira.mantovani at gmail.com
Fri Sep 26 21:48:01 PDT 2008


Boa Noite

Seguinte :
Se eu pegar a fonte deste site:
http://www.hgcinema.com.br/programacao/index.php , salvar em um txt, como no
caso abaixo "cinema.txt", funciona perfeitamente.

open CINE,"<","cinema.txt" or die "Nao pode abrir cinema.txt\n";
my @cinema = <CINE>;
m#</strong><br><i>\((.+?)\)</i></td># && print $1,$/ foreach @cinema;

Agora, se eu pego direito da Internet só pega a primeira linha.
open DATA,">>","database.db" or die "Não pode abrir database.db\n";
my $database = WWW::Mechanize->new();
$database->get('http://www.hgcinema.com.br/programacao/index.php');
m#</strong><br><i>\((.+?)\)</i></td># && print $1,$/ foreach
$database->content;

Não entendi, pois pelo que eu "sei" deveria funcionar da mesma forma, afinal
os dois contém a mesma coisa.
Então, estou me esforçando se eu não me engano eu estava falando com o
Wendel um tempo atrás ou com o Blabos ou com o Gabriel,
e tem um caractere que transforma tudo em uma linha só, pois acho que quando
puxa direito da Internet ele não percorre todas as linhas,
único problema que não lembro qual é esse caractere.
Obrigado^^
-- 
print
"\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20080927/e55b5642/attachment.html>


More information about the SaoPaulo-pm mailing list