Hey John,
Thank you very much for the hints.
--- "John W. Krahn" <[EMAIL PROTECTED]> wrote:
[snipped]
> sub lst_job {
> my $printer = shift;
> my $flag;
> return name => $printer, jobs => {
> map +( $flag = !$flag ) ? sprintf( 'd%05d-001', $_ ) : $_,
> map /^\w+-(\d+)\s+(\w+)\s+/,
> `lpstat -P $printer`
> }
> }
>
[snipped]
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
