Hola
Tengo una pregunta referente a archivos. ¿Cómo puedo hacer que al subir archivos me acepte solamente archivos menores a 100 Kb, es decir limitarlo a esto y a la vez me muestre un mensaje de que el archivo es mayor?
-
- Publicidad
Fecha actual 2026-03-10 17:12 @758
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.Tamaño en archivos
Read more : Tamaño en archivos | Vistas : 1599 | Respuestas : 1 | Foro : Intermedio
Problema con fechas
Hola a todos,
El caso es que estoy bloqueado con un problema de fechas:
(undef, undef, undef, $d_, $mth_, $y_, undef, undef, undef) = gmtime();
# compute and enter the right directory
$day = sprintf("%04d",($y_+1900)).sprintf("%02d",($mth_+1)).sprintf("%02d",$d_-1);
$workingDir = "$workingDirBase/$day";
El caso es que dicho código no funciona cuando estamos en el primero de mes, pues para calcular $day, hago un $d-1.
¿Cómo obtener el día anterior correctamente? ¿Hay alguna función/librería que lo haga?
¡¡Gracias por ...
El caso es que estoy bloqueado con un problema de fechas:
(undef, undef, undef, $d_, $mth_, $y_, undef, undef, undef) = gmtime();
# compute and enter the right directory
$day = sprintf("%04d",($y_+1900)).sprintf("%02d",($mth_+1)).sprintf("%02d",$d_-1);
$workingDir = "$workingDirBase/$day";
El caso es que dicho código no funciona cuando estamos en el primero de mes, pues para calcular $day, hago un $d-1.
¿Cómo obtener el día anterior correctamente? ¿Hay alguna función/librería que lo haga?
¡¡Gracias por ...
Read more : Problema con fechas | Vistas : 1238 | Respuestas : 4 | Foro : Básico
Ejecutar Perl en la máquina Cliente...
Me fue una gran sorpresa encontrarme con eso, y sobretodo de que su creador fue Microsoft...
<HTML>
<HEAD>
<TITLE>PerlScript Hello World!</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H1>PerlScript Hello world!</H1>
<SCRIPT LANGUAGE="PerlScript">
$window->document->write('Hello world!');
</SCRIPT>
</BODY>
</HTML>
Me imagino que sólo funcionará en el mundo Microsoft, pero me gustó mucho la noticia, espero que a ustedes también les agrade ;-)
http://www.google.com.ar/search?hl=es&q ... ogle&meta=
Saludos
<HTML>
<HEAD>
<TITLE>PerlScript Hello World!</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H1>PerlScript Hello world!</H1>
<SCRIPT LANGUAGE="PerlScript">
$window->document->write('Hello world!');
</SCRIPT>
</BODY>
</HTML>
Me imagino que sólo funcionará en el mundo Microsoft, pero me gustó mucho la noticia, espero que a ustedes también les agrade ;-)
http://www.google.com.ar/search?hl=es&q ... ogle&meta=
Saludos
Read more : Ejecutar Perl en la máquina Cliente... | Vistas : 3254 | Respuestas : 2 | Foro : Noticias de Perl
Logins y passwords
Buenos días, soy nuevito en Perl y me pidieron hacer un script para que usuarios con sus respectivas contraseñas puedan ingresar a una página restringida. ¿Hay algún tutorial donde pueda sacar información o por dónde empiezo.........?
Desde ya muchas gracias
Desde ya muchas gracias
Read more : Logins y passwords | Vistas : 1199 | Respuestas : 1 | Foro : Intermedio
Insertar en base de datos
¿¿Para guardar los datos de un formulario en mysql debo usar los módulos de DBI y CGI::Lite o ya hay algún script hecho que lo solucione??
¿¿¿¿Alguien podría darme una idea????
Gracias
¿¿¿¿Alguien podría darme una idea????
Gracias
Read more : Insertar en base de datos | Vistas : 2427 | Respuestas : 1 | Foro : Bases de datos
Interpretar fichero CSV
Hola a todos,
Tengo que implementar un script Perl que haga lo siguiente:
Tengo que implementar un script Perl que haga lo siguiente:
- Leer fichero del tipo CSV (campos separados por el carácter ';' )
- Dicho fichero tiene una primera línea y última línea que debo ignorar, o mejor dicho, copiar literalmente en el fichero de salida.
- A partir de la segunda línea del fichero, encontramos los campos separados por ';'.
- El primer campo de la línea lo llamare CARF y su valor puede aparecer ...
Read more : Interpretar fichero CSV | Vistas : 1602 | Respuestas : 5 | Foro : Básico
Histograma
Necesito ayuda. Necesito un histograma de porcentajes de uso de discos y de la memoria del servidor.
Creo que debo utilizar los comandos df y free del sistema.
Debe ser en html. Aquí tengo algo. Ayuda plz
#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
print "Content-type: text/html\n\n";
print "<html><head><title>Ejercicio 2</title></head>\n";
print "<body>\n";
print "<center><h1> <font color=\"blue\">Ejercicio 2</font></h1></center>\n";
print "<br><br>\n";
print "Mostrando Histograma<br>\n";
print "<br>";
print "<br>\n";
print "<br>\n";
print "</body>";
print ...
Creo que debo utilizar los comandos df y free del sistema.
Debe ser en html. Aquí tengo algo. Ayuda plz
#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
print "Content-type: text/html\n\n";
print "<html><head><title>Ejercicio 2</title></head>\n";
print "<body>\n";
print "<center><h1> <font color=\"blue\">Ejercicio 2</font></h1></center>\n";
print "<br><br>\n";
print "Mostrando Histograma<br>\n";
print "<br>";
print "<br>\n";
print "<br>\n";
print "</body>";
print ...
Read more : Histograma | Vistas : 1334 | Respuestas : 3 | Foro : Básico
Búsqueda rápida en bases de datos
Buenas,
Soy nuevo con Perl, pero me han comentado que ofrece los mejores resultados en cuanto a tiempo de respuesta en búsquedas en bases de datos de cierto tamaño. Y por tamaño me refiero a entre 20.000 y 500.000 registros.
Tengo claro que no voy a tener los resultados en 1 milisegundo, pero me gustaría saber si es posible tenerlo relativamente rápido. Es para un programa web y no quisiera tener a mis clientes esperando ...
Soy nuevo con Perl, pero me han comentado que ofrece los mejores resultados en cuanto a tiempo de respuesta en búsquedas en bases de datos de cierto tamaño. Y por tamaño me refiero a entre 20.000 y 500.000 registros.
Tengo claro que no voy a tener los resultados en 1 milisegundo, pero me gustaría saber si es posible tenerlo relativamente rápido. Es para un programa web y no quisiera tener a mis clientes esperando ...
Read more : Búsqueda rápida en bases de datos | Vistas : 4670 | Respuestas : 6 | Foro : Bases de datos
Javascript: Desplegar imagenes aleatoriamente
hola nuevamente amigos...quiero pedirles una idea de cómo hacer lo siguiente:
Tengo el siguiente código:
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="163" bgcolor="#FF8D3A"><table width="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="123" align="center"><img src="fotos/foto1.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="123" align="center"><img src="fotos/foto2.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="123" align="center"><img src="fotos/foto3.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="40"><div align="center"><img src="images/ver.jpg" width="121" height="19" /></div></td>
</tr>
</table>
Luego de ver el código me gustaría hacer lo siguiente: en ...
Tengo el siguiente código:
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="163" bgcolor="#FF8D3A"><table width="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="123" align="center"><img src="fotos/foto1.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="123" align="center"><img src="fotos/foto2.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="123" align="center"><img src="fotos/foto3.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="40"><div align="center"><img src="images/ver.jpg" width="121" height="19" /></div></td>
</tr>
</table>
Luego de ver el código me gustaría hacer lo siguiente: en ...
Read more : Javascript: Desplegar imagenes aleatoriamente | Vistas : 4967 | Respuestas : 1 | Foro : HTML
error use of uninitialized value in concatenation
Hola a todos, les comento que soy nuevo en la programación en Perl y estoy corrigiendo un programa que tengo que convierte unos archivos binarios en ASCII. El problema que tengo es que un proceso me genera estos archivos en binario; algunos archivos los procesa y otros no.
En aquellos caso de los que no me procesa me muestra el siguiente error.
c:\perl\tap3.bat c:\tap_process\CDBRASPGTMSC00324
use of uninitialized value in concatenation (.) or string at c:\perl\lib\tap3\tap3edit.pm ...
En aquellos caso de los que no me procesa me muestra el siguiente error.
c:\perl\tap3.bat c:\tap_process\CDBRASPGTMSC00324
use of uninitialized value in concatenation (.) or string at c:\perl\lib\tap3\tap3edit.pm ...
Read more : error use of uninitialized value in concatenation | Vistas : 1568 | Respuestas : 2 | Foro : Intermedio
Last 10 active topics
Estadísticas
Mensajes totales 36895 • Temas totales 7436 • Usuarios totales 1983