Foro - Perl en Español

Consigo truncar al número pero sólo me deja los primeros caracteres y no los últimos como lo estoy queriendo hacer.

printf '<%.2s>', "2012"
# output
# 20

:x

Vuelvo a repetir: mi intención es conservar los 2 últimos dígitos. Estos valores son años de una base de datos.

¿Alguna sugerencia?

Hola compañeros,

querría modificar la cabecera de un fichero que empieza con ww_2012091700.dat por WW_alt.dat

La cabecera contiene la fecha del día y entonces cada día se modifica. Había escrito el siguiente script pero no me cambia la fecha por el WW_alt.dat. ¿Algún consejo?

#!/usr/bin/env perl
use v5.10;
use DateTime;

$date = DateTime->now->ymd("");
print "$date\n";

@args = ("perl -pi -e 's/ WW_${date}00.dat/WW_alt.dat/g' WW_altvc.ctl");
escriu("@args");
system(@args) == 0 or die $!;

sub escriu {
my ...

«En ocasiones es interesante poder enviar un email desde nuestra aplicación. Un ejemplo puede ser el caso de un proceso que se ejecuta periódicamente en un servidor (quizá mediante una entrada en cron), y que avisa mediante un email cuando se produce alguna incidencia durante su ejecución.

En Perl, la manera más sencilla de enviar un email es llamando a una aplicación externa de envío de correos por línea de comandos que esté disponible en ...

Hola Buenas,

Estaba intentando recorrer una simple matriz de números con dos bucles for(),cuando me he dado cuenta de que no se hacen todas las iteraciones, y me gustaría saber a qué es debido.

El código es este

for ( $i; $i <= $n; $i++)
{
for ( $j; $j <= $m; $j++)
{
print "LA coordenada es : \n";
}
}

Lo que me sorprende es que cuando termina con las columnas ...

Hola, me gustaría saber cómo insertar imágenes desde el disco.

En concreto lo que quiero es que al ingresar a la página con el módulo GD crear la imagen, luego mostrarla en la web. ¿Es posible con el módulo HTTP::Server::Simple? De nos ser así, ¿es posible con otro módulo o método?

Sigo el ejemplo para crear el servidor, mostraré las subrutinas en cuestión solamente, evito también crear una imagen compleja para evitar un exceso de ...

El nombre del asunto es lo que obtengo como resultado al ejecutar un script que interpreta un archivo .csv y a medida que tomo un id de una las columnas del archivo, ejecuta una consulta SQL a mi base PostgreSQL.

SELECT prestacionrid
FROM usuarios
WHERE serviciocontratadorid IN (SELECT rid FROM servicioscontratados sc
WHERE clienterid=clientes.rid AND clientes.personarid=personas.rid AND personas.identificador=$id) AND prestacionrid IN (118,59,36,60)


Según se me dijo, el error se encuentra en ésta consulta. ...

Resulta que hace no mucho vengo programando con el mismo y al usar el comando :set paste, luego dar clic derecho y pegar el contenido externo (me refiero porque es fuera de la terminal) que había copiado anteriormente, el mismo se muestra pero siempre los primeros 2 o 3 caracteres nunca están... me pasó en Debian y en Ubuntu, dudo que se trate de un bug, algo mal debo estar haciendo pero no me entero, ...

Necesito ayuda. Quiero, como práctica, leer una base de datos desde Asterisk. Soy principiante en Perl y en MySQL pero tengo mucha experiencia con Asterisk.

Este es el conector:
#!/usr/bin/perl
use strict;

use Asterisk::AGI;
use DBI;

my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my $Cedula = $AGI->get_variable('Cedula');

my $dbh = DBI->connect( "DBI:mysql:host=10.100.117.102;database=asterisk;port=3306", "root", "vicidialnow" )
or die "Error en la conexion: $DBI::errstr";

my $sth = $dbh->prepare('select Cedula from asterisk.roberto where ID = ...

Buenas noches.

En primer lugar daros las gracias por existir, mis conocimientos de Perl son muy básicos pero con este foro y el copy-paste de partes de código voy haciendo mis cositas.

A lo que vamos:

Tengo dos ficheros, con varios campos cada uno, quiero comparar el primero con el segundo y generar un tercer fichero con las líneas del primero menos las líneas que contengan el mismo id ($c1) que los id ($c2) del ...

Hola.

Me gustaría saber cómo poder cambiar el último valor de la palabra csv01alm01. Mi intención es saber si se puede hacer que cambie solamente el 1 del final por un 2 pero el 1 del medio lo deje como está.

Si hago sed s/"1"/"2"/g me cambia los dos. ¿Alguna idea?