<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>