Здравствуйте и добро от Соединенных Штатов UNIX и Linux Форумы! Благодарим Вас за посещение и вступления нашей мирового сообщества.
|
Здравствуйте и добро от Соединенных Штатов UNIX и Linux Форумы! Благодарим Вас за посещение и вступления нашей мирового сообщества.
|
|
Google unix.com
|
|||||||
| Форумы | Регистрация | Правила форума | Ссылки | Альбомы | ЧАВО | Список участников | Календарь | Поиск | Сегодняшние сообщения | Отметить форумы читать |
 |
| Shell программирование и сценарии Почтовые вопросы о KSH, CSH, SH, BASH, Perl, PHP, SED, AWK и скрипты оболочки и оболочки скриптовых языков здесь. |
Подробнее UNIX и Linux Темы форума можно найти полезные
|
||||
| Нить | Резьба для начинающих | Форум | Ответы | Последнее сообщение |
| Скрипт для скачивания файлов с FTP-сайта | TIFF-матовый | Shell программирование и сценарии | 5 | 09-19-2008 02:46 PM |
| Загрузка файлов с помощью Perl | mirusnet | UNIX для чайников Вопросы И Ответы | 2 | 12-19-2007 10:04 PM |
| скачать файлы с прямыми ссылками инструментом? | umen | UNIX для чайников Вопросы И Ответы | 2 | 07-04-2006 10:00 |
| shellscript для скачивания файлов | ram2s2001 | Shell программирование и сценарии | 3 | 02-07-2006 08:16 AM |
| Как загрузить Red Hat PLZ HLP? | atiato | UNIX для чайников Вопросы И Ответы | 3 | 02-05-2002 01:21 AM |
Powered By 
|
|
|
LinkBack | Резьба Инструменты | Искать в этом Thread | Оценить Thread | Режимы дисплея |
11-16-2008
|
||||
|
||||
|
скачать файл
Привет,
Я испытываю определенные трудности для выполнения сценария чтобы иметь возможность загрузки файлов через HTTP. Определенный артикль Perl Сценарий расположен на Linux в качестве сервера ( "/ VAR / WWW / CGI-BIN / down.pl"), где я могу запустить его через Internet Explorer. Я в состоянии отображения содержимого каталога ( "/ Главная / Toto"), но я не в состоянии открывать или сохранять файлы из этого каталога в моей локальной машине (Windows XP на примере). Моя цель заключается в возможности сохранения файла, когда я нажимаю на них и выбирать цель в моей локальной машине. Может кто поможет мне исправить этот сценарий? Заранее благодарим. Код:
#!/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>
Последний раз редактировалось otheus; на 03-08-2009 11:42 AM.. Причина: код добавил теги |
| Закладки |
| Резьба Инструменты | Искать в этом Thread |
| Режимы дисплея | Оценить эту ветку |
|
|
Режим Нитевидный
