Generar números de páginas para imprimir en ambas caras

Este es un script que hago una y otra vez cada vez que necesito imprimir (algo poco tree-friendly (de ahí salió el formato WWF), pero no me veo leyendo un libro en el ipod ni pienso comprar un kindle a corto/mediano plazo).

Lo bueno (aquí limpio mi reputación de persona poco ecológica) es que no imprimo una página por cara, ni imprimo una cara de la hoja. sino al menos 2 páginas por cara e imprimo por los dos lados. El problema es que no siempre consigo una impresora que permita imprimir de esa forma, entonces tengo que generar una lista de números para la página frontal y trasera. y esto es lo que hice.

#!/usr/bin/perl -w

use strict;
use warnings;

my @rango = (1..12);
my $pags_cara = 4;
my (@pares,@impares);

my $vuelta = 0 ;

foreach (@rango) {
	$vuelta < $pags_cara ? push(@impares,$_) : push(@pares,$_) ; 
	$vuelta++ ;
 	$vuelta >= $pags_cara*2 ? $vuelta = 0 : 1 ;
}
print "IMPARES: " . join(",",@impares) . "\n";
print "PARES:   " . join(",",@pares) . "\\n";

 

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s