La reja:: Transforma es un módulo Perl con transformaciones de reja rápidas.

SINOPSIS

use la Reja:: Transforman;

El $g = Reja:: Transforma-> nuevo ([un.. o], filas => 5);
$g-> rotate_270-> flip_vertical;
imprima la juntura ($g-> reja), "n";

La Reja:: Transforma el módulo proporciona métodos rápidos de transformar una reja de tipos de datos arbitrarios.

MÉTODOS

El $g = Reja:: Transforma-> nuevo (@grid, filas => num, columnas => num)

Crea una nueva Reja:: Transforman el objeto. El primer argumento es una referencia a una matriz de 1 dimensión que representa una "fila de 2 dimensiones principal" (fila por la fila) reja. (Una columna la reja principal es simplemente el contador transporta de una fila el principal.) la reja puede ser formada de tipos de datos arbitrarios. La matriz original nunca es modificada - todas las transformaciones operan en una copia.

Al menos una dimensión debe ser especificada. Si la reja y las dimensiones no producen una reja rectangular extra vacían los elementos ("") serán añadidos a la reja.

$g2 = $g-> copia

Vuelve una copia de la Reja original los:: Transforman el objeto.

Estos métodos consiguen o ponen los atributos de reja:

@grid = $g-> reja
$grid = $g-> reja
@grid = $g-> reja (@grid)

En el contexto de lista, devuelve una matriz que representa la reja corriente. En el contexto escalar, devuelve una referencia a la matriz. Acepta una referencia de matriz que representa una nueva reja. La nueva reja será cambiada el tamaño si las dimensiones de la reja anterior no emparejan.

$g-> filas
$g-> filas ($num)

Devuelve el número corriente de filas.

$g-> columnas
$g-> Cneles
$g-> columnas ($num)

Devuelve el número corriente de columnas.

Todos transforman la devolución de métodos la Reja:: Transforma el objeto, tan transforma puede ser encadenado.

$g-> rotate_90
$g-> rotate90

Hace girar la reja 90 grados en el sentido de las agujas del reloj.

un b c d e f g h yo j k l un b c d yo e a
| e f g h-> j f b
yo e un j f b k g c l h d yo j k l k g c
l h d

$g-> rotate_180
$g-> rotate180

Hace girar la reja 180 grados en el sentido de las agujas del reloj.

un b c d e f g h yo j k l un b c d l k j yo
| e f g h-> h g f e
l k j yo h g f e d c b un yo j k l d c b a

$g-> rotate_270
$g-> rotate270

Hace girar la reja 270 grados en el sentido de las agujas del reloj.

un b c d e f g h yo j k l un b c d d h l
| e f g h-> c g k
d h l c g k b f j un e yo yo j k l b f j
un e yo

$g-> flip_horizontal
$g-> mirror_horizontal

Tira la reja a través del eje horizontal.

un b c d e f g h yo j k l un b c d yo j k l
| e f g h-> e f g h
yo j k l e f g h un b c d yo j k l un b c d

$g-> flip_vertical
$g-> mirror_vertical

Tira la reja a través del eje vertical.

un b c d e f g h yo j k l un b c d d c b a
| e f g h-> h g f e
d c b un h g f e l k j yo yo j k l l k j yo

$g-> transporta

Tira la reja a través del eje vertical y luego lo hace girar 90 degress en el sentido de las agujas del reloj.

un b c d e f g h yo j k l un b c d l h d
| e f g h-> k g c
l h d k g c j f b yo e un yo j k l j f b
yo e a

$g-> counter_transpose
$g-> contratransporta

Tira la reja a través del eje horizontal y luego lo hace girar 90 grados en el sentido de las agujas del reloj.

un b c d e f g h yo j k l un b c d un e yo
| e f g h-> b f j
un e yo b f j c g k d h l yo j k l c g k
d h l

$g-> fold_right

Dobla las columnas a la derecha.

un b c d e f g h yo j k l un b c d b c d a
| e f g h-> f g e h
b c un d f g e h j k yo l yo j k l j k yo l

$g-> fold_left

Dobla las columnas a la izquierda.

un b c d e f g h yo j k l un b c d d un c b
| e f g h-> h e g f
d un c b h e g f l yo k j yo j k l l yo k j