Olá e boas-vindas de Estados Unidos para o UNIX e Linux Forum! Obrigado por visitar e fazer parte da nossa comunidade global.
|
Olá e boas-vindas de Estados Unidos para o UNIX e Linux Forum! Obrigado por visitar e fazer parte da nossa comunidade global.
|
|
google unix.com
|
|||||||
| Fóruns | Registar | Fórum Regimento | Ligações | Álbuns | FAQ | Lista deputados | Calendário | Pesquisa | Today's Posts | Mark Forums Read |
 |
| Programação Shell Script e Post perguntas sobre ksh, CSH, SH, BASH, Perl, PHP, SED, Awk e outros scripts shell e shell scripts línguas aqui. |
Mais UNIX e Linux Fórum Tópicos Você pode achar Helpfull
|
||||
| Fio | Thread Starter | Fórum | Respostas | Última postagem |
| script para baixar arquivos do site FTP | tiff-mate | Programação Shell Script e | 5 | 09-19-2008 02:46 |
| Baixar arquivos usando perl | mirusnet | UNIX para Dummies Perguntas & Respostas | 2 | 12-19-2007 10:04 |
| download de arquivos de ligações directas ferramenta? | umen | UNIX para Dummies Perguntas & Respostas | 2 | 07-04-2006 10:00 |
| Shell para download de arquivos | ram2s2001 | Programação Shell Script e | 3 | 02-07-2006 08:16 |
| Como fazer o download Red Hat plz Hlp? | atiato | UNIX para Dummies Perguntas & Respostas | 3 | 02-05-2002 01:21 |
Powered by 
|
|
|
Linkback | Thread Tools | Pesquisar este Thread | Rate Thread | Display Modes |
11-16-2008
|
||||
|
||||
|
download de arquivos
Oi,
Eu tenho algumas dificuldades para executar um script para ser capaz de fazer download de alguns arquivos via HTTP. O Perl script está localizado em um servidor Linux em uma ( "/ var / www / cgi-bin / down.pl") onde eu possa executá-la através do Internet Explorer. Sou capaz de exibir o diretório de conteúdo ( "/ home / toto"), mas eu não sou capaz de abrir ou salvar o arquivo deste diretório para minha máquina local (Windows XP por exemplo). O meu objectivo é ser capaz de salvar um arquivo quando eu clicar sobre eles e escolher a meta na minha máquina local. Alguém pode me ajudar a corrigir este script? thanks in advance. 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 edição por otheus; em 03/08/2009 11:42.. Motivo: código adicionado tags |
| Marcadores |
| Thread Tools | Pesquisar este Thread |
| Display Modes | Esta taxa Thread |
|
|
Threaded Mode
