23/11/2004, 15:42
| ||||
| ||||
| Tema: Links Pregunta: De donde puedo descargar PERL Script's CGI gratuitos ? Respuesta: Tienes un sin fin de páginas...Acá les mando las que me parecieron más importantes... http://cgi.resourceindex.com/Programs_and_Scripts/Perl/ http://www.freescripts.com/Perl/scripts.html http://www.cgiarchives.com/ http://www.scriptarchive.com/ ...
__________________ Esteban Quintana |
|
05/01/2005, 16:34
| ||||
| ||||
| Tema: Links Pregunta: Hay hostings gratuitos que soporten PERL ? Respuesta: Si, acá yo conozco uno... http://www.netfirms.com/web-hosting-free Lo probé hace bastante y andaba muy bien...
__________________ Esteban Quintana |
|
13/01/2005, 09:16
| ||||
| ||||
| Tema: Variables Escalares (String) Pregunta: Como pasar de minúsculas a mayúsculas ? Respuesta: Es muy fácil de hacer mediante expresines regulares
Código:
#!c:/perl/bin/perl.exe print "Content-type: text/html\n\n"; $user = 'Texto EN DISTintas forMaS'; $user =~ tr/[a-z]/[A-Z]/; print "<html><h1>$user</h1></html>\n"; exit;
__________________ Esteban Quintana |
|
19/01/2005, 16:56
| ||||
| ||||
| Tema: Scripts y Links Pregunta: Hay un script de Portal Web ? Respuesta: Si, conozco uno muy bueno que es el Webapp... www.web-app.org No necesita Bases de datos ni nada, es muy fácil de usar e instalar
__________________ Esteban Quintana |
|
02/03/2005, 08:15
| ||||
| ||||
| Tema: Scripts y Links Pregunta: Como subir imágenes a mi servidor ? Respuesta: Les mando este script para subir imágenes, funciona tanto en linux como en windows...Espero que les sirva...
Código:
Para más info lean este tutorial del cual me basé para hacerlo...#!/usr/bin/perl
########### #!c:/perl/bin/perl.exe en windows...
use strict;
use CGI;
my $cgi = new CGI;
my %input_data = $cgi->Vars;
print "Content-type: text/html\n\n";
if ($input_data{'action'} eq 'process'){
my $file = $cgi->param('file');
print "action: $input_data{'action'}<br>
file: $file";
#sacamos el nombte
#my $file = $cgi->param('file');
my $fileName = "$file";
$fileName =~ s/ /_/gi;
$fileName =~ s!^.*(\\|\/)!!;
#guardamos la imagen solamente si es .jpg
if ($fileName =~ /.jpg/){
open (IMAGEN, ">fotos/$fileName") || die "No se pudo guardar la imagen";
binmode(IMAGEN);
while (my $bytesread = read($file, my $buffer, 1024)) {
print IMAGEN $buffer;
}
close (IMAGEN);
}
else {
print "Formato no permitido";
}
print '<br><a href="imagen.pl">Volver</a>';
}else{
print q~<form name="form1" enctype="multipart/form-data" method="post" action="imagen.pl">
<input type="hidden" name="action" value="process">
<p>Formulario para subir imágenes al servidor...: <br></p>
<p>Archivo: <br>
<input type="file" name="file">
</p>
<input type="submit" name="Submit" value="Submit">
</form> ~;
}
exit(1);
http://perlenespanol.baboonsoftware....ut/000082.html
__________________ Esteban Quintana Última edición por monoswim; 02/03/2005 a las 08:25 |
|
10/04/2005, 13:18
| ||||
| ||||
| Tema: Scripts y Links Pregunta: Un script tipo FormMail pero para windows Respuesta: Gracias a la usuario Pameladelreal encontré este script clonado del FormMail, para que trabaje en windows. http://www.geocel.com/windmail/library/formmail.htm Espero que les sirva y gracias Pamela !!!
__________________ Esteban Quintana |
