$ perl -pe 1 foo && echo ok Can't open foo: No such file or directory. ok Realmente me gustaría que el script perl fallara cuando el archivo no existe. ¿Cuál es la forma "correcta" de hacer que -p o -n falle cuando el archivo de entrada no
Estoy ansioso por aprender Raku (Perl 6) y su sintaxis. Ya tengo instalado Perl 5 en mi máquina Ubuntu. vinod@ubuntu-s-1vcpu-1gb-nyc1-01:~$ perl -v This is perl 5, version 26, subversion 1 (v5.26.1) built for x86_64-linux-gnu-thread-multi (with 67 registered patches, see perl -V for more...
En perl 5, puedes emular wc -lusando oneliner: perl -lnE 'END {say $.}' test.txt Cómo implementar esta funcionalidad en Raku Si intenta implementar esto: raku -e 'say "test.txt".IO.open.lines.elems' resulta ser lento y usa mucha memoria Información para reproducir: $ wget...
Estoy ejecutando las siguientes cadenas de retorno de 5 caracteres: while (glob '{a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z}'x5) { print "$_\n"; } pero solo devuelve 4 caracteres: anbc anbd anbe anbf anbg ... Sin embargo, cuando reduzco el número de caracteres en la lista: while...
He usado el módulo CPAN Perl Data :: Printer (DP) con Perl. Funciona muy bien Ahora quiero usarlo en el código Raku. Cuando uso la :from<Perl5>función para importarlo y luego ejecuto el código que lo usa, la anotación (tied to Perl6::Hash)se agrega a la visualización de hashes. 1 Como...
¿Es posible imprimir una expresión regular creada usando notación expandida ( qr/.../x) en forma no expandida? Por ejemplo: my $decimal = qr/ (?=\d|\.\d) # look-ahead to ensure at least one of the optional parts matches \d* # optional whole digits (?:\.\d*)? # optional decimal point and...
Recibo un "archivo csv" de un proveedor (usando su API), pero lo que hacen es arrojar todo en su respuesta. No sería un problema significativo, excepto que, por supuesto, algunos de esos molestos humanos ingresaron los datos y agregaron "características" como saltos de línea. Lo que estoy haciendo...