Foro - Perl en Español

Hola, amigos:

He borrado por línea de comando una línea de un archivo haciendo...

Code: Seleccionar todo

perl -n -i.bak -e "/3202016/||print" C: \\CASEALERT2.txt

... hasta aquí todo OK.

... pero luego en un archivo.pm hago lo mismo y no me resulta el borrado del archivo (intentado de varias formas posibles)...

#!C:\perl\bin\perl.exe -w
use CGI;

#`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`;
#open(AN,`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`);
#close(AN);
#@output = `perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`;

system(`perl -n ...

Tengo un problema que es un tanto cuanto complejo.

Resulta que anteriormente yo tenía un formulario web en el cual subía varias imágenes al servidor y guardaba el nombre de las imágenes en una base de datos, con esta información yo generaba una galería para una página de fotos.

Todo está bien pero si se tienen muchísimas imágenes el proceso se hace muy lento, entonces lo que me gustaría sería hacerlo de otra manera.

Por ...

Este es mi código de un procedimiento que llamo con CGI::Application:
sub inmobiliaria{

use CGI::FormBuilder;
my $self = shift;
my $error = shift;
my $datos =$self->query();
my $template;
my $form;
my $pague;


$form = CGI::FormBuilder->new(
name => 'controladorFORM',
method => 'post',
#template => 'templates/sitio/inmobiliaria.html', # Modelo ruta 1
template => $self->load_tmpl('sitio/inmobiliaria.html)', # Modelo ruta 2
type => 'HTML'

);


my @ciudades = ('Cali',
'Bogota',
'Medellin',
'Barranquilla'
);


$form->field(name => 'ciudad',

options => \@ciudades,
value => ...

Hola necesito si alguien me podría decir cómo hago que un archivo se ejecute cuando se cargue Windows; sé hacerlo en batch. Ejemplo:

Code: Seleccionar todo

reg add "HKLM\SOFTWARE\Microsoft\Windows\Current Version\Run" /v "loco"  /d  "%windir%/system32/ff.pl"

pero me gustaría saber cómo hacerlo con el módulo Win32::TieRegistry.

Agradecería si me ayudaran.

Buenas,

Tal vez intento hacer algo extraño en Perl pero busco esto:

use paquete;
$nombreFuncion = "paquete::laFuncion";

$nombreFuncion($parametro);


package paquete
sub laFuncion{
.....
}

¿Alguna idea? Gracias.

Salu2.

¿Cómo puedo ordenar el array de Perl siguiente ...

Code: Seleccionar todo

15    120    B
10    15      A
15    110       D
110  7000    C
110  6000   I
111  6001   H

... de forma que me quede ordenado primero por la columna 1 y luego por la columna 2, es decir, ...

Code: Seleccionar todo

10    15      A
15    110       D
15    120    B
110  6000   I
110  7000    C
111  6001   H

? Gracias.

Hola, hice un código que no entiendo porqué no funciona. Quiero randomizar datos por columnas. Los datos vienen de leer un file por filas. Creo un arreglo bi-dimensional y quiero randomizarlo. Tampoco sé cómo imprimirlo decentemente.
Mil gracias otra vez.

open(fp, "$filein");

srand (time | $$);

while($current_line = <fp>)

{
chomp($current_line);

@seqs = split (//, $current_line);

push ( @struct, @seqs);
}
for ($j=0; $j< @struct; $j++){

for ($i=0; $i< @{$struct}; $i++)
{
$alea = int(rand($#struct)); ...

Me gustaría saber si alguien tiene un ejemplo claro del uso de CGI::Application::Plugin::Authentication

O de qué forma puedo hacer autenticación de mis usuarios para una aplicación... algo más bien sencillo y no tan avanzado.

Hola

No encuentro cómo se puede cambiar la cabecera return-path al enviar un mail con el módulo Mail::Sender.

Si utilizo el parámetro headers{'Retrun-Path:[email protected]'} la cabecera se establece 2 veces pero si el mail es retornado por error lo hace sobre el return-path que no pongo yo.

Gracias, un saludo.

Saludos, con una consulta: tengo que hacer un programa servidor a través de un webservice que recibe un mensaje xml encriptado en base64, para luego mandarlo a un servidor tcp. La parte de la codificación y el tcp sí sé cómo se hace, pero la parte del webservice no. Quisiera saber si me pueden orientar para ver por dónde empezar.

Es RPC.