Hi All,
I need to run the same command on many servers. I am using ssh for the same. Following is the script that I am using to fire the same command on multiple machines.
#!/bin/bash
# Linux/UNIX box with ssh key based login
#SERVERS="iqmevrick,iqmango"
# SSH User name
USR="root"
#... (1 Reply)
Hi All!
I need to automate the su command using expect script.Suppose I login as a user A , I need to change the user to oracle using the su oracle command and execute the command "sqlplus -ver".
I tried writing a expect script for the same , but can't figure out the reason it is not working.
... (1 Reply)
my source folder is :/tmp/util
of server : pyxis-as2
and target folder is :/apps/prodapp/util/
of server : pyxis-db2
i am trying to do a copy from source to target through SCP
is there any way that I can kick shell script from pyxis-as2 once any single file get loaded into /tmp/util
... (5 Replies)
Hello People,
I have an outstanding issue with me
I have 5 files at location /usr/abc called
1.DE 1.TXT
2.DE 2.TXT
3.DE 3.TXT
4.DE 4.TXT
5.Fe.ok
My work involves few manual process like
transfer
1.DE 1.TXT and
5.Fe.ok to
/usr/dob location and run one script(for example -... (42 Replies)
Hi,
I would like to know about a automated script which would collect data on a regular day to day basis at a particular time and stores it in a defined path for business analysis.
Any help on this is highly appreciable!!
Thanks
Sara (6 Replies)
Hi, i'm new in shell programming, i would like to archive automatically all my log files at the end of each month.
My files have this format :
2011.07.log1
2011.07.log2
...
2011.08.log1
2011.08.log2
...
etc
I would like to have an idea about how to do this.
Thanks. (2 Replies)
Hi, I wanted to automate the scp command where i do not want to enter the password each time. So thought of using expect command. Script is executing without any issues but files are not copied to remote server. Can any one help me?
Below is my shell script..
#!/bin/ksh
... (6 Replies)
Frequently we need to stop or start services on Linux systems.
For exmaple : To start or stop vsftpd daemon
# /etc/init.d/vsftpd start
or
# /etc/init.d/vsftpd stop
Following script will check the vsftpd service and if it is running, it will be stopped or vice-versa.
# cat... (5 Replies)
A little background information:
We are a company that uses Sharp MFP devices for everyone to print on.
We have a lot of MAC BYOD devices.
All printing is done through a product called PaperCut which is ran on a Windows 2008 R2 server.
Sharp charges our company for each print job done in... (1 Reply)
Hi, I have a requirement to automate SCP command. I have to write the scp command in server1 to copy file from server2 and paste it in server3. I will be passing server2 and server3 as variables. Pls suggest. (1 Reply)
Discussion started by: usrrenny
1 Replies
LEARN ABOUT DEBIAN
devel::refcount
Devel::Refcount(3pm) User Contributed Perl Documentation Devel::Refcount(3pm)NAME
"Devel::Refcount" - obtain the REFCNT value of a referent
SYNOPSIS
use Devel::Refcount qw( refcount );
my $anon = [];
print "Anon ARRAY $anon has " . refcount($anon) . " reference
";
my $otherref = $anon;
print "Anon ARRAY $anon now has " . refcount($anon) . " references
";
DESCRIPTION
This module provides a single function which obtains the reference count of the object being pointed to by the passed reference value.
FUNCTIONS
$count = refcount($ref)
Returns the reference count of the object being pointed to by $ref.
COMPARISON WITH SvREFCNT
This function differs from "Devel::Peek::SvREFCNT" in that SvREFCNT() gives the reference count of the SV object itself that it is passed,
whereas refcount() gives the count of the object being pointed to. This allows it to give the count of any referent (i.e. ARRAY, HASH,
CODE, GLOB and Regexp types) as well.
Consider the following example program:
use Devel::Peek qw( SvREFCNT );
use Devel::Refcount qw( refcount );
sub printcount
{
my $name = shift;
printf "%30s has SvREFCNT=%d, refcount=%d
",
$name, SvREFCNT($_[0]), refcount($_[0]);
}
my $var = [];
printcount 'Initially, $var', $var;
my $othervar = $var;
printcount 'Before CODE ref, $var', $var;
printcount '$othervar', $othervar;
my $code = sub { undef $var };
printcount 'After CODE ref, $var', $var;
printcount '$othervar', $othervar;
This produces the output
Initially, $var has SvREFCNT=1, refcount=1
Before CODE ref, $var has SvREFCNT=1, refcount=2
$othervar has SvREFCNT=1, refcount=2
After CODE ref, $var has SvREFCNT=2, refcount=2
$othervar has SvREFCNT=1, refcount=2
Here, we see that SvREFCNT() counts the number of references to the SV object passed in as the scalar value - the $var or $othervar
respectively, whereas refcount() counts the number of reference values that point to the referent object - the anonymous ARRAY in this
case.
Before the CODE reference is constructed, both $var and $othervar have SvREFCNT() of 1, as they exist only in the current lexical pad. The
anonymous ARRAY has a refcount() of 2, because both $var and $othervar store a reference to it.
After the CODE reference is constructed, the $var variable now has an SvREFCNT() of 2, because it also appears in the lexical pad for the
new anonymous CODE block.
PURE-PERL FALLBACK
An XS implementation of this function is provided, and is used by default. If the XS library cannot be loaded, a fallback implementation in
pure perl using the "B" module is used instead. This will behave identically, but is much slower.
Rate pp xs
pp 225985/s -- -66%
xs 669570/s 196% --
SEE ALSO
o Test::Refcount - assert reference counts on objects
AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
perl v5.14.2 2011-11-15 Devel::Refcount(3pm)