Hi Charles, thank you very much for the help and the hint:
--- "Charles K. Clarkson" <[EMAIL PROTECTED]> wrote:
[snip]
> We really don't need %job at all:
> my @jobs;
> foreach ( @lpstat ) {
> next unless
> /^
> \Q$printer\E-
> (\d+)\s+
> (\w+)\s+\d+\s+\w+\s
> (\d+\s\w+\s\d+\s\d{2}:\d{2}:\d{2})
> /ox;
>
> push @jobs, {
> job_name => sprintf 'd%05d-001', $1,
> job_owner => $2,
> job_date => $3,
> };
> }
What the \Q \E /ox in the regex does ?
HTH,
Rod
__________________________________
Do you Yahoo!?
Yahoo! Mail is new and improved - Check it out!
http://promotions.yahoo.com/new_mail
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
