ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexander Ilyankin 2:5059/9.81 02 Jan 2003 03:21:00
To : All
Subject : Размер файла
--------------------------------------------------------------------------------
Есть скрипт, который показывает название файлов лежащих в папке. Подскажите как
сделать чтобы он вдобавок показывал и размер этого файла. Hапример: test.exe
(345kb)
#!d:\usr\local\perl\bin\perl -w
$url='';
$fname="";
print "Content-Type: text/html\n\n";
print "<html><head><title>My File collection</title>\n";
print "<body bgcolor=0099cc; >\n";
while ( defined($fname = glob("*")) )
{
print "[<a href=\"$url$fname\"> $fname <\/a>]..<br>\n";
}
print "</body></html>\n";
Удачи!
--- GoldED+/386 1.1.4.5
* Origin: . : : * С наступающим Hовым 2003 Годом * : : . (2:5059/9.81)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Размер файла |
Alexander Ilyankin |
02 Jan 2003 03:21:00 |
 Re: Размер файла |
Ivan Frolcov |
02 Jan 2003 04:53:55 |
|
|
