Select Code to Download

#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Dumper;

my @cups_num_jobs_cmd=("/usr/bin/lpstat ", "-h", $server, "-W not-comp
+leted");
print Dumper "cmd = @cups_num_jobs_cmd";
...
print Dumper "cups_jobs =  @cups_num_jobs";
$server_num_jobs=scalar(@cups_num_jobs);
print Dumper "server_num = $server_num_jobs";

R_NETADMIN_NB-46        root             15360   Wed 16 Mar 2005 01:05
+:25 PM EST
RSPARE_NB-47            root             15360   Wed 16 Mar 2005 01:05
+:33 PM EST
RSPARE_NB-48            root             15360   Wed 16 Mar 2005 01:05
+:38 PM EST