Posts

Showing posts with the label PERL

fixed sintax error near $grades{$student}

SOLUCIÓN Debido al pragma use strict, declarar bien el ámbito de las variables.  Programming Perl 3rd ed. Chapter 1 - En mi caso, uso perlbrew, de modo que ejecuto el script vía perl ./gradation.pl sin darle atributos de ejecución previamente.  Contenido del archivo grades.txt: Noël 25  Ben 76 Clementine 49 Norm 66 Chris 92 Doug 42 Carol 25 Ben 12 Clementine 0 Norm 66 Código del script gradation.pl: #!/usr/bin/env perl    # because perlbrew # perl ./gradation.pl without using chmod u+x gradation.pl use strict;  use warnings; use autodie; use diagnostics; my $line; my $student; my $grade; #my $grades; my %grades; my $scores; my $total; my @grades; my $average; my $grades_fh; my $filename = 'grades.txt'; # open(GRADES,"grades.txt") or die("Cant open grades.txt:$!\n"); # Use a lexical file handle '$grades_fh' instead of 'GRADES' open($grades_fh, '<', $filename) or die "Can't open $filename: $!\n"; while ($line = <$g...

yet another perl conference

A mí me parece mucho mejor el nombre YAPCNA , pero le van poniendo el que corresponde a la conferencia anual, p. ej.: The Perl and Raku Conference - Greenville, SC 2025. Era, es, una gran conferencia. Su momento estelar se vio cuando vino la pandemia: ¡conferencia en la nube!. Y los bemoles por Perl 6.

fix command terminated with non zero status

Hi, there! This is 11-die.pl code:   use strict; use warnings; my ($word) = @ARGV; #if (not defined $word) { if (! $word) {     #die("ERROR: please pass in a command line argument.\n");     # Command terminated with non-zero status. WHY ?? Es por die.       # This runs better:     print("ERROR: please pass in a command line argument.\n");     exit(0); } print(length($word),"\n"); Using perlbrew environment: perlbrew exec perl 11-die.pl SunApr21 8 perlbrew exec perl 11-die.pl ERROR: please pass in a command line argument.

perl5 dinosaur

De un tiempo a esta parte, empezamos a ver un desplazamiento de la conocida mascota de Perl. Esa trilogía de libros en la casa O'Reilly traía un dromedario (una joroba) en el primer volumen ( Programming Perl 3rd ed.) y una llama en el segundo y creo que una alpaca en el tercero. Ahora, casi en cualquier búsqueda, sale un dinosaurio parecido al de Jurassic Park .    El elefante de PHP simboliza el animal perfecto. El camello, como todo el mundo sabe, representa un caballo dibujado por un comité (un engendro como el perfil solicitado en una vacante).    En nuestros días, Perl es Perl5. Empezó llamándose Pearl, luego PERL y enseguida Perl. Ha dado origen a un país imaginario: Perlistán.

dont use virgule symbol in absolute path

Don't try to use "~" symbol in absolute path; instead, use /home/yourUser/rest/of/path Two days fighting with this message in Perl! Can't open file . Oh, boy: don't be that lazy programmer!

Reading and writing JSON in Perl

Errata for  JavaScript JSON Cookbook  :  use JSON;  use Data::Dumper;  my $json = '{ "call":"KF6GPE","type":"l","time":"1399371514", "lasttime":"1418597513","lat": 37.17667,"lng": -122.14650, "result" : "ok" }';  my %result = decode_json($json);  print Dumper(result);  print encode_json(%result);  Fixed:  use strict;  use warnings;  use JSON;  use Data::Dumper;  # string json  my $json = '{ "call":"KF6GPE","type":"l","time":"1399371514", "lasttime":"1418597513","lat": 37.17667,"lng": -122.14650, "result" : "ok" }';  my $result = decode_json($json);  print Dumper($result);  print encode_json($json), "\n";  Output:  $VAR1 = { 'lat' => '37.17667', 'lasttime' => '141859751...

DBD::SQLite::db do failed: Safety level may not be changed inside a transaction at (eval 1940) line 37

Image
0.- Instalación de PERL en Debian $ wget -L http://xrl.us/installperlnix | bash Desde la línea de comandos: $ perl --version This is perl 5, version 24, subversion 1 (v5.24.1) built for x86_64-linux-gnu-thread-multi (with 85 registered patches, see perl -V for more detail) Copyright 1987-2017, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. 1. Instalación de Padre Update /etc/apt/sources.list, e.g. as follows: deb http://mirror.isoc.org.il/pub/debian/ stable main deb-src http://mirror.isoc.org.il/pub/debian/ stable main Then update the package list $ sudo apt update $ sudo apt install cpanminus [¿¿quizá convenía instalar cpanplus??] ...

PHP freelancer

Ahora quieren que todo el mundo aprenda a programar, como si fuera cosa de niños. Ya sabemos cómo conducen un vehículo, con o sin licencia, o cómo los ingenieros de software terminan construyendo sistemas monstruosos que sólo nos complican la vida (¿verdad IMSS?) por no hablar de cómo los cajeros automáticos dejan de lado al adulto mayor, que con dificultades tiene coordinación de movimientos. Quiero decir: todo requiere cierto nivel (madurez, capacidad, aprendizaje). Y eso no es para cualquiera, sólo para quien de veras se empeña en lograrlo (requiere genuino interés). Por eso, llegado el momento, la IA hará el trabajo del programador de sistemas.  Hasta donde alcanzo a ver, PHP sería para freelancer, PERL y no Python para LexTool, Java para trabajar en un proyecto grande y complejo (de un tiempo a esta parte he visto más vacantes en Java que en PHP: ¿un indicio del siguiente gran golpe: IoT?). Problema: toma alrededor de dos años aprender estos lenguajes. Por eso no es sencillo a...