<div dir="ltr">Se você RTFM (perldoc perlre), encontrará os quatro possíveis<br>
caracteres que modificam o comportamento global da expressão regular:<br>
<br>
i<br>
Do case-insensitive pattern matching.<br>
If use locale is in effect, the case map is taken from the current<br>
locale. See the perllocale manpage.<br>
<br>
m<br>
Treat string as multiple lines. That is, change ``^'' and ``$''<br>
from matching<br>
the start or end of the string to matching the start or end of any<br>
line anywhere within the string.<br>
<br>
s<br>
Treat string as single line. That is, change ``.'' to match any character<br>
whatsoever, even a newline, which normally it would not match.<br>
The /s and /m modifiers both override the $* setting. That<br>
is, no matter what $* contains, /s without /m will force<br>
``^'' to match only at the beginning of the string and ``$'' to match<br>
only at the end (or just before a newline at the end) of the string.<br>
Together, as /ms, they let the ``.'' match any character whatsoever,<br>
while still allowing ``^'' and ``$'' to match, respectively, just after<br>
and just before newlines within the string.<br>
<br>
x<br>
Extend your pattern's legibility by permitting whitespace and comments.<br><br>Obrigado Nelson.<br><br>Eu não sabia que o $data->content(), retornava um scalar, ou melhor nunca tinha pensado nisso.<br><br>"NÃO PODEM SER USADAS PARA INTERPRETAR HTML OU XML."<br>
Entendi<br><br>Se você quer aprender a programar e a manipular HTML e a extrair dados
de páginas da web com isso, eu recomendo o Web::Scraper, do Tatsuhiko
Miyagawa:<br>
<br>
<a href="http://search.cpan.org/%7Emiyagawa/Web-Scraper-0.24/lib/Web/Scraper.pm" target="_blank">http://search.cpan.org/~miyagawa/Web-Scraper-0.24/lib/Web/Scraper.pm</a><br><br>Eu não consegui extrair, o que eu extrai com meu REG, usando o módulo. Pode me dar umas dicas, por favor?<br>
<br>O Gabriel me mandou estudar algumas coisas e olha -><br>m#</strong><br><i>\((.+?)\)</i></td>#ig && print DATA $1,$/ foreach split("$/",$data->content());<br><br>Obrigado a todos pela atenção.<br>
<br><div class="gmail_quote">2008/9/27 Luis Motta Campos <span dir="ltr"><<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="Ih2E3d">Daniel de Oliveira Mantovani wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Boa Noite<br>
<br>
Seguinte : Se eu pegar a fonte deste site: <a href="http://www.hgcinema.com.br/programacao/index.php" target="_blank">http://www.hgcinema.com.br/programacao/index.php</a> , salvar em um txt,<br>
como no caso abaixo "cinema.txt", funciona perfeitamente.<br>
<br>
open CINE,"<","cinema.txt" or die "Nao pode abrir cinema.txt\n"; my<br>
@cinema = <CINE>; m#</strong><br><i>\((.+?)\)</i></td># && print<br>
$1,$/ foreach @cinema;<br>
<br>
Agora, se eu pego direito da Internet só pega a primeira linha. open<br>
DATA,">>","database.db" or die "Não pode abrir database.db\n"; my<br>
$database = WWW::Mechanize->new(); $database->get('<a href="http://www.hgcinema.com.br/programacao/index.php%27" target="_blank">http://www.hgcinema.com.br/programacao/index.php'</a>); m#</strong><br><i>\((.+?)\)</i></td># && print $1,$/ foreach $database->content;<br>
<br>
Não entendi, pois pelo que eu "sei" deveria funcionar da mesma forma,<br>
afinal os dois contém a mesma coisa.<br>
</blockquote>
<br></div>
Você, prá variar, não presta atenção no que está fazendo.<br>
<br>
Se você tivesse RTFM, saberia que WWW::Mechanize::content() retorna o<br>
texto *todo* em uma linha, enquanto que "perldoc -f open" vai te<br>
explicar que ler um arquivo texto em contexto de lista (como você fez)<br>
te retorna uma lista de elementos separados por $/ (que normalmente<br>
contém "\n").<br>
<br>
Assim, você não sabe nada, não presta atenção, não lê o manual e não<br>
sabe com o que está mexendo: open() e content() retornam coisas<br>
diferentes, de formas diferentes, e você está assumindo que são iguais.<div class="Ih2E3d"><br>
<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Então, estou me esforçando se eu não me engano eu estava falando com<br>
o Wendel um tempo atrás ou com o Blabos ou com o Gabriel, e tem um<br>
caractere que transforma tudo em uma linha só, pois acho que quando puxa direito da Internet ele não percorre todas as linhas, único<br>
problema que não lembro qual é esse caractere.<br>
</blockquote>
<br></div>
O "caracter que transforma tudo em uma linha" que você está procurando não existe. A gente tem uma "opção de expressão regular" que aplica a expressão múltiplas vezes contra uma mesma string, numa espécie de loop (/g). Mas isso não vai fazer o que você quer, também.<br>
<br>
Eu já te disse uma vez, e você continua teimando. Se você quer aprender a usar expressões regulares, precisa aprender que expressões regulares NÃO PODEM SER USADAS PARA INTERPRETAR HTML OU XML.<br>
<br>
Se você quer aprender a programar e a manipular HTML e a extrair dados de páginas da web com isso, eu recomendo o Web::Scraper, do Tatsuhiko Miyagawa:<br>
<br>
<a href="http://search.cpan.org/%7Emiyagawa/Web-Scraper-0.24/lib/Web/Scraper.pm" target="_blank">http://search.cpan.org/~miyagawa/Web-Scraper-0.24/lib/Web/Scraper.pm</a><br>
<br>
Também recomendo que você tente aprender a usar parsers prontos, como o XML::Compile, do Mark Overmeer; o XML::TreeBuilder, do Sean Burke; e até mesmo o XML::Twig, do Michael Rodriguez.<br>
<br>
Finalmente, mas não menos importante, leia alguma coisa sobre o Perl Debugger ("perldoc perldebug") -- assim, você vai pelo menos conseguir dizer que estruturas de dados você tem no seu programa, e talvez consiga fazer perguntas mais inteligentes que as que você tem feito.<br>
<br>
Putamplexos.<br><font color="#888888">
-- <br>
Luis Motta Campos is a software engineer,<br>
Perl Programmer, foodie and photographer.</font><div><div></div><div class="Wj3C7c"><br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br>
</div>