[Madrid-pm] Duda con use strict

Francisco Rivas franciscojrivash en gmail.com
Vie Abr 29 03:35:29 PDT 2011


Hola muy buen dia,

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 :

$ perl modify_xml.pl
syntax error at modify_xml.pl line 72, near ") and"
Global symbol "$f_dir" requires explicit package name at modify_xml.pl line
74.
Global symbol "$f_dir" requires explicit package name at modify_xml.pl line
74.
syntax error at modify_xml.pl line 85, near "}"
Execution of modify_xml.pl aborted due to compilation errors.

Por estas lineas :

foreach my $f_dir(@dirs) {
  if ("$f_dir" ne "folks") and ("$f_dir" ne "test") {
    find(sub { push (@files_dir, $_) if -f},"$f_dir");
    my $zip_filename = substr("$f_dir",2,length("$f_dir"));  #<- linea 74
    print "Creating ".$zip_filename."\n";
    my $obj = Archive::Zip->new();
    foreach my $f(@files_dir) {
      my $obj->addFile($f);
    }
    if ($obj->writeToFileNamed($zip_filename.'zip') != AZ_OK()) {  # write
to disk
      print "Error in archive creation!";
    } else {
      print "Archive created successfully!";
    }
  }
}

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?

Muchas gracias de antemano muy buen dia!
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/madrid-pm/attachments/20110429/87c4a518/attachment.html>


Más información sobre la lista de distribución Madrid-pm