Foro - Perl en Español

Hola, Felices Fiestas :)

Estoy queriendo crear un log desde un bot en Perl, y quiero darle el siguiente formato:

1013630386748 :nick!ident@hostname PRIVMSG #channel :Hello world.

El valor ":nick!ident@hostname PRIVMSG #channel :Hello world." me viene dado por el servidor, y la fecha (1013630386748) la puedo tomar con `date +%s%N` del sistema operativo.

Lo que no sé es cómo grabarlo a partir de este código:

#!/usr/bin/perl ...

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; ...