Foro - Perl en Español

Muy buen día.

Les agredeceré su gran apoyo si cuentan con algún ejemplo de programación en Perl del cálculo de interpolación lineal, a continuación pongo un ejemplo de los resultados a los que deseo llegar con los datos que estoy leyendo desde un archivo .csv.

Datos que se encuentran en un archivo .csv:
Curva, 0, 0.006013, 1
Curva, 199, 0.006013, 180
Curva, 382, 0.009533, 364
Curva, 747, 0.0165096, 728
Curva, 1112, 0.02278, 1092
Curva, 1477, ...

¡Hola a todos!

Tengo una consulta... estoy generando un pdf con un campo llamado detalle, su maxlength es de 260 caracteres.
Pero al imprimir el pdf, nunca hace el salto de línea y no se puede ver todo lo que yo escribí dentro del campo detalle.

El código es el siguiente:

my $detx = $page->text;
$detx->textlabel(80, 280 ,$fnt, 12 , $detalle_voucher, -align=>'left');

¡Muchas gracias!

Estimados: tengo varios pl en versiones anteriores a 5.14 y quisiera actualizar mi Perl a 5.30.

El problema inicial que se me presenta en con el uso del 'use' y módulos propios: no los encuentra y residen en la misma carpeta que el pl que los usa.

¿Dónde debo colocar estos módulos para que los encuentre?

¡Gracias!

use modulo_propio1;
use modulo_propio2;

Buenos días.

Espero que sea este el sitio para comenzar este hilo... Si no es así presento mis disculpas de antemano. :wink:

De primeras avisar que soy nuevo en la programación Perl y que quizás me cuele en la terminología que se usa... pero básicamente, me gustaría saber si es posible aumentar el número de caracteres que se recuperan al atacar a una BD de SQL Server ...

Introducción a Raku. Inglés, 55 láminas.

https://www.slideshare.net/SimonProctor ... -196440606

Hola, buenas.
Tengo el siguiente código:
#!/usr/bin/perl -w
use Xchat qw( :all );
Xchat::print ":: Loading script :: \n";

hook_command( "porta" , \&cmd_msg);

sub cmd_msg {
Xchat::command("exec xsel -o > ./archivo.txt");
my $sal = `cat ./archivo.txt`;
Xchat::print("==> $sal");
return EAT_XCHAT;
}
El caso es que no imprime lo que hay dentro de archivo.txt, pero si comento la línea número 8, imprime sin problemas... Es como si la línea 8 borrara el archivo y no ...

Buenos días.

Soy nuevo en el mundo de la programación y quería pedir ayuda con la siguiente situación.

Tengo un archivo de entrada del que tengo que seleccionar unas líneas del archivo para guardarlas en otro.

Abro el archivo:

my $file = $ARGV;
unless (open(FROM,$file))
{
print STDERR "Cannot open file \"$file\"\n\n";
exit;
}

le digo que lo lea línea a línea y que me guarde el número de líneas y que cuando llegue a ...

Hola, estoy tratando de capturar y eliminar algunos bloques de texto que se encuentran anidados dentro de llaves {...} las cuales están correctamente balanceadas, y dentro de estas se encuentran llaves escapadas \{ ...\} que no siempre están balanceadas. El script que poseo es el siguiente:
#!/usr/bin/env perl
use v5.28;
use autodie;
use File::Basename;

## Args
@ARGV == 1 or die "Uso: $0 <archivo TeX to process>\n";
my $nombre_archivo = shift;
-f $nombre_archivo or ...

¡Hola nuevamente! Tengo este código para subir un archivo al servidor:

$CGI::POST_MAX = 1024 * 5000;
my $upload_dir = "../../certificados/";
my $query = new CGI;
my $filename ="";
my $filename =$query->param("archmov");
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$mon += 1;
my $datetime = sprintf "%02d%02d%04d%02d%02d%02d", $mon, $mday, $year, $hour, $min, $sec;

my $upload_filehandle = $query->upload("archmov");

if ($filename =~ /pdf$/i) {

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
print UPLOADFILE; ...

Un saludo.

Tengo este código con el que busco hasta el final de la línea pero me gustaría que buscara hasta que se encuentre un punto, para que me extraiga un texto con coherencia.

A continuación el código:

#!/usr/bin/perl

use strict;
use warnings;

my $body;
my $smtpCode;

$body = "Diagnostic-Code: smtp; 550-5.1.1 The email account that you tried to reach does
not exist. Please try 550-5.1.1 double-checking the recipient's email
address for typos or ...