za baba

Naprawih ti skript deto arhiwira nqkolko fajla i gi puska za dowload... i edin deto gi arhiwira, kompresira i puska za dowload...

shte ti gi dam, samo BTK da mi pusnat telefona... tqhnata ma....

kakto i da e twa go pisha samo za da znaesh che ima nachin, ta sam da probwash da go naprawish... ima si biblioteki i za tar-wane i za gs-wane

btw, myrzzeshe me da se logwam, ne obryshtajte wnimanie na anon-cheto

Eto gi skriptowete... pyrwiq samo arhiwira, a drugiq i kompresira... wtoriq zadylviteno trqbwa da se kazwa neshto_si.tar.gz (neshto_si movesh da go promenish), za da ima fajla dwe razshireniq...

skriptowete dobawqt dwa fajla w arhiwa, koito trqbwa da syshtestwuwat i syzdawat edin tekstow fajl, bez toj da syshtestwuwa, kato pyhat wytre zadadeniq tekst

baba.pl:
#!/usr/bin/perl

use Archive::Tar;

$tar = Archive::Tar->new();
$tar->add_files("Ping.pm");
$tar->add_files("test1.pl");
$tar->add_data("now_fajl.txt","Come crawling faster\nObey your master\nYour Life burns faster\nObey your master\nMaster");
$out=$tar->write;

$len=length($out);

print "Content-Type: application/x-tar\n";
print "Content-Length: $len\n\n";

binmode(STDOUT);
print $out;

baba.tar.pl:
#!/usr/bin/perl

use Archive::Tar;
use Compress::Zlib;

$tar = Archive::Tar->new();
$tar->add_files("Ping.pm");
$tar->add_files("test1.pl");
$tar->add_data("now_fajl.txt","Come crawling faster\nObey your master\nYour Life burns faster\nObey your master\nMaster");
$out=$tar->write;


$out=Compress::Zlib::memGzip($out);

$len=length($out);

print "Content-Type: application/x-gzip\n";
print "Content-Length: $len\n\n";

binmode(STDOUT);
print $out;



Come crawling faster
Obey your Master
Your life burns faster
Obey your Master
Master

Здрасти, първо да ти благодаря!

И аз така си го представях- то го пишело в спецификациите към Active Perl, ама нямах ясната идея точно как ще изглежда! Пробвах го- бачка! Единствения му недостатък, е че не може да архивира файлове, които са на друг хост! А проблема пак идва от голевия обем- става дума за 2100 файла с обем около 100-160 Мб, за такива работи не се намира лесно безплатен хост с разрешение за CGI! Ако знаеш някой да дава 100-200Мб и повече с разрешение за CGI и PHP- дай адрес!

Благодяра още веднъж!
Баба...

тук не важи максимата на мафията: "колкото по-малко питаш, толкова по дълго ще живееш"

Mi ako imash LWP::Simple shte si dyrpash fajla i shte go dobawqsh wse edno syzdawash fajl w arhiwa

ako nqmash ti trqbwa pone IO::Socket...

ama move da ne stane byrzo, ama ideqta maj beshe user-a da chaka?

Come crawling faster
Obey your Master
Your life burns faster
Obey your Master
Master