Foro - Perl en Español

Hola, tenía pensado hacer un archivo html que organizara y leyera carpetas y archivos mostrando su contenido. Rápidamente pensé en usar PHP pero la idea es que lo use el usuario común, o sea, que se haga todo desde el archivo html. Entonces es lo que no entiendo cómo hacer. Pensé en JavaScript pero ni lo he visto. ¿Qué necesito hacer para lograr lo que quiero? ¿Uso Javascript?

Resulta que tengo un sistema transaccional de al menos 100 000 registros para insertar en tablas de PostgreSQL

Inicio a las 13:00 y ya son las 15:20 y van 30 000 registros, más o menos...

¿Cuánto debería demorarse en insertar 30 000 registros en una tabla PostgreSQL? Los estoy haciendo en un ciclo de un array de 30 000 posiciones.

Tengo este error cuando trato de cargar lampp

/opt/lampp/lampp: 4: Syntax error: "(" unexpected

Me puse leer el código de lampp y el error esta cuando empiezan estas líneas

function testport() {
if netstat -an | egrep ":$1 .*LISTEN" > /dev/null
then
return 0
else
return 1
fi
}

Probé usando otras versiones de lampp y siempre marcan la línea donde empieza esta función.

¿ Alguien me puede decir qué pasa ?

Hola a todos, estoy utilizando DIV y me generan salto de línea:

<td colspan=4 bgcolor="#FFFFFF"><span class="style1">FECHA:</span>
<div id="listaEventos" style="white-space: nowrap;">
<input type="text" size="13" name="date1" class="tcal" id="sel1" value="" onBlur="carga_eventos(subestacion.value,this.value);">
</div>

<input type=text size=2 maxlength=2 name=salehora onBlur="validate(this);">

<B> : </B>
<input type=text size=2 maxlength=2 name=salemin onBlur="validate2(this)">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

Ojalá me puedan apoyar en cómo quitar el salto de línea que se genera.

Hola. Lo que intento hacer es almacenar una variable en mi base de datos, que he leído desde PHP pero necesito usar decode() para que interprete los caracteres adecuadamente.

<script language="Javascript">
function submitForm() {
tinyMCE.triggerSave();
document.forms.submit();
}
</script>
<script language="javascript">

$(document).ready(function(){

$(':button').click( function(){
if(this.name == 'cancel')
{
$('#dialogContact').fadeOut();
$('.dialogBG').fadeOut();
}
else if(this.name == 'save')
{
var id = $('input');

var desc_short = $('textarea');
var desc_long = $('textarea');
var titel1 = $('input');
var from = $('input'); ...

Buenas, ¿cómo les va?

Encontré este sitio buscando cómo hacer andar este soft.

La cosa es que tengo en el trabajo un programa que tiene una interfaz Windows y una interfaz web que funciona por Perl. Tiene una opción de hacer que envíe correos automáticamente con SendMime, según el manual de usuario pero no dice nada más, así llano, nada.

El tema sería hacerlo andar, ¿alguien me daría una mano? Yo rescaté esto del SendMime ...

He actualizado MySQL a la versión 5.1 y desde ese momento la conexión a la base de datos, utilizando DBI, me falla. El servidor devuelve el error "Error 500 - Acceso no autorizado "

Este es el código que utilizo, y que estaba funcionando:

my $dbh = DBI->connect("dbi:$Driv:$Base",$User,$Pass) || die &MensajesErrores("","No se pudo Conectar a $Base","","");

my $sth1 = $dbh->prepare("SELECT $campos FROM $tabla where ($comparar);");

Webs en Joomla o Wordpress instaladas en el mismo servidor ...

Hola:

Lo que intento hacer es utilizar Ajax para pedir unos datos a mi BD y guardarlos en variables de sesión de PHP y después mostrarlos en campos de la web.

Por un lado tengo esta función que la llamo con el evento onclick de una lista desplegable:
function show(str)
{

if (str=="0")
{
document.formparam.tbaseloc.value="";
document.formparam.tmeasure.value="";
return;
}

if (window.XMLHttpRequest) {
// code for IE7+, Firefox, Chrome, Opera, Safari
xmlhttp=new XMLHttpRequest();
} else ...

Tengo el siguiente código en Delphi :

function Check(const UserAgent: string; const Server: string; const Resource: string; const Data: AnsiString): string;
var
hInet: HINTERNET;
hHTTP: HINTERNET;
hReq: HINTERNET;
Buffer: array of AnsiChar;
i, BufferLen: Cardinal;
const
accept: packed array of LPWSTR = (PChar('*/*'), nil);
header: string = 'Content-Type: application/x-www-form-urlencoded';
begin
Result := '';

hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hHTTP := InternetConnect(hInet, PChar(Server), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
try ...

Hola. Se me está dificultando el tema del uso de JSON en Delphi por lo que tengo que recurrir a mi última chance hacerlo a mano, hacer como 15 expresiones regulares diferentes, pero me di cuenta de que el resultado JSON deja un patrón no tan difícil. El resultado es este:

{"scans": {"eSafe": {"detected": false, "version": "-", "result": null, "update": "-"}, "McAfeeBeta": {"detected": false, "version": "-", "result": null, "update": "-"}, "CAT-QuickHeal": {"detected": true, "version": "-", ...