<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">El problema no parece venir del uso del pragma strict, sino de que te faltan/sobran (según se quiera ver) paréntesis en la primera condición:<div><br></div><div><blockquote type="cite"><font face="tahoma,sans-serif">if ("$f_dir" ne "folks") and ("$f_dir" ne "test") {</font></blockquote><div><br></div>que deberías escribir</div><div><br></div><div>if ( ("$f_dir" ne "folks") and ("$f_dir" ne "test") ) {</div><div><br></div><div>o ya que estamos, sin esos paréntesis de más que no sirven para nada y esos entrecomillados de las variables que tampoco hacen nada ahora mismo, porque no parece tener mucho sentido interpolarlas :)</div><div><br></div><div>if ($f_dir ne "folks" and $f_dir ne "test") {</div><div><br></div><div>Este comentario sirve como regla general para el trozo de código que nos has mandado. </div><div><br></div><div>Saludetes,</div><div><br></div><div>Rafa</div><div><br><div>
<div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div><font class="Apple-style-span" face="Courier">-- <br>Rafael Porres Molina<br>Consultoría y Proyectos<br>Qindel Formación y Servicios S.L.<br><br>Móvil: (+34) 678650609<br>e-mail: <a href="mailto:rafael.porres@qindel.com">rafael.porres@qindel.com</a><br>Dirección: c/Julián Camarillo 29, Edificio D2, 4ºIzda, 28037 Madrid, SPAIN / ESPAÑA</font></div><div><font class="Apple-style-span" face="Courier"><br></font></div></div></span><br class="Apple-interchange-newline"></div><br class="Apple-interchange-newline"><br class="Apple-interchange-newline">
</div>
<br><div><div>El 29/04/2011, a las 12:35, Francisco Rivas escribió:</div><br class="Apple-interchange-newline"><blockquote type="cite"><font face="tahoma,sans-serif">Hola muy buen dia,<br><br>Estoy escribiendo el script para modificar el XML (si el mismo del otro hilo) y ya casi esta listo todo lo que quiero pero tengo una duda debido a que estoy recibiendo estos mensajes :<br>
<br>$ perl <a href="http://modify_xml.pl/">modify_xml.pl</a> <br>syntax error at <a href="http://modify_xml.pl/">modify_xml.pl</a> line 72, near ") and"<br>Global symbol "$f_dir" requires explicit package name at <a href="http://modify_xml.pl/">modify_xml.pl</a> line 74.<br>
Global symbol "$f_dir" requires explicit package name at <a href="http://modify_xml.pl/">modify_xml.pl</a> line 74.<br>syntax error at <a href="http://modify_xml.pl/">modify_xml.pl</a> line 85, near "}"<br>
Execution of <a href="http://modify_xml.pl/">modify_xml.pl</a> aborted due to compilation errors.<br><br>Por estas lineas :<br><br>foreach my $f_dir(@dirs) {<br> if ("$f_dir" ne "folks") and ("$f_dir" ne "test") {<br>
find(sub { push (@files_dir, $_) if -f},"$f_dir");<br> my $zip_filename = substr("$f_dir",2,length("$f_dir")); #<- linea 74<br> print "Creating ".$zip_filename."\n";<br>
my $obj = Archive::Zip->new();<br> foreach my $f(@files_dir) {<br> my $obj->addFile($f);<br> }<br> if ($obj->writeToFileNamed($zip_filename.'zip') != AZ_OK()) { # write to disk<br> print "Error in archive creation!";<br>
} else {<br> print "Archive created successfully!";<br> }<br> }<br>}<br><br>Lei en [1] que cuando usas strict debes poner entre comillas cuando quiero usar una variable como string. No estoy del todo seguro si lo estoy haciendo bien, alguno me podria aclarar donde si es que estoy usando mal las reglas de strict?. Estoy dejandome ?algo?<br>
<br>Muchas gracias de antemano muy buen dia!<br></font>
_______________________________________________<br>Madrid-pm mailing list<br><a href="mailto:Madrid-pm@pm.org">Madrid-pm@pm.org</a><br>http://mail.pm.org/mailman/listinfo/madrid-pm</blockquote></div><br></div>
<br><br></body></html>