[Perl-unix-users] winders diskdrive size
Folks, I am forced to use perl v4 and am wondering what is the quickest/easiest way to obtain the drive size on windows os Thanks, David M. Funk President/CEO Tivoli Certified Enterprise Consultant Specializing in Network and Systems Management Solutions Trinity Solutions 604 Cassandra Dr. Cranberry Twp., PA 16066 Phone: 724-316-0721 Fax: 724-772-7889 email: [EMAIL PROTECTED] http://www.trinitysol.net ___ Perl-Unix-Users mailing list Perl-Unix-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[Perl-unix-users] perl grep help
I have a list of IP addresses that I am getting status for.
Where possible I will use a socket connection.
However, some of the IP addresses I need to ping.
I have a list that I need to parse through and perform a
ping against.
The list can look like this:
@PINGONLY =
172.22.159.100
172.23.55.18
172.16.*.100
208.171.58.*
Does anyone have a nifty grep example I could use?
Code example…..
if (grep(/^$priv_ip/, @PINGONLY)) {
print LOG
"Pinging Router: $priv_ip b/c it's in the pingonly list..\n";
$thread =
threads->create("rtr_ping","priv","$storenum","$priv_ip")->detach;
} else {
$thread =
threads->create("rtr_sock","priv","$storenum","$priv_ip")->detach;
}
If 172.16.22.100 comes up if fails the test against
172.16.*.100
TIA,
David M. Funk
President/CEO
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems
Management Solutions
Trinity
Solutions
604 Cassandra Dr.
Cranberry Twp.,
PA 16066
Phone:
724-316-0721
Fax: 724-772-7889
email: [EMAIL PROTECTED]
http://www.trinitysol.net
___
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[Perl-unix-users] Perl & MQSeries
Anybody out there using MQSeries and Perl? I can connect to the local Queue Manager and do fun things like: List Queue Stop and start Channels But now my client would like the scripts to connect to other queue managers on other servers. I can't seem to get any to connect. Does anyone have some example code that does a client connect? Thanks, David M. Funk President/CEO Tivoli Certified Enterprise Consultant Specializing in Network and Systems Management Solutions Trinity Solutions 604 Cassandra Dr. Cranberry Twp., PA 16066 Phone: 724-316-0721 Fax: 724-772-7889 email: [EMAIL PROTECTED] <>___ Perl-Unix-Users mailing list Perl-Unix-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
