Hi!
I pass a parameter to a script code and I have to make it upper case before use:
$ MyShell aBcDe
script code:
UpperVariable=function($1)
I can't know how make function, maybe some sed option?
Thank You,
PARIDE (1 Reply)
Hi Gurus,
This is my script:
echo ""
echo "Do you want to execute DWH Test Program?"
echo ""
echo -n "Okay?("y" or "n")=> "
set ret = $<
if ($ret != "y") then
echo ""
echo ""
echo "End."
exit 0
How can I make this script accept uppercase as well?... (8 Replies)
Hi experts,
You cool guys already given me the awk script below-
awk '/9366109380/,printed==5 { ++printed; print; }' 2008-09-14.0.log
Morever, i have one more things-
when i awk 9366109380, i can also see the Upper 3 lines as well as below 5 lines of that string.
Line 1.... (3 Replies)
Hi
I am working in ksh and need to convert the following line into lower case:
N344 N228 P227 N115 P116 N332 P331 P343 P293 N342 N294 N335 N329 P330 P336 P097 P092 N098 P334 N337 P345 P338 N091 N333
so the output should look like this:
n344 n228 p227 n115 p116 n332 p331 p343 p293 n342... (5 Replies)
What is the command to change the contents of a file to UPPER case. Here in this file below you see some characters are Sp, Ch
1200812270046581
22885072800000652 B86860003OLFXXX592123320081227
22885029800000652 B86860003ODL-Sp592123420081227
22885093700000652-B94030001ODL-Ch592123520081227... (4 Replies)
Hi,
I think this is a weird problem.
I have two files...one with all UPPER case and the other one with a mix of upper and lower.
Match each record in file1 against record in file2, if they match, then change the record in file1 to that of record in file2.
Thanks in advance. (2 Replies)
I am trying to get a script to print out whether a directory is lowercase uppercase or both. This is what I've got so far:
echo -e read "enter name"
read server
for DIR in $(find /tmp/$server -type d -prune | sed 's/\.\///g');do if expr match "$server" "*$" > /dev/null; then echo "$server -... (7 Replies)
I have a file
file_name1=RYK11603_PLK5692601_RKYADAV.PDF
i am using the below command to convert this file to RYK11603_5692601.pdf
file_name=$(echo ${file_name1}| cut -d"#" -f2| sed "s/\(*\)_PLK\(*\)_\(*\).PDF/\1_\2.pdf/")
but no success can somebody help on thi. (13 Replies)
Hi All,
I want to change the out put of a decode file from lower to upper. i used tr command but facing issue.
set -vx
id=$(id)
dt=$(date)
store=$1
if ]; then
cd $APPL_TOP/local/bin
cp .sqlpass.Z $$.temp.Z
uncompress $$.temp.Z
sed -e s/sqlpass/$$.sqlpass/ $$.temp >... (5 Replies)
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)