Foro - Perl en Español

¡Hola!

Estoy intentando hacer unos unit test con Perl y quisiera usar mock objects.

¿Me podrían explicar cómo se usan? Porque busqué y no encontré nada.

¡Desde ya, muchas gracias!

¡Saludos!

Hola, tengo un problema: tengo un listado a tratar con esta pinta, guardado en la variable $users:

Administrador admintivoli Asistente de ayuda
ASPNET Guest SUPPORT_388945a0
tecnico tmersrvd USMCAFEE

Con el siguiente código, voy metiendo en $campo cada una de las columnas, pero en el caso de "Asistente de ayuda" como tiene espacios, no funciona.

my @lista = split(/\s+/, $usrs);
foreach my $campo(@lista){
print "$campo\n";
}

¿Cómo podría hacer para meter en $campo "Asistente ...

Hola amigo,

Me gustaría hacer un .pl el cual me genere un reporte con la información del status (CVS) de todos los archivos de un directorio en adelante.

No me imagino cómo es la forma para saber el status a través de Perl.

Por su ayuda, muchas gracias.

Saludos.

Hola,

tengo un archivo de texto del que quiero coger únicamente las líneas que están entre #START y #END, pero solo la zona que tiene dos columnas y no tres, y guardar los valores de la segunda columna para sumarlos. Es decir, mi archivo sería así:

Línea1
Línea2
Línea3
..
#START
column value
1 5
2 7
3 2
4 17
5 20
#END
línea52
línea53
..
#START
column value error
1 5 2
2 ...

Buenas a todos, tengo una utilidad que genera un registro en un log XML con el siguiente aspecto:

<?xml version="1.0" encoding="ISO8859-1" ?>
<?xml-stylesheet type="text/xsl" href="drivers.xsl"?>
<table>

<driver name="Driver1">
<data field="Timestamp">2011:07:05 10:30:01</data>
<data field="Start Option">Manual</data>
<data field="Status">RUNNING</data>
<data field="TOA File">/33086.drv</data>
<data field="Size"></data>
</driver>
<driver name="Driver2">
<data field="Timestamp">2011:07:05 10:30:01</data>
<data field="Start Option">Disabled</data>
<data field="Status">DISABLED</data>
<data field="TOA File">/33003.drv</data>
<data field="Size"></data>
</driver>
<driver name="Driver2">
<data field="Timestamp">2011:07:05 10:30:01</data>
<data field="Start Option">Manual</data>
<data field="Status">STOPPED</data>
<data field="TOA File">/33027.drv</data>
<data field="Size"></data>
</driver> ...

Hola a todos, soy nuevo en el foro y apenas llevo unos días utilizando Perl. Por lo regular, investigo y pruebo, hasta más no poder pero esta vez estoy contra el reloj. Tengo que ingresar ciertos datos para formar arrays en un archivo, luego ingresar alguno de los datos y que me muestre el array donde se encuentra. El problema es que cuando lo encuentra me muestra todo los arrays que ingresé. Aquí está esa ...

Hola:

Soy nuevo por el foro y en el mundo de Perl, estoy haciendo ejemplos para usar el módulo SOAP::Lite, y me he encontrado con el siguiente problema:

Tengo un servidor con una clase Temperatura con orientación a objetos:

use SOAP::Transport::HTTP;

#use Temperatures;

package servidor;

my $daemonio = SOAP::Transport::HTTP::Daemon->new(
LocalAddr => 'localhost',
LocalPort => 8045
)->dispatch_to( '', 'Temperatures' );

package Temperatures;

sub f2c {
my ( $class, $f ) = @_;
return 5 / ...

Hola amigos, si bien he leído varios foros de cómo realizar la creación de un webservice en SOAP para el consumo de uno en .NET al tratar de autenticarme me arroja 500 Internal Server Error

El script es el siguiente :

use SOAP::Lite 'trace', 'debug';

SOAP::Lite->soapversion('1.2');
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
return 'user' => 'passwd';
}

my $result = SOAP::Lite
->uri('https://url.go.gt')
->proxy('https://www.worldcomex.com/application/icomexvi/enlaces_de_datos/servicio_enlace_icomexvi.asmx', timeout => 5)
->result;

print $result;

Desde ya, muchas gracias por su ayuda.

Buenas, estoy haciendo una aplicación web con Catalyst y necesito recepcionar los datos de un checkbox, donde puedo seleccionar varios datos que posteriormente debo insertar en una BD de MySQL. Para esto uso:

@libros = $c->request->param( 'libros' );

El problema que tengo es a la hora de introducir los datos en MySQL. Para esto recorro el array de la siguiente manera:

foreach $libro (@libros){
sentencia MySQL con $libro
}

Y viendo la traza de DBIC ...

¡Hola, amigos perleros!

Tengo el siguiente problema.

Quiero agregar una línea al final de un archivo y lo hago mediante system(), de la forma:

system "echo q=(\"variation scale\") >> Salida.txt";

Yo necesito que en el archivo salida.txt quede la línea como

q=("variation scale") , con las comillas dobles, pero en realidad me queda

q=(variation scale) . Probé también poner

system "echo q=(""variation scale"") >> Salida.txt";

pero me tira un error.

¿Cómo tengo que hacer para ...