ho ripiegato su JE, in modo che il progetto sia 100% Perl<br>http://search.cpan.org/dist/JE/lib/JE.pm<br><br>il mio progetto è ancora in fase embrionale...<br><br>fa una request per l'autenticazione, segue i redirect, conserva i cookie, arriva ad una response che contiene html della pagina che mi interessa<br><br>quindi vede i link ai javascript<br>while ($buf =~ m/src\=\"(.+)\.js\"/g) {<br>&nbsp;&nbsp;&nbsp; $nome_script=$1."\.js";<br>&nbsp;&nbsp;&nbsp; $url_script=$base_url.$nome_script;<br>&nbsp;&nbsp;&nbsp; $req = HTTP::Request-&gt;new(GET =&gt;$url_script);<br>&nbsp;&nbsp;&nbsp; $req-&gt;content_type('text/plain');&nbsp; <br>&nbsp;&nbsp;&nbsp; $res = $ua-&gt;request($req);<br>&nbsp;&nbsp;&nbsp; $buffer = $res-&gt;as_string;<br><br># estraggo il body di ogni script<br>&nbsp;&nbsp;&nbsp; $buffer =~ m/HTTP\/1.1 200 OK\n((.+\n)*)\n*((.*\n)*)/;<br>&nbsp;&nbsp;&nbsp; $tutti_script= $tutti_script.$3;<br>}<br><br>ed ora ho un "piccolo" problema...<br>...pare che gli script nn
 vengano eseguiti<br><br>se seguo l'esempio indicato nella sezione "simple use" reperibile alla url che ho indicato sopra, inserendo i miei script in questo modo<br><br>&nbsp;$je-&gt;eval($tutti_script);<br><br>&nbsp;e le mie chiamate a funzioni (che ho ottenuto mediante le regular expression) <br><br>while ($buf =~ m/getAvvenimentoExt\((.+),(.+)\)/g) <br>{<br>&nbsp;print $&amp;."\n".++$count. "\. palinsesto\=".$1."&nbsp;&nbsp; evento\=".$2."\n\n";<br>&nbsp; $return_val = $je-&gt;eval($&amp;);<br>&nbsp; print $return_val -&gt; as_string;<br>&nbsp;}<br><br>e poi faccio<br><br>print $return_val -&gt; as_string;<br><br>mi viene restituito errore perché return_val è nullo...<br><br>non capisco dove sbaglio...<br>...il fatto è che non sono molto pratico di Perl né di Javascript, qualcuno mi può aiutare?<br><br>spero di essere stato chiaro (ho un'incredibile capacità di complicare ciò che è semplice...)<br><br>saluti<br>Massimo<br><br><br><b><i>Stefano Rodighiero
 &lt;larsen@perl.it&gt;</i></b> wrote:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> On Jan 8, 2008 1:14 PM,  <maxlaspina@yahoo.com> wrote:<br><br>&gt; grazie. seguendo le tue indicazioni (il modulo principale si chiama<br>&gt; WWW::Mechanize, senza la d finale) ho trovato questo<br>&gt;<br>&gt; http://search.cpan.org/~sprout/WWW-Mechanize-Plugin-JavaScript-0.002/lib/WWW/Mechanize/Plugin/JavaScript.pm<br>&gt;<br>&gt; che si basa su SpiderMonkey<br><br>Facci sapere come funziona, è una cosa che mi incuriosisce.<br><br>S.<br>_______________________________________________<br>Roma mailing list<br>Roma@pm.org<br>http://mail.pm.org/mailman/listinfo/roma<br></maxlaspina@yahoo.com></blockquote><br><p>&#32;
      <hr size=1>Looking for last minute shopping deals? <a href="http://us.rd.yahoo.com/evt=51734/*http://tools.search.yahoo.com/newsearch/category.php?category=shopping"> 
Find them fast with Yahoo! Search.</a>