Re: lug-bg: mirror - only unstable

[Peter Pentchev <roam@xxxxxxxxxxx>]

On Sun, Jun 13, 2004 at 10:51:24PM +0300, dgt_it dgt_it wrote:
> Здравейте! Неможах да намеря информация , затова питам вас.
> 
> Чудя се дали да не си направя един mirror на debian unstable (само
> unstable !). Въпроса ми опира само до дисково пространство , разбрах
> или поне ми казаха , че всичко - web сайт-а , stable/testing/unstable
> и CD images е около 100ГБ ?!. Интересуваме колко е само unstable като
> GB ?!.
> 
> Като мирора ще е на debian.ludost.net най-вероятно , но едно е сигурно
> няма да извън границите на Б-я , защото просто 4kb/s - ами има ли
> нужда да коментирам ;) 

Захапваш значи /debian/ls-lR.gz на debian.ludost.net, после пускаш едно
мъничко Perl-скриптче, което гледа за редове, започващи с
./debian/sid/...: и за следващи ги редове, започващи с total, и брои :)
Резултатите от скриптчето (приложено малко по-надолу):

[roam@south:p2 /usr/ports/distfiles]$ perl lsparse.pl ls-lR
The gross total seems to be 1559928 kilobytes (1523.367 MB or 1.488 GB)
[roam@south:p2 /usr/ports/distfiles]$

And there you have it :)

Поздрави,
Петър

-- 
Peter Pentchev	roam@xxxxxxxxxxx    roam@xxxxxxxx    roam@xxxxxxxxxxx
PGP key:	http://people.FreeBSD.org/~roam/roam.key.asc
Key fingerprint	FDBA FD79 C26F 3C51 C95E  DF9E ED18 B68D 1619 4553
If this sentence didn't exist, somebody would have invented it.

#!/usr/bin/perl -w

$in = 0;
$total = 0;

while (defined($line = <>)) {
	if ($line =~ m,^\./dists/sid/.*:,) {
		$in = 1;
	} elsif ($line =~ m,^\./.*:,) {
		$in = 0;
	} elsif ($line =~ /^total (\d+)$/ && $in) {
		$total += $1;
	}
}
printf("The gross total seems to be %d kilobytes (%.3f MB or %.3f GB)\n",
    $total, $total / 1024, $total / (1024 * 1024));

Attachment: pgpRm2QoZZLA2.pgp
Description: PGP signature