Hola y bienvenida de los Estados Unidos a la UNIX y Linux Foros! Gracias por su visita y formar parte de nuestra comunidad global.
|
Hola y bienvenida de los Estados Unidos a la UNIX y Linux Foros! Gracias por su visita y formar parte de nuestra comunidad global.
|
|
google unix.com
|
|||||||
| Foros | Registro | Reglas de los Foros | Enlaces | Álbumes | Preguntas más frecuentes | Lista de miembros | Calendario | Búsqueda | Puestos de hoy | Marcar Foros Como Leídos |
| Programación de scripts de shell y Plantear preguntas sobre KSH, CSH, SH, BASH, PERL, PHP, SED, AWK y otros scripts de shell y lenguajes de script de shell aquí. |
Más UNIX y Linux Foro Temas usted puede encontrar útiles
|
||||
| Hilo | Hilo para principiantes | Foro | Respuestas | Último mensaje |
| script para descargar archivos desde el sitio FTP | tiff-mate | Programación de scripts de shell y | 5 | 09-19-2008 03:46 PM |
| Descarga de archivos usando Perl | mirusnet | UNIX for Dummies Preguntas y Respuestas | 2 | 12-19-2007 10:04 PM |
| descargar archivos de vínculos directos con la herramienta? | umen | UNIX for Dummies Preguntas y Respuestas | 2 | 07-04-2006 11:00 AM |
| shellscript para descargar archivos | ram2s2001 | Programación de scripts de shell y | 3 | 02-07-2006 08:16 AM |
| Cómo descargar Red Hat PLZ hlp? | atiato | UNIX for Dummies Preguntas y Respuestas | 3 | 02-05-2002 01:21 AM |
Powered by 
|
|
|
Linkback vínculo | Herramientas de hilo | Buscar en este Hilo | Tasa de Hilo | Modos de visualización |
11-16-2008
|
||||
|
||||
|
descargar archivos
Hola,
I experimentar algunas dificultades para realizar una secuencia de comandos para poder descargar algunos ficheros vía HTTP. El Perl script se encuentra en un servidor Linux en un servidor ( "/ var / www / cgi-bin / down.pl") donde se puede ejecutar a través de Internet Explorer. Soy capaz de mostrar el contenido de directorios ( "/ home / toto") pero no soy capaz de abrir o guardar los archivos de este directorio a mi máquina local (Windows XP por ejemplo). Mi meta es ser capaz de guardar un archivo al hacer clic sobre ellos y elegir el destino en mi máquina local. ¿Puede alguien ayudarme a solucionar este script? gracias de antemano. Código:
#!/usr/bin/perl
use CGI;
$|=1;
my $query=new CGI;
print qq~
<table align="center" width="90%">
<tr><td><font color="black" face="Arial" size="4"><b>Files in current directory</b></td></tr>
<tr>
<td valign="top">
<font color="black" face="Arial" size="2">
~;
$dir="/home/toto";
opendir(DIR, "$dir");
@current = readdir(DIR);
closedir(DIR);
foreach(@current){
unless($_ eq '.' || $_ eq '..' || -d qq~$dir/$_~){
push(@currentfiles, $_);
}
}
@currentfiles = sort { uc($a) cmp uc($b) } @currentfiles;
for($aa = 0; $aa <= $#currentfiles; $aa++){
print qq~
<a href="$dir/$currentfiles[$aa]" target="_blank">$currentfiles[$aa]</a><a href="$dir/$currentfiles[$aa]"> </a></font><br>
~;
}
print qq~
</font></tr>
</table>
Última edición por otheus; al 03-08-2009 11:42 AM.. Motivo: etiquetas de código añadido |
| Marcadores |
| Herramientas de hilo | Buscar en este Hilo |
| Modos de visualización | Vota a este hilo |
|
|
Modo de rosca
