Foro - Perl en Español

por **natxo** » 2010-02-03 15:54 @704

Seguro que es una tontería pero llevo media hora con esto y no me sale.

A ver, necesito sacar información de nuestros servidores de impresión para localizar diferencias en la configuración de las impresoras. Hacerlo a mano es un proceso muy farragoso y poco práctico. Así que he instalado el módulo Win32::Printer y funciona bien, pero no sé sacar la información por las referencias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
use Win32::Printer::Enum;
use Data::Dumper;

my@printers= Printers();
print Dumper(@printers);
print"$printers[0]{PrinterName}";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Me saca esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = {

          'UntilTime' => '0',

          'Datatype' => 'RAW',

          'PrinterName' => 'test 2 perl',

          'AveragePPM' => '0',

          'Status' => '0',

          'Jobs' => '0',

          'PortName' => 'XPSPort:',

          'StartTime' => '0',

          'Location' => '',

          'SepFile' => '(null)',

          'ServerName' => '(null)',

          'DefaultPriority' => '0',

          'DriverName' => 'AGFA-AccuSet 1500',

          'Comment' => '',

          'Parameters' => '(null)',

          'PrintProcessor' => 'WinPrint',

          'Attributes' => '576',

          'ShareName' => '',

          'Priority' => '1'

        };

$VAR2 = {

          'UntilTime' => '0',

          'Datatype' => 'RAW',

          'PrinterName' => 'test',

          'AveragePPM' => '0',

          'Status' => '0',

          'Jobs' => '0',

          'PortName' => 'LPT1:',

          'StartTime' => '0',

          'Location' => 'Blabla',

          'SepFile' => '(null)',

          'ServerName' => '(null)',

          'DefaultPriority' => '0',

          'DriverName' => 'AGFA-AccuSetSF v52.3',

          'Comment' => 'bladibla',

          'Parameters' => '(null)',

          'PrintProcessor' => 'WinPrint',

          'Attributes' => '576',

          'ShareName' => '',

          'Priority' => '1'

        };

test 2 perl
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Como veis, tengo 2 impresoras de prueba. Lo que me interesa es hacer un bucle que me saque varios atributos de todas las impresoras. Puedo sacar un atributo de una impresora, pero no sé cómo hacer el bucle. Con las referencias todavía estoy verde, me temo. ¿Me podéis dar alguna pista?

Funcionan ambas soluciones a la perfección. Gracias por su ayuda, he comprendido cómo usar estos módulos (y viendo la cantidad de módulos que hay, conviene entender cómo usarlos, claro).

Como comentario final: sigo sin comprender por qué Perl en plataformas Windows no tiene más aceptación (sobre todo para los administradores de sistemas). Ahora lo que se lleva es Powershell, pero si comparamos el tiempo de ejecución de un script en Perl y otro en Powershell, la verdad es que no hay color, el de Perl funciona de media 3 veces más rápido.

En cuanto a la facilidad de lectura y compresión de un lenguaje u otro, pues no veo que sea más claro Powershell, la verdad.

En fin, me voy por las nubes. Un saludo.

Foro - Perl en Español

Desreferenciar referencia

Desreferenciar referencia

Publicidad

Re: Desreferenciar referencia

Re: Desreferenciar referencia

Re: Desreferenciar referencia

¿Quién está conectado?