First two days of shell scripting... I've looked at awk/sed and man sed only to get off into the weeds of complexity that may not be needed here...
hints for awk or sed or other method to magically change the bolded item below?
Nutshell: HFTST=Y #test mode = true to false & back again so script remains default test mode = true; ref #magically toggles... I may run another pre-emptive script to always toggle to Y in case DTTRProc errors and doesn't reset automagically
First six lines of MCSB475CA.dat parmater file for INT0013CA shell script
Section of DTRRProc shell script file as wrapper to locate oldest $i file process & move to archive folder as well as retrieve output files created by INT0013CA
...$i is a path & file to process
Last edited by Scrutinizer; 03-17-2016 at 05:19 AM..
Reason: code tags
How do I change IP addresses in command mode? i need to assign custom (non DHCP) addresses from the command line. Actually I also need to know how to change the subnet mask, the gateway and the primary, secondary, ... dns servers. (6 Replies)
Hi All,
Not sure if this would be in a dummies sectiin or advanced. I'm looking for a script if someone has doen something like this.
I have list of files -
adc_earnedpoints.20070630.txt
adc_earnedpoints.20070707.txt
adc_earnedpoints.20070714.txt
adc_earnedpoints.20070721.txt... (2 Replies)
Hi all,
I have problem regarding how to change the quantity in the file.
I will explain you by an example.
I have one file whose name is sample. The content of file are as follows:
sample
-----------------------------------------------------------
1 334 3562 2345
5324 85657 75666 845 ... (0 Replies)
Hi
I am FTPing a file to a remote server from my local server. But after I FTP it the permissions are not in executable option, I need to change the permissions of the FTPed file how can i do that. Below is my script
LOCALDIR=/batch/ediprocess
LOCAL_BACKUP_DIR/batch/ediprocessBackUp... (4 Replies)
hi,
sorry for posting this for a quick answer.
Is there a one line command to change permissions on files in a directory to a given mode (say 554) and only for those files that do not already have that mode?
Running chmod updates the last access/modified timestamp on the files, and i want to... (11 Replies)
Hi all,
I have a question for the Gurus. I apologize if this has bee shared before but I couldn't find the link.
I am trying to read parameters from an external parameter file. What I m trying to achieve is read selected lines from an external parameter file into the script. for eg my param... (4 Replies)
Hi Friends,
I have shell script file1.sh which has reference to enviornment file called
Content of filenev.sh
SKIP_FLAG=N
ORACLE_HOME=/u01/oracle/database
My requirement is to change the value of SKIP_FLAG to Y in filenv.sh from file1.sh. Could anyone please help me to do... (2 Replies)
Hi there
I have the following code
SDFFILE_SRC=$BACKEND_DIR/$SDFFILE_MIN_tar
SDFFILE_DST=$SIM_DIR/$SDFFILE_MIN
if ]
....
....
....
fi
Simply I need to check if $SDFFILE_SRC isa newer than $SDFFILE_DST or $SDFFILE_DST does not exist then execute the IF Body.
Although the the... (2 Replies)
Hi,
How to change mode "drwxrwsr-x+" in directory.
I'm able to set drwxrwsr-x but "+" is difficult to set.
~ $ las -las | grep done1
4 drwxrwsr-x+ 3 root sfuser 4096 Nov 26 16:39 done1
~ $ getfacl done1
# file: done1
# owner: root
# group: sfuser
# flags: -s-
user::rwx... (4 Replies)
Hello,
In our Data Warehouse environment, before our batch SFTP jobs kick off to pull the files from remote servers, I would like to setup a pre-sftp job that would test if all the remote servers from where the files are being pulled, are up and running. If any one of the remote serer is... (2 Replies)
Discussion started by: Dippu
2 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)