С уважением, ComedyOmsk
Создана: 29 Августа 2008 Птн 11:47:42.
Раздел: "Аццкая Демократия"
Сообщений в теме: 45, просмотров: 10385
-
+2 , 1 -
-
electraice писал :Что такое "автозамена"?
Автозамена повсюду, она окружает тебя, даже сейчас она с тобой рядом
Ты видишь автозамену когда идешь купить сигарет, выпить пива или посцать
Целый автозаменный мирок надвинутый на глаза, чтобы спрятать правду
А правда в том, что марусенок всего лишь рап, который вот-вот сменит своего хозяина
С уважением, Штурманн -
-
Это только потому, что он после своих высказываний " С уважением,ComedyOmsk"ставит, или то, что он кажется кому-то "чересчур" воспитаным?! Т.е поэтому он "Пьер Нарцисс"? -
Так вот вы оказывается какой, товарищ Ленин:
"Код ниже — это автозамены, которые выполняет в статьях replbot.pl (один из скриптов на вооружении у TalkBot-а).
Версия текущей таблицы замен — 0.0.24. Предложения по улучшению — в обсуждение.
См. также Участник:CodeMonkBot/Автозамены.
Автозамены обрабатывают только куски кода, находящиеся вне тегов pre, nowiki и math."
Код: sub do_repl
{
my $p = shift;
#
# Преобразователи внешних ссылок, для которых есть интервики.
# Исправление интервики, перепутанных со ссылками.
#
if($main::wiki_project eq "Википедия")
{
$$p =~ s/\[http:\/\/ru\.wikipedia\.org\/wiki\/([^ ]*?) (.*?)\]/[[$1|$2]]/g;
$$p =~ s/\[http:\/\/absurdopedia\.wikia\.com\/wiki\/([^ ]*?) (.*?)\]/[[uncyclopedia:ru:$1|$2]]/g;
$$p =~ s/\[http:\/\/([a-z][a-z])\.wikipedia\.org\/wiki\/([^ ]*?) (.*?)\]/[[:$1:$2|$3]]/g;
$$p =~ s/\[\[ru:(.*?)\]\]/[[$1]]/g;
$$p =~ s/\[\[([a-z][a-z]):(.*?)\|(.*?)\]\]/[[:$1:$2|$3]]/g;
#
# Преобразование пространств имён во внутренних ссылках к
# современному формату.
#
$$p =~ s/\[\[[wW]ikipedia:(.*?)\]\]/[[Википедия:$1]]/g;
$$p =~ s/\[\[(?:[wW]ikipedia[ _]talk|(?:В|в)икипедия[ _]обсуждение):(.*?)\]\]/[[Обсуждение Википедии:$1]]/g;
}
elsif($main::wiki_project eq "Абсурдопедия")
{
} # endif($main::wiki_project eq "Википедия")
$$p =~ s/\[\[[hH]elp:(.*?)\]\]/[[Справка:$1]]/g;
$$p =~ s/\[\[(?:[hH]elp[ _]talk|(?:С|с)правка[ _]обсуждение):(.*?)\]\]/[[Обсуждение справки:$1]]/g;
$$p =~ s/\[\[[uU]ser:(.*?)\]\]/[[Участник:$1]]/g;
$$p =~ s/\[\[(?:[uU]ser[ _]talk|(?:Уу)частник[ _]обсуждение):(.*?)\]\]/[[Обсуждение участника:$1]]/g;
$$p =~ s/\[\[(:|)[cC]ategory:\s*(.*?)\]\]/[[$1Категория:$2]]/g;
$$p =~ s/\[\[(?:[cC]ategory[ _]talk|(?:К|к)атегория[ _]обсуждение):(.*?)\]\]/[[Обсуждение категории:$1]]/g;
$$p =~ s/\[\[(:|)[iI]mage:(.*?)\]\]/[[$1Изображение:$2]]/g;
$$p =~ s/\[\[(?:[iI]mage[ _]talk|(?:И|и)зображение[ _]обсуждение):(.*?)\]\]/[[Обсуждение изображения:$1]]/g;
$$p =~ s/\[\[[tT]emplate:(.*?)\]\]/[[Шаблон:$1]]/g;
$$p =~ s/\[\[(?:[tT]emplate[ _]talk|(?:Ш|ш)аблон[ _]обсуждение):(.*?)\]\]/[[Обсуждение шаблона:$1]]/g;
$$p =~ s/\[\[[tT]alk:(.*?)\]\]/[[Обсуждение:$1]]/g;
$$p =~ s/\[\[[mM]edia:(.*?)\]\]/[[Медиа:$1]]/g;
$$p =~ s/\[\[(?:(?:с|С)пециальные|[Ss]pecial):(.*?)\]\]/[[Служебная:$1]]/g;
#
# Расстановка пробелов/неразрывных пробелов
#
if($main::wiki_project ne "Хронология")
{
$$p =~ s/ т\. ?н\./ т. н./g; # 00A0
$$p =~ s/ и т\. ?(д|п)\./ и т. $1./g; # 00A0
$$p =~ s/ н.э./ н. э./g;
$$p =~ s/ д\. ?н\. э\./ до н. э./g;
}
else
{
# По просьбе Андрея Борисовича - "н. э." без пробелов
$$p =~ s/ т\. ?н\./ т.н./g;
$$p =~ s/ и т\. ?(д|п)\./ и т.$1./g;
$$p =~ s/ н. ?э./ н.э./g;
$$p =~ s/ д\. ?н\. ?э\./ до н.э./g;
}
$$p =~ s/ (Т|т)\. ?е\./ $1о есть/g;
$$p =~ s/ (Т|т)\. ?к\./ $1ак как/g;
$$p =~ s/ т\. ?ч\./ том числе/g;
#
# Замена комбинации "англ. <слово>" на шаблон {{lang-en}}
#
$$p =~ s/(\(|, |\. |от )англ\. ?'?'?([A-Za-z\[\]\| ]+)'?'?/$1\{\{lang-en|$2}}/g;
#
# Замены часто используемых специальных символов на символы Юникода
#
$$p =~ s/\.\.\./…/g;
$$p =~ s/\+\-/±/g;
$$p =~ s/(™|\(tm\))/™/ig;
$$p =~ s/(©|\(C\))/©/g; # Yes, case-sensitive. That's not mistake.
#
# Расстановка пробелов после маркера списка/символа отступа
#
$$p =~ s/^([\*#;:]+)(?=[^\s\*#;:])/$1 /mg;
#
# Приведение в порядок символа номера, параграфа и промилле.
# То же с процентом отключено (пока)
#
$$p =~ s/([0-9\.]+)‰(?![\-A-Fa-f0-9'"])/$1 $2/g; # 00A0
$$p =~ s/((?:№|§)+)([0-9\.]+)/$1 $2/g; # 00A0
$$p =~ s/(№|§)\s+\1/$1$1/g;
#
# Приведение окончаний в соответствии с рекомендациями
#
$$p =~ s/(?<=[0-9%])\-ая/-я/g;
$$p =~ s/(?<=[0-9%])\-(ы|о)й/-й/g;
$$p =~ s/(?<=[0-9%])\-(ы|о)е/-е/g;
$$p =~ s/(?<=[0-9%])\-(ы|о)м/-м/g;
$$p =~ s/(?<=[0-9%])\-ых/-х/g;
$$p =~ s/(?<=[0-9%])\-ью/-ю/g;
#
# Упорядочивание абзацев.
# См. [[Участник:Edward Chernenko/Принципы редактирования]]
#
$$p =~ s/\n*<br \/><br \/>\n*/\n\n/g;
$$p =~ s/\n\n\n+/\n\n/g;
}
С извращением, electraice