ИЗДАЕТСЯ ПО БЛАГОСЛОВЕНИЮ ВЫСОКОПРЕОСВЯЩЕННЕЙШЕГО МИТРОПОЛИТА ТОБОЛЬСКОГО И ТЮМЕНСКОГО ДИМИТРИЯ
#!/usr/bin/perl # # PicsRandomizer Version 0.3 # This script produces three files with random pictures and the URLs you # specify in pics_rand_list.txt to include in shtml. # # Copyright (c) 2002 Alexander Uvizhev . All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # ######## CONFIGURATION ######################################################## #Path to a directory with your pictures (relatively to index.shtml). $dir = "/pic"; #Path to pics_rand_list.txt (All paths below are relative to this script). $list = "pics_rand_list.txt"; #Path to a directory with your pictures (relatively to index.shtml). #$dir_root = "../htdocs/"; $dir_root = "../www/"; #These files to include in your shtml (no need to create them). $img[0] = $dir_root."pic/img1"; $img[1] = $dir_root."pic/img2"; $img[2] = $dir_root."pic/img3"; $img[3] = $dir_root."pic/img4"; $img[4] = $dir_root."pic/img5"; $img[5] = $dir_root."pic/img6"; ################################################################################ open (FILE, "< $list") or die ("Cannot open file $list"); until (eof(FILE)) { $line = readline *FILE; if ($line =~ m/^\s*\n|^\s*#/) {next;} $line =~ m/(\S+)\s(\S+)/; $name[$i] = $1; $url[$i] = $2; $i++; } close FILE; #while ($x[0] == $x[1] || $x[0] == $x[2] || $x[1] == $x[2]) { while ($x[0] == $x[1] || $x[0] == $x[2] || $x[0] == $x[3] || $x[0] == $x[4] || $x[1] == $x[2] || $x[1] == $x[3] || $x[1] == $x[4] || $x[2] == $x[3] || $x[2] == $x[4] || $x[3] == $x[4]) { $x[0] = sprintf ("%u", rand $#name+1); $x[1] = sprintf ("%u", rand $#name+1); $x[2] = sprintf ("%u", rand $#name+1); $x[3] = sprintf ("%u", rand $#name+1); $x[4] = sprintf ("%u", rand $#name+1); } #while ($x[3] == $x[0] || $x[3] == $x[1] || $x[3] == $x[2]) { while ($x[5] == $x[0] || $x[5] == $x[1] || $x[5] == $x[2] || $x[5] == $x[3] || $x[5] == $x[4]) { $x[5] = sprintf ("%u", rand $#name+1); } for ($i=0;$i<6;$i++) { open (CURRENT, "> $img[$i]") or die ("Cannot open file $img[$i]"); # print CURRENT ""; print CURRENT ""; close CURRENT } print "Content-type: text/html\n\n";

№12 2009 г.         

Иван Андреевич Крылов. "Клеветник и змея"

Иван Андреевич Крылов


Напрасно про бесов болтают,
Что справедливости совсем они не знают,
А правду тож они нередко наблюдают:
Я и пример тому здесь приведу.
По случаю какому-то, в аду
Змея с Клеветником в торжественном ходу
Друг другу первенства оставить не хотели
И зашумели,
Кому из них идти приличней наперед?
А в аде первенство, известно, тот берет,
Кто ближнему наделал больше бед,
Так в споре сем и жарком, и немалом
Перед Змеею Клеветник
Свой выставлял язык,
А перед ним Змея своим хвалилась жалом;
Шипела, что нельзя обиды ей снести,
И силилась его переползти.
Вот Клеветник было за ней уж очутился;
Но Вельзевул не потерпел того:
Он сам, спасибо, за него
Вступился
И осадил назад Змею,
Сказав: «Хоть я твои заслуги признаю,
Но первенство ему по правде отдаю;
Ты зла – твое смертельно жало;
Опасна ты, когда близка;
Кусаешь без вины (и то не мало!),
Но можешь ли язвить ты так издалека,
Как злой язык Клеветника,
От коего нельзя спастись ни за горами,
Ни за морями?
Так, стало, он тебя вредней:
Ползи же ты за ним и будь вперед смирней»,
С тех пор клеветники в аду почетней змей.

[ ФОРУМ ] [ ПОИСК ] [ ГОСТЕВАЯ КНИГА ] [ НОВОНАЧАЛЬНОМУ ] [ БОГОСЛОВСКОЕ ОБРАЗОВАНИЕ ]

Статьи последнего номера На главную


Официальный сайт Тобольской митрополии
Сайт Ишимской и Аромашевской епархии
Перейти на сайт журнала "Православный просветитель"
Православный Сибирячок

Сибирская Православная газета 2020 г.