Foro - Perl en Español

Buenas tardes, Comunidad Perl.

Estoy creando un reporte PDF con Perl y tengo el siguiente problemita:

Quiero justificar a la derecha el contenido de una variable el cual me imprime unos valores en dólares.

Estaba utilizando$pdf->addParagraph($convpdf = $hpnum, 140, $height-15, $width-20)sin embargo el $pdf->setAlign($align) solo se puede utilizar con la función 'addText'.

Decidí entonces utilizar
my $alignR = 'right';
$pdf->setAlign($alignR);
$pdf->addText($convpdf = $hpnum)
Sin embargo lo imprime al final derecho de la hoja y no ...

Necesitaría restar dos fechas que se encuentran en el siguiente formato: dd/mm/YYYY, y no sé cómo inicializar el Date::Init. No puedo obtener la diferencia entre las dos.

Date_Init( "DateFormat=US", "TZ=EST5EDT" );
my $diferencia = DateCalc($fecha_inicio, $fecha_fin, 3);
my $real_dias = Delta_Format($diferencia,1,"%dt"); # pasar a días

¡¡¡ MUCHAS GRACIAS !!! :D

Acá de nuevo con otro problema...

Les cuento... debo hacer una aplicación en Perl, la cual pueda testar el estado de unos procesos... para esto debo hacer una conexión remota con usuario y password y debo ejecutar un archivo xxxxx.sh, el cual me debe devolver el estatus de éste...

Mi problema va en que la conexión remota aun no me funciona... he tratado de usar varias librerías pero aun nada.

Code: Seleccionar todo

Net::SSH::Perl
Net::SSH::Expect

He usado esas ...

Tengo este archivo de 2 columnas...

Code: Seleccionar todo

contig00003   FBO8G5401CWQ5N
contig00003   FBO8G5402F3NCU
contig00003   FBO8G5402GCMD8
contig00003   FBO8G5402FFLIP
contig00003   ALB_18F12_F_ab1
contig00003   ALBSCV_03C08_F_ab1
contig00003   FA8IC4H02DS8JW
contig00003   FBO8G5402HGKUR
contig00003   FBO8G5402FI9DB
contig00002   ALSINT_04P11_R_ab1
contig00002   ALSINT_04E24_R1_ab1
contig00002   ALSINT_04I22_R_ab1
contig00002   ALSINT_04I22_R1_ab1
contig00002   ALSINT_05H03_R_ab1
contig00002   ALSINT_01O23_R_ab1

Lo que quiero es que me imprima la columna 1 (contig00003) y que me vaya contando de la columna 2 cuántas veces aparece F.* y me lo imprima y cuántas veces aparece ALB.* y también me lo imprima... y ...

Hola a todos:
Tengo una aplicación en la que al momento de pagar un articulo o servicio, se pregunta el "Tipo de Pago", el cual puede ser o "Efectivo" o "Cheque"; no hay mas opciones.
Ahora bien, si el pago es Efectivo, solo necesito habilitar el campo "Importe", para que sea capturado.

Pero si el pago es en Cheque, además del Importe , necesito habilitar los campos "Numero de Cheque" y una "Scrolling list" de ...

Hola a todos(as).

Tengo una duda un tanto básica sobre XS... resulta que tengo una función ( en xs ) que retorna un string, pero este string no es compatible con los de Perl y no sé cómo pasarlo.

Explico con código:
int
dispositivo ()
CODE:
{
struct fdev *dev;
struct f_scdv_dev *ddev;
dev = discovered_dev( ddev );
printf( "Dispocitivo: %s", dev ); // esto es de prueba
RETVAL = dev;
}
OUTPUT:
RETVAL

Aunque ...

Hola de nuevo, me presento aquí con una nueva duda:

Un ejercicio que tengo que hacer me exige esto:

Necesito visualizar el contenido de un fichero que cada línea contiene el siguiente formato:

Code: Seleccionar todo

ID MIN HORA DÍA MES DÍA-SEMANA ORDEN

si el fichero contiene este contenido:

Code: Seleccionar todo

1 04 16 * * * diario/S12kbd
2 04 16 * * * diario/S14smbfs
3 04 16 * * * diario/S10nfs
4 04 16 * * * diario/S12running-kernel

El ...

Hola, estoy trabajando con un hash y quería saber lo que significa exactamente esta expresión regular y si hay alguna que haga la misma función para cambiarla. ¿Si me pasa otra podría explicármela también por favor?

$hash{$key} = $key + int (($fin-$key)/ 3 ) * 3

Muchísimas gracias.

Buen día, perleros, espero puedan ayudarme es una duda muy básica. Es para separar texto. Tengo mi programa:
#!/usr/bin/perl
##################################################
## Variables a modificar
##################################################
$datadir = "/data";
$sqldir = "/sql";
$historicaldata = "/historico";
##################################################

&fecha;

opendir(DIRHANDLE,"$datadir");
foreach (readdir(DIRHANDLE)) {
if ($_ ne "." && $_ ne "..") {
push (@archivos, $_);
}
}
closedir DIRHANDLE;
@archivos = sort(@archivos);

foreach $archivo (@archivos) {
($fechacomp, $no) = split(/\./, $archivo);
$sqlfecha = $fechacomp;
$fechacomp =~ s/\-//g;
if ...

Hola, soy nuevo en esto de la programacion en Perl. Implementé el servicio MRTG y ahora quiero incorporar un script que busque los picos más altos del día, los guarde en un archivo, que se pueda hacer un promedio, que muestre el día que tuvo su mayor pico y mostrarlo por HTML.

Si me pueden guiar, de antemano, muchas gracias.

Revisé los temas que hay en el foro pero no los pude acomodar para lo ...