Foro - Perl en Español

El gobierno chino ha comenzado a implementar una controvertida medida para mantener a sus ciudadanos alejados del contenido nocivo de la red: fotografiarlos al ingresar a cibercafés.



Hasta mediados de diciembre, todos los cibercafés de Beijing deberán contar con un equipo para fotografiar a sus clientes y escanear sus documentos de identidad.

14 distritos y condados de Beijing y 1.500 cibercafés ya cuentan con este equipo, llamado “Equipo Registrador de Clientes de Cibercafés de ...

¡Buenas gente! Estoy intentando concatenar dos variables utilizando el operador punto (.). Es curioso porque he estado haciendo pruebas simples y ha funcionado perfectamente (pongo el miniejemplo):

my $rtb="02";
my $bsc="CAT01B2";
print"$bsc\n";
$bsc=$bsc._.RTB.$rtb;
print"$bsc\n";

Pero cuando lo pego a la rutina principal (sin hacer cambio alguno), me aparece el siguiente error:

Bareword "_" not allowed while "strict subs" in use at Aplicacio_v6.pl line 188.
Bareword "RTB" not allowed while "strict subs" in use at Aplicacio_v6.pl ...

¿Alguien me podría decir qué tengo que hacer para realizar el siguiente formulario? Es un cuantificador de materiales. Está en la siguiente dirección:

http://mx.geocities.com/javiervg27/cotizador.html

Desde luego, como no sé cómo se hace, está inhabilitado. :shock:

Estimados,
Los molesto para consultarles si alguien tiene un ejemplo donde pueda ver cómo poner colores en consola en los parámetros del print().

Por ej., me gustaría lo siguiente:
print "planta";
Donde la palabra planta este en color verde.

Gracias.

Buenas. Estaba haciendo unas consultas en SQL y me trabé con una y no sé cómo hacerla. ¡¡Capaz que no es difícil pero no sé me ocurrió cómo hacerla!!

Lo que tengo que hacer es que me devuelva algo así...

Code: Seleccionar todo

Número de semana /  Bajas / Altas
1                      xx       xx
2                      xx       xx
3                      xx       xx
4                      xx       xx
5                      xx       xx

FROM `usuario`

Las fechas es desde el 2008-06-01 (no se le pasa la ...

Hola.
Soy bastante novato en este lenguaje, y os estaría muy agradecido si pudieseis echarme una mano en estos dos problemas que tengo...
1. Necesito convertir un número científico en un entero sin decimales. No sé si existe alguna función para ello.
Los números son del siguiente formato: 1.0030506e+002 y necesito que quede así: 100.30506. ¿Cómo puedo hacerlo?
2. Una vez convertido en decimal, necesito eliminar los decimales y dejarlo de esta manera: 100.

Quizá ...

Tengo este mensaje:

Code: Seleccionar todo

Software error:
Undefined subroutine &main::fkread called at E:\O'Telch\Sitios web\bitacora\riocauca\panel.pl line 49.

Mi módulo es FILE::kreader;
Cuando mi módulo lo llamo así:

#!/usr/bin/perl -w

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:all);
use lib('../modulos');

print header;

#use CGI::Session;
use HTML::Template;
use Data::Dumper;
use HTML::CalendarMonth;
use FILE::kreader;

Y dentro de mi módulo tengo esto:

package FILE::kreader;

use strict;

require Exporter;


{ no strict;

@ISA = qw(Exporter);
@EXPORT_OK = qw(makefile swrite cfind fwrite fedit fkread kread);

} ...

Me gustaría saber la forma óptima de unir dos array y que me queden en un hash, es decir, los datos del primer array serán las llaves y los del segundo las claves...


@array1 =('nombre', 'edad', 'pais');
@array2 =('fernado', '17', 'peru');

%hash {
'nombre' => 'fernado',
'edad' => '17',
'pais' => 'peru'
}


El problema es que nunca sabré cuáles y cuántos son los campos que traerá cada array, lo único que sé ...

Agradecería si me pudiesen indicar qué módulo puedo utilizar para obtener cookies. He visto el CGI::Cookie pero veo que es solo para Netscape, y mis usuarios son en la mayoría IE.

Muchas gracias. :D

Preparados todos aquellos que usáis este módulo, pues la nueva versión trae muchas mejoras, errores corregidos, y algunas incompatibilidades con versiones anteriores.

Para los que no lo conozcan, se trata de un módulo para mod_perl2 que permite escribir al estilo de las jsp en Java o asp en Visual:

<html>
<body>
<%= "Hello, World!" %>
<br>
<%
for( 1...10 ) {
$Response->Write( "Hello from ASP ($_)<br>" );
}
%>
</body>
</html>

Apache2::ASP::Manual::Intro