Hi Guys
I am looking for a python / PERL script which will send me email when ever my disk becomes more than 90% full.
By the way my OS is Win XP.
If anybody have already has written same type of script or something very similar kind of script, that will also be very helpful.
Thanks... (1 Reply)
Hi All,
One very urgent issue and I need your help.
I have two V490 servers installed with Sun Solaris 10.
I have traced out that the disk usage is running out of space for both the servers. Currently the /dev/md/dsk/d10 device is 91% in one server and another is 56% and it is increasing... (1 Reply)
I would like to write shell/perl script which identifies the top unix processes that are performing high disk I/O's or/and writes
If any one knows the solution please help me?
-Swamy (0 Replies)
Guys,
Is there any UNIX command that captures the 'Unix process which is performing high disk I/O reads and writes'.
can you help me in this?
-Swamy (6 Replies)
Hi Unix Gurus i am somewhat new to unix scripting so need your help to
create a script as below.
# This script would find the process consuming memory beyond a certain #limit. if the meemory consumption is more than 100% for a period of 1
# minute for the specific process. the script would... (0 Replies)
Hi,
I have monitored that disk utilization is very high on one of red hat linux VM.
Would like to know how to find out that issue of high disk utilization is because of disk or Installed Application on that server is causing the problem.
Regards,
Manoj (1 Reply)
Hi, say for example if there is high disk write IO in one disk (detected from NMON), how to we identify what processes is writing on that particular disk? (3 Replies)
Hi ,
I am trying to :wall: my head while scripting ..I am really new to this stuff , never did it before :( .
how to find cpu's system high time and user time high in a script??
thanks , help would be appreciated !
:) (9 Replies)
This is Solaris-10 box. I can see disk I/O is high and performance is very very slow for applications running on it. What should I check to fix this issue ?
root@dbrpd01:/# iostat -xntz | head -7
tty
tin tout
7 79
extended device statistics
r/s w/s kr/s ... (6 Replies)
Hello,
I would like to create a script that will maintain HA/failover of a process between two servers.
I wanted to send a continuous heartbeat message through a script to another server when everything is working fine, if a process has gone down then the same message should be sent another... (4 Replies)
Discussion started by: Mahesh_RPM
4 Replies
LEARN ABOUT DEBIAN
anyevent::redis
AnyEvent::Redis(3pm) User Contributed Perl Documentation AnyEvent::Redis(3pm)NAME
AnyEvent::Redis - Non-blocking Redis client
SYNOPSIS
use AnyEvent::Redis;
my $redis = AnyEvent::Redis->new(
host => '127.0.0.1',
port => 6379,
encoding => 'utf8',
on_error => sub { warn @_ },
);
# callback based
$redis->set( 'foo'=> 'bar', sub { warn "SET!" } );
$redis->get( 'foo', sub { my $value = shift } );
my ($key, $value) = ('list_key', 123);
$redis->lpush( $key, $value );
$redis->lpop( $key, sub { my $value = shift });
# condvar based
my $cv = $redis->lpop( $key );
$cv->cb(sub { my $value = $_[0]->recv });
DESCRIPTION
AnyEvent::Redis is a non-blocking (event-driven) Redis client.
This module is an AnyEvent user; you must install and use a supported event loop.
ESTABLISHING A CONNECTION
To create a new connection, use the new() method with the following attributes:
host => <HOSTNAME>
Required. The hostname or literal address of the server.
port => <PORT>
Optional. The server port.
encoding => <ENCODING>
Optional. Encode and decode data (when storing and retrieving, respectively) according to ENCODING ("utf8" is recommended or see
Encode::Supported for details on possible ENCODING values).
Omit if you intend to handle raw binary data with this connection.
on_error => $cb->($errmsg)
Optional. Callback that will be fired if a connection or database-level error occurs. The error message will be passed to the
callback as the sole argument.
METHODS
All methods supported by your version of Redis should be supported.
Normal commands
There are two alternative approaches for handling results from commands:
o AnyEvent::CondVar based:
my $cv = $redis->command(
# arguments to command
);
# Then...
my $res;
eval {
# Could die()
$res = $cv->recv;
};
warn $@ if $@;
# or...
$cv->cb(sub {
my($cv) = @_;
my($result, $err) = $cv->recv
});
o Callback:
$redis->command(
# arguments,
sub {
my($result, $err) = @_;
});
(Callback is a wrapper around the $cv approach.)
Subscriptions
The subscription methods ("subscribe" and "psubscribe") must be used with a callback:
my $cv = $redis->subscribe("test", sub {
my($message, $channel[, $actual_channel]) = @_;
# ($actual_channel is provided for pattern subscriptions.)
});
The $cv condition will be met on unsubscribing from the channel.
Due to limitations of the Redis protocol the only valid commands on a connection with an active subscription are subscribe and unsubscribe
commands.
Common methods
o get
o set
o hset
o hget
o lpush
o lpop
The Redis command reference (<http://redis.io/commands>) lists all commands Redis supports.
REQUIREMENTS
This requires Redis >= 1.2.
COPYRIGHT
Tatsuhiko Miyagawa <miyagawa@bulknews.net> 2009-
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
AUTHORS
Tatsuhiko Miyagawa
David Leadbeater
Chia-liang Kao
franck cuny
Lee Aylward
Joshua Barratt
Jeremy Zawodny
Leon Brocard
Michael S. Fischer
SEE ALSO
Redis, AnyEvent
perl v5.10.1 2011-01-12 AnyEvent::Redis(3pm)