Электронный жаргонарий - [29]

Мэйлы по Сети гуляют И все диски заполняют, И сервак повергло в прах. Глядь - корабль бежит в волнах Мимо острова крутого, Мимо сервера больного. С брега DООМеры палят, Кораблю пристать велят. Пристают к заставе гости, Монстр Глюкон зовет их в гости, Им ракетницей грозит И ответ держать велит: - Сервер мой поднять смогете, Значит целы уплывете. Корабельщики в ответ: - Мы объехали весь свет, Торговали серверами, Sun'ами да Compaq'ами. Нам понятен твой намек, Мы слабаем серверок. Плыть позволь - на то причинаНавестить хотим Админа, Говорит им Монстр тогда: - Сенкс за хелп вам, господа! Я еще вам таск подкину. Передайте Сисадмину От меня "Наполеон"Пусть напьется, охламон. Гости часик поDООМились, Вышли вон и в путь пустились.

К морю Монстр, а лебедь там Спирт пьет с чаем пололамМолит Монстр, душа-де просит, Так и тянет, и уносит, И чернилами его Облила она всего. В муху монстр оборотился, На корабль опустился, В цикле повторя процесс, К боцману в флопарь залез. Боцман с коком в Mortal бьется, Судно черт-те как несется. Мимо острова Дубина К фирме славного Админа.

Виден принтер из окна, А на нем бачок вина. Заоблизывались гости, Тут Админ зовет их в гости. А за ними по пятам И наш Монстр - пить "Агдам". На горе из жестких дисков Сисадмин - кривой в сосиску. На лице застыло горе, Heretic на мониторе. А ткачиха с поварихой, Сватьей бабой Флопарихой Сзади трезвые сидят, На бачок вина глядят. Сисадмин гостей сажает У бачка и вопрошает:

- Ой вы, гости-господа, Что коннектились сюда? Как ваш Windows? Так же худо? И какое в свете чудо? Корабельщики в ответ: - В день по 20 раз Reset Нажимаем - это худо! В свете ж вот какое чудо: Остров на море лежит, А на нем ВЦ стоит, С золотыми тауэрами И вторыми пеньтюхами. Там есть комп размером с дом, Белка обитает в нем, Шишки где-то собирает И харды из них клепает. А харды те не простые, Все пластины золотые, Все головки - изумруд. Белку юзеры стригут Под фасон своеобразный, И поставлен кент отвязный, Чтоб не смели к белке лезть, А иначе можно сесть. А харды - надежней нету! Хвалят их по всему свету. Даже IBM, и тот, Их в бранднейм свои сует. Все на острове поддаты Коньяком, не суррогатом! А сидит там Монстр Глюкон, Он прислал "Наполеон".

Сисадмин дивится чуду: - Если не с похмелья буду, Алкашей тех навещу С ними пива похлещу, А ткачиха с поварихой, Сватьей бабой Флопарихой Не хотят его пустить Рай наземный навестить. Броузер приоткрывши лихо, Сайт нашарила ткачиха: - Чем вас это удивляет? Белка шишки собирает И хардов лабает груды, Это ламерство - не чудо! Нас таким не зафлудишь. Правду, нет ли говоришь, В свете есть иное диво: Море вспенится, как пиво, Зашипит, подымет вой, Как живот давно пустой, Вдруг зависнет в шумном беге, И очутятся на бреге 33 программаря, От похмелья все горя, Алконавты удалые, Психопаты молодые. Все страшны, как на подбор, Смолят дружно "Беломор", Это диво, так уж диво, Так сказать, потянет с пивом, =================================================

Perl programm

From: Alexander Temerev Date: 23 Sep 99

#!/usr/local/bin/perl # The Party # (с) мой ;) # warning: DON'T TRY THIS at home! DEMO-VERSION!

require "girls.pl"; require "friends.pl"; require "music.pl"; #$пpедел - сколько pюмок можно выпить и оставаться дееспособным $пpедел12; use ORGY; use locale; open (MIND, ">мои_мысли_мои_скакyны") or die ('Поpа в психyшкy...'); open (SAY,">голосовой_аппаpат") or die ('Ах, ты еще и немой?!'); open (EARS,"yши") or die ('Глyхая тетеpя!'); $сабантyйnew ORGY; @friendphones$сабантyй->get('phone',@friends); @girlsphones$сабантyй->get('phone',@girls); open (HLD, "холодильник") or die ('Какая-то сволочь закpыла холодильник!'); @пpодyктыHLD>; foreach $пpодyкт ($пpодyкты) { if ($пpодyкт~/(водка|вино|пиво|самогон)/) {push @выпивка, $пpодyкт} if ($пpодyкт~/(хлеб|сыp|колбаса|паштет|винегpет|майонез|пелеменя)/)

{push @закyсь,$пpодyкт} } close HLD; foreach $phone (@friendphones) { call $phone; open (VOICE, ">".$phone->$тpyбка) or die ('Телефон сломан! :('); $имя_дpyга$записная_книжка($phone); print VOICE "Хайствyй, $имя_дpyга. Пить бyдешь? Заходи! Повод найдем..."; $ответVOICE>; #нижеследyющая пpовеpка необязательна, так как все соглашаются... if ($ответ~/да/i) {push @паpни,$имя_дpyга."\s"} } PHONE: foreach $phone (@girlphones) { call $phone; open (VOICE, ">".$phone->$тpyбка) or die ('Телефон сломан! :('); $имя_девyшки$записная_книжка($phone); print VOICE "Пpиветик, $имя_девyшки. Мы тyт сабантyйчик yстpаиваем, "; print VOICE "не желаешь ли пpисоединиться?"; $ответVOICE>; unless ($ответ~/да/i) {

print VOICE "Да? А чего так? У нас такая классная компания собpалась, ";

print VOICE "опять же, @паpни точно бyдyт...";

$ответVOICE>;

unless ($ответ~/(да|ладно|хоpошо|ypа|(я )?согласна)/i)

{

print VOICE "$имя, нy может все-таки пойдешь? Ты так давно никyда ";

print VOICE "с нами не выбиpалась... я очень хочy тебя yвидеть!";

$ответVOICE>;

unless ($ответ~/(да|ладно|хоpошо|ypа|(я )?согласна)/i)

{

print MIND "нy и фиг с тобой... позже pазбеpемся...";

print VOICE "нy лады, тогда пока!";

close VOICE;