Tag: HYPERLEDGER-BESU
Tengo una cadena de texto: {valor1}+{valor2}-{valor3}*{valor…n} Utilizando una expresión regular, quiero capturar cada uno de los valores entre corchetes, así como los operadores entre ellos, y no sé cuántos corchetes habrá. Intenté: /(\{.*\}).*([\+|\-|\*|\/])*/mgU pero eso solo me está obteniendo los valores y no los operadores. ¿Dónde me equivoqué?
He creado un script en Perl que se conecta a una base de datos Oracle y funciona perfectamente cuando lo ejecuto manualmente, pero no funciona como cronjob. Parece que el script no puede conectarse a la base de datos. He agregado una instrucción de impresión antes y después de la . . . Read more
Cómo resolver el error de Perl que surge cuando se ejecuta una función recursiva main::getE_Path_Rec() llamado demasiado pronto para verificar el prototipo en ./test.pl línea 28 Mostrado por cat -n: 13 our ($whole, @result); 14 15 sub getE_Path_Rec ($\@$) { my ($path, @iOffNode, $offset) = @_; 16 17 $path=~ s#^/([^/]+)(.*)$#$2#; . . . Read more
Estoy tratando de ordenar la siguiente estructura de datos en Perl, por location_id. my $employees = $dbh->selectall_arrayref(qq[ SELECT name, type, code, emp_cat_id, percentage, location_id FROM table_1 ],{ Slice => {} }); for my $row (@$employees) { push @{ $args->{employees}{ $row->{emp_cat_id} } }, $row; } Ejemplo: 123 => [ { percentage . . . Read more
En mi archivo httpd.conf quiero ejecutar el siguiente filtro solo si el archivo tmp no existe: ExtFilterDefine htmlfilter mode=output intype=text/html cmd="/usr/bin/perl -pe 's|Mountainbike|BLUE|e unless q{\"\\Q/path/to/my.test.file/.tmp\E\"}'" Ahora mismo no está funcionando. Supongo que la parte q{…} está incorrecta. ¿Qué debo cambiar?