SoloCodigo

Estos son los cambios que trae la versión v5.40.0, del 9 de junio de 2024.

Perl 5.40.0 representa aproximadamente 11 meses de desarrollo desde Perl 5.38.0 y contiene aproximadamente 160 000 líneas modificadas a lo largo de 1500 archivos por parte de 75 autores.

Las novedades que trae (entre otras):

Cambios principales

• Nuevo identificador __CLASS__
  Ahora, cuando se usa la característica class, en el código de un método, bloque ADJUST o expresión de inicialización de un campo, se permite usar el nuevo identificador __CLASS__. Éste devuelve el nombre de una clase, de forma similar a __PACKAGE__, pero mientras que este último da el nombre del paquete del código en tiempo de compilación, el identificador __CLASS__ tiene en cuenta la clase a la que pertenece la instancia del objeto, en tiempo de ejecución. Esto es útil para el despachado de métodos de esa clase, especialmente en los constructores, donde no se permite el acceso a $self.
  
  Para más información, consultar "__CLASS__" en perlfunc.
  
  
• Atributo :reader para las variables field
  Mientras se usa la característica class, las variables field pueden tener un atributo :reader. Esto solicita que se cree un método de acceso de forma automática que simplemente retorne el valor de la variable field, desde la instancia indicada.
  

Es equivalente a
Se puede proporcionar un nombre alternativo:
Para más detalles ver ":reader" en perlclass.

• Se permite un espacio en la opción de línea de comandos -M
  Cuando se procesan las opciones en la línea de comandos, perl ahora permite un espacio entre la opción -M y el nombre del módulo que le sigue.
  
  Código: [Seleccionar]
      $ perl -M Data::Dumper=Dumper -E 'say Dumper [1,2,3]'Esto coincide con el comportamiento actual de la opción -I.
  
  
• Restricciones en las declaraciones de use VERSIÓN
  En Perl v5.36 se añadió una advertencia de obsolescencia cuando se degrada una declaración use VERSIÓN desde una que esté por encima de la versión 5.11, hacia abajo. Ahora esto se ha convertido en un error fatal.
  
  Adicionalmente, ahora es un error fatal una posterior declaración use VERSIÓN cuando exista otra en el mismo ámbito, si es una versión 5.39 o superior. Esto es para evitar complicaciones a las funciones léxicas importadas desde builtin. También se añadió una advertencia de obsolescencia para cualquier otra declaración posterior de use VERSION que esté por debajo de la versión 5.39, para avisar que ya no se permitirá en la Perl versión 5.44.
  
  
• Nuevas funciones experimentales builtin::inf y builtin::nan
  
  Se han añadido dos nuevas funciones, inf y nan, al espacio de nombres builtin. Actúan como constantes que devuelven los valores en punto flotante infinito y Not-a-Number (No es-un-Número), respectivamente.
  
  
• Nuevo operador xor lógico ^^
  
  Perl siempre ha tenido tres operadores lógicos de baja precedencia: and, or y xor, así como tres versiones binarias de alta precedencia: &, | y ^. Hasta esta versión, mientras que también estaban presentes los operadores lógicos de media precedencia && y ||, no existía un equivalente a or-exclusivo. Esta versión de Perl añade el último operador ^^, completando el conjunto.
  
  
  Código: Perl
  1.     $x ^^ $y and say "Uno de x o y es verdadero, pero no ambos";
  
  
• La característica try/catch ya no es experimental
  
  Antes de esta versión, la característica try/catch para el manejo de errores estaba considerada como experimental. Presentada en Perl versión 5.34.0, se considero que era una característica estable del lenguaje y su uso ya no imprimía una advertencia. Se debe seguir activando con la feature 'try'.
  
  Ver "Manejo de excepciones con Try y Catch" en perlsyn.
  
  
• Iterar múltiples valores con for al mismo tiempo ya no es experimental
  
  Antes de esta versión, iterar sobre múltiples valores al mismo tiempo se consideró experimental. Presentada en Perl versión 5.36.0, ahora se considera una característica estable del lenguaje y su uso ya no imprime una advertencia. Ver "Sentencias compuestas" en perlsyn.
  
  
• El módulo builtin ya no es experimental
  
  Antes de esta versión, el módulo builtin y todas sus funciones se consideraban experimentales. Presentadas en Perl versión 5.36.0, este módulo se considera ahora estable y su uso ya no imprime una advertencia. Sin embargo, muchas de sus funciones se siguen considerando experimentales.
  
  
• La feature empaquetada :5.40 añade try
  
  La última versión de la feature empaquetada contiene ahora la reciente característica estable try. Ya que esta característica empaquetada se usa por la opción -E de línea de comandos, está disponible inmediatamente para los scripts -E.
  
  
• use v5.40; importa las funciones builtin
  
  Además de la característica empaquetada de feature, use v5.40; (o siguientes versiones) importa la correspondiente versión de builtin empaquetada.

Cambios incompatibles

• reset EXPRESIÓN ahora llama a set-magic en escalares
  Lo hacía con arrays y hashes, pero no con escalares.
  
• Llamar a un método import de un paquete desconocido produce una advertencia
  Ahora, llamar a un código como este genera una advertencia:
  [perl]    Clase::Que::No::Existe->import("foo");[/perl]
  
• return ya no permite un objeto indirecto
  La sintasix del operador return ahora rechaza los objetos indirectos. En la mayor parte de los casos compilaría e incluso se ejecutaría, pero no estaba documentado y podía producir resultados confusos, por ejemplo:
  
  Código: Perl
  1.     # note que "sum" no está definido
  2.     sub sum_positive {
  3.         return sum grep $_ > 0, @_;
  4.         # interpretado inesperadamente como:
  5.         #   return *sum, grep $_ > 0, @_;
  6.         # ... con la palabra suelta actuando como un argumento extra de tipo typeglob
  7.     }
  8.     say for sum_positive(-1, 2, 3);
  producía:
  Código: [Seleccionar]
      *main::sum
    2
    3
• Las clases literales ya no se resuelven como manejadores de archivo, en llamadas de método bajo no feature "bareword_filehandles"
  Había un error con la ejecución de no feature "bareword_filehandles". Se permitía hacer esto:
  
  Código: Perl
  1.     open FH, "<", $archivo or die;
  2.     no feature 'bareword_filehandles';
  3.     FH->binmode;
  Ahora,
  FH->binmode intentará resolver FH como una clase, resultando típicamente en un error en tiempo de ejecución.

Obsolescencias

• Usar goto para saltar desde un ámbito externo a un ámbito interno es obsoleto y se eliminará completamente en Perl v5.42

Nuevas plataformas

• Serenity OS

Estos son los cambios que trae la versión v5.38, del 2 de julio de 2023.

Perl 5.38.0 representa aproximadamente 12 meses de desarrollo desde Perl 5.36.0 y contiene aproximadamente 290 000 líneas modificadas a lo largo de 1500 archivos por parte de 100 autores.

Las novedades que trae (entre otras):

Cambios principales

• class
  Ahora está disponible una nueva sintaxis experimental para definir clases de objetos, donde los datos de cada instancia se almacenan en variables "field" (campo) que se comportan como variables léxicas.
  

Se describe con más detalle en perlclass. Las notas sobre detalles internos de su implementación y otros detalles relacionados se pueden encontrar en perlclassguts.

Se queda como característica nueva y experimental, y sigue estando en desarrollo. Será sujeto de más adiciones, refinamientos y alteraciones en versiones futuras. Como es experimental, lanza advertencias en la categoría experimental::class. Se pueden silencias con una sentencia no warnings:

• Unicode 15.0
• Las advertencias de obsolescencia tienen ahora subcategorías específicas

Todas las advertencias de obsolescencia tienen ahora su propia categoría de obsolescencia que se puede desactivar individualmente. Puede ver una lista de las características obsoletas en perldeprecation, y en warnings. La siguiente lista es de warnings:
+- deprecated ----+
|                 |
|                 +- deprecated::apostrophe_as_package_separator
|                 |
|                 +- deprecated::delimiter_will_be_paired
|                 |
|                 +- deprecated::dot_in_inc
|                 |
|                 +- deprecated::goto_construct
|                 |
|                 +- deprecated::smartmatch
|                 |
|                 +- deprecated::unicode_property_name
|                 |
|                 +- deprecated::version_downgrade
Sigue siendo posible desactivar todas las advertencias de obsolescencia con una única sentencia
pero ahora es posible tener un control más fino. Como ha sido siempre, estas advertencias se activan automáticamente con

• Nueva API %{^HOOK}

Por distintas razonas puede ser dificultoso crear envoltorios de subrutinas para algunos palabra clave de perl. Cualquier palabra clave que tenga un prototipo indefinido, simplemente no se puede envolver con una subrutina, y algunas palabras clave que permiten ese envoltorio, lo hacen mediante trucos muy sucios. Por ejemplo, require es complicado de envolver; es posible hacerlo cambiando la profundidad de la pila, y los métodos estándares de exportación asumen que exportarán a un paquete a una cierta profundidad de la pila, y entonces el envoltorio cambiará esas funciones pero con una implementación muy cuidada. Esto puede ser muy complicado de gestionar.

De acuerdo con todo esto, presentamos un nuevo hash llamado %{^HOOK} cuya intención es facilitar tales casos. Cuando una palabra clave soporte cualquier enganche especial entonces el gancho vivirá en este nuevo hash. Los ganchos se nombrarán como la función desde donde se les llama, seguidos por dos guiones bajos y luego por la fase en donde se ejecutan, actualmente puede ser antes o después de ejecutarse la palabra clave.

En esta publicación inicial soportamos los ganchos require__before y require__after. Se proporcionan para hacer más fácil la realización de tareas antes y después de una sentencia require.

Vea perlvar para más detalles.

• PERL_RAND_SEED

Se añadió una nueva variable de entorno: PERL_RAND_SEED, que se puede usar para que un programa perl sea repetible, tanto si usa rand sin srand() explícitamente o use srand() sin argumentos. Vea perlrun. Esta característica se puede desactivar en tiempo de compilación pasando -Accflags=-DNO_PERL_RAND_SEED a Configure.

• Expresiones de asignación por defecto con defined-or y logical-or en firmas de subrutinas

Se puede asignar ahora la expresión por defecto para el parámetro de una firma de subrutina utilizando los operadores //= y ||=, para aplicar valores por defecto tanto si el llamador proporciona un valor indefinido o falso (respectivamente), en los casos cuando el parámetro no se indica. Para más detalles vea la documentación en perlsub.

• @INC Hook Enhancements and $INC and INCDIR

Las internas de los ganchos @INC se han reforzado para manejar varios casos límite y no deberían provocar fallos de segmentación o fallos de aserción cuando los ganchos modifican @INC durante una operación require. Ahora aseguramos que cualquier gancho proporcionado se ejecuta al menos una vez durante una llamada a require, y que cualquier directorio duplicado no dispara pruebas de directorio adicionales.

Ahora se da soporte a un nuevo método de enganche llamado INCDIR para proporcionar a los desarrolladores más control sobre la búsqueda de módulos dinámicos. Se puede inyectar un objeto que admita este método en la matriz @INC, y cuando se encuentra en el proceso de búsqueda del módulo, se ejecutará, al igual que se ejecutan los ganchos de INC, y su valor de retorno se usa como una lista de directorios para buscar ese módulo. Devolver una lista vacía actúa como un NO-OP. Tenga en cuenta que dado que cualquier referencia devuelta por este gancho se convertirá y se usará como cadena de caracteres, no puede devolver un gancho para ejecutarse más adelante a través de esta API.

Cuando se llama a un gancho @INC (ya sea INC o INCDIR) durante el require, la variable $INC se localizará para ser el valor del índice de @INC del que proviene el gancho. Si el gancho desea anular cuál debería ser el "próximo" índice en @INC, puede actualizar $INC para ser uno menos que el índice deseado (undef es equivalente a -1). Esto permite que un gancho @INC reescribe por completo la matriz @INC y haga que Perl reinicie sus sondas de directorio desde el comienzo de @INC.

Las referencias de CODE bendecidas en @INC que no admiten los métodos INC o INCDIR ya no dispararán una excepción, y en su lugar se tratarán de la misma manera que coderefs sin bendecir, y se ejecutarán como si fueran un gancho de INC.

• Ahora se detecta en tiempo de compilación el uso de control de flujo prohibido fuera de defer o finally
  
  Está prohibido intentar dejar un bloque defer o finally por medio de un control de flujo tales como return o goto. Versiones anteriores de perl sólo podría detectarlo cuando se intenta ejecutar en tiempo de ejecución.
  
  Esta versión de perl añade detección en tiempo de compilación para muchos casos que se pueden determinar estáticamente. Esto puede significar que el código que se puede compilar exitosamente en una versión anterior de perl ahora se reporta como un error en tiemp de compilación. Esto sólo sucede en los casos donde ocurriría un error al ejecutar código de todas maneras; ahora el error sucede antes.
  
  
• Evaluación optimista en patrones

El uso de (?{ ... }) y (??{ ... }) en un patrón desactiva varias optimizaciones en ese patrón, de forma global. Esto puede ser deseable o no por el programador. Esta publicación añade el equivalente (*{ ... }). La única diferencia es que no desactiva ni desactivará ninguna optimización en el motor regex. Esto puede hacerlo más inestable en el sentido de que puede llamarse más o menos veces en el futuro, sin embargo el número de veces que se ejecuta coincidirá exactamente con el funcinamiento del motor regex. Por ejemplo, ciertos tipos de optimización se desactivan cuando se incluye (?{ ... }) en un patrón, así que los patrones que son O(N) en un uso normal se convierten en O(N*N). Cambiar a (*{ ... }) significa que el patrón se mantendrá en O(N).

• REG_INF se ha elevado desde 65 536 a 2 147 483 647

Muchos cuantificadores regex que estaban limitados en el pasado a U16_MAX, ahora están limitados a I32_MAX, así que ahora es posible escribir /(?:word){1000000}/ por ejemplo. Note que hacerlo así puede provocar que el motor de regex se ejecute durante más tiempo y usar más memoria.

• Ahora se permite algunos goto en bloques defer y finally
  
  Perl version 5.36.0 añadió bloques defer y permitió que la palabra clave finally añade un comportamiento similar para la sintaxis try/catch. Estos no permiten ninguna expresión goto dentro del cuerpo, ya que podría provocar un salto del control de flujo fuera del bloque. Ahora, se permiten a algunas expresiones goto, si se trata de un destino con una etiqueta constante, y que la etiqueta se encuentre dentro del bloque.
  
  Código: Perl
  1. use feature 'defer';
  2.  
  3. defer {
  4.   goto LABEL;
  5.   print "This does not execute\n";
  6.   LABEL: print "This does\n";
  7. }
  
  
• Nueva variable de expresiones regulares ${^LAST_SUCCESSFUL_PATTERN}

Permite acceder al último patrón que coincidió de forma exitosa, en el ámbito actual. Muchos aspectos del motor de regex se refieren al "último patrón exitoso". El patrón vacío lo rechaza, y todas las variables regex mágicas se relacionan con él. Esto permite acceder a ese patrón. El código siguiente
se puede reescribir como

haciendo lo mismo.

Cambios incompatibles

• readline() ya no limpia los indicadores de error y eof
• los bloques INIT ya no se ejecutan después de un exit() en un BEGIN

Obsolescencias

• El uso de ' como separador de los nombres del paquete
  
  
• switch y el operador Smart Match (coincidencia inteligente)

La característica "switch" y el operador smartmatch ~~, se presentaron en v5.10. Su comportamiento se cambió significativamente en v5.10.1. Cuando el sistema "experiment" se añadió en v5.18.0, switch y smartmatch se declararon experimentales, de forma retroactiva. Durante estos años, se han propuesto y desechado propuestas para arreglarlos o suplementarlos.

En v5.38.0, declaramos el experimento como un fallo. Algunos otros sistemas futuros pueden tomar el lugar conceptual de smartmatch, pero no se han diseñado ni construido, todavía.

Estas características se eliminarán completamente en Perl v5.42.0.[/list]

Plataformas obsoletas

• Ultrix

Aquí seguimos, "Alive and kicking" como dirían los Simple Minds 

Un abrazo a todos!

pasa captura del error

Buenas omo estan? Necesito de la ayuda de todos ustedes que son expertos! Tengo una tabla donde uno de sus campos es de tipo MEMO. Lo que quiero es hacer un programa que me guarde el contenido en el campo memo en un archivo TXT y cuyo nombre sea el id de esa tupla. No se si me explico.
Aguardo cualquier sugerencia ya que nunca programe en VFP y para este trabajo necesito hacerlo.
Gracias!