PBS::Attr - Perl extension for PBS
use strict;
use PBS;
use PBS::Status;
use PBS::Attr();
my $pbs = PBS->new();
$pbs->connect() || die $pbs->error(), "\n";
my $stat = $pbs->stat_queue("queue_name");
or
my $stat = $pbs->stat_node("node_name");
or
my $stat = $pbs->stat_job("job_id");
foreach my $s (@$stat) {
print $s->{'name'}, " ", $s->{'text'}, "\n";
my $attrs = $s->{'attributes'};
my $attr_list = $attrs->get();
foreach my $a (@$attr_list) {
print $a->{'name'}, "=", $a->{'value'}, "\n";
}
}
$pbs->disconnect();
Perl interface to the PBS attrl data structures.
None by default.
MAXNAMLEN MAXPATHLEN MAX_ENCODE_BFR MGR_CMD_ACTIVE MGR_CMD_CREATE MGR_CMD_DELETE MGR_CMD_LIST MGR_CMD_PRINT MGR_CMD_SET MGR_CMD_UNSET MGR_OBJ_JOB MGR_OBJ_NODE MGR_OBJ_NONE MGR_OBJ_QUEUE MGR_OBJ_SERVER MSG_ERR MSG_OUT PBS_BATCH_SERVICE_PORT PBS_BATCH_SERVICE_PORT_DIS PBS_INTERACTIVE PBS_MANAGER_SERVICE_PORT PBS_MAXCLTJOBID PBS_MAXDEST PBS_MAXGRPN PBS_MAXHOSTNAME PBS_MAXPORTNUM PBS_MAXQUEUENAME PBS_MAXROUTEDEST PBS_MAXSEQNUM PBS_MAXSERVERNAME PBS_MAXSVRJOBID PBS_MAXUSER PBS_MOM_SERVICE_PORT PBS_SCHEDULER_SERVICE_PORT PBS_TERM_BUF_SZ PBS_TERM_CCA PBS_USE_IFF RESOURCE_T_ALL RESOURCE_T_NULL SHUT_DELAY SHUT_IMMEDIATE SHUT_QUICK SHUT_SIG
See the documentation for PBS and PBS::Status
Todd Merritt, <tmerritt@email.arizona.edu>
Copyright (C) 2004 by Todd Merritt
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.1 or, at your option, any later version of Perl 5 you may have available.
