Обсуждение шаблона:Портал/корген.pl

Материал из Абсурдопедии
Перейти к:навигация, поиск

Этот скрипт позволяет быстро добавить новый параметр для всех коробочек шаблона {{Портал}}. Или увеличить максимальное количество этих коробочек.

Использование:

  1. perl файл_скрипта л
  2. perl файл_скрипта п
  3. perl файл_скрипта н
#! /usr/bin/perl

my $l = $ARGV[0] || "л";
my $last = $l eq "н" ? 3 : 9;
for($i = 1; $i <= $last; $i ++)
{
print "{{Портал/Коробочка|
  | тип = {{{$lкор$i\_тип|}}}
  | заголовок = {{{$lкор$i\_заголовок|}}}
  | без_править = {{{без_лкор$i\_править|}}}
  | стиль = {{{$lкор$i\_стиль|}}}
  | стиль_текста = {{{$lкор$i\_стиль_текста|}}}
  | текст = {{{$lкор$i\_текст|}}} 
  | шаблон = {{{$lкор$i\_шаблон|}}}
  | значок = {{{$lкор$i\_значок|}}}
  | категория = {{{категория|}}}
  | категория_участников = {{{категория_участников|}}}
}}\n";
}