|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexander Kravets 2:5020/400 22 Sep 2007 15:40:55
To : daniil kosenko
Subject : Re: Re^2: Упаковать текстовый файл
--------------------------------------------------------------------------------
Hello!
daniil kosenko пишет:
> Все можно сделать системными командами. Зачем мучить перл, если есть линух. :)
> Поэтому проверь, разрешена ли system().
// Hе разрешен. :-(
********
Пока получилось вот что.
Hа локальной машине Windows+Perl 5.8 _работает_ такая штука.
#!/usr/bin/perl
# Create a Zip file
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();
# Add a file from disk
my $file_member = $zip->addFile( 'd:\ZIP_Perl\name.txt','new_name.txt' );
# Save the Zip file
unless ( $zip->writeToFileNamed('d:\ZIP_Perl\abc.zip')==AZ_OK ) {
die 'write error'; }
***
Когда это же загружаю на сервер уже не работает!
Разумеется, пути меняю.
my $file_member = $zip->addFile(
'/var/www/путь_к_файлу/'name.txt','new_name.txt' );
и
unless ( $zip->writeToFileNamed('/var/www/путь_к_файлу/abc.zip')==
AZ_OK ) { die 'write error'; }
***
ZIP-файл "abc.zip" на сайте создаётся там где нужно.
И даже имеет размер сжатого файла!
Скачивают на комп. Hо при открытии пишет
"Файл или папка zip:/home/alex/CGI/abc.zip не существует."
Как же "не существует", если имеет имя и объем сжатого файла?!
Перегружаюсь и пытаюсь открыть в Windows, но файл и тут не открывается.
Что тут не так?
*********
> А PHP там разрешен? (сорри, что оффтопик :) )
// Разрешен. Всё чаще начинаю посматривать в эту сторону... :-(.
Всего доброго!
Alexander.
[RZ6HAP] [LaTeX] [mlp-sb-n{X}mail.ru]
--- ifmail v.2.15dev5.4
* Origin: MLP (2:5020/400)
Вернуться к списку тем, сортированных по:
|
