I am writing a script to search PCL output and append more PCL data to the end accordingly.
I need to remove the last 88 bytes from the string.
I have searched for a few hours now and am coming up with nothing. I can't use head or tail because the PCL output is all on one line. awk crashes on... (3 Replies)
HI,
I want to cut end string from line.
e.g. i have following input line
/users/home/test.txt
I want to get end string 'test.txt' from above line and length of that end string will change and it always start after '/'.
Thanks,
Visu (7 Replies)
Hi All,
I have a string like "9633C01302_2". I need to extract the number(02) after "13" and before "_" and the number coming after "13" and before "_" is not constant, it keeps on changing...
Can some one plz help me wth the command..
i tried this echo "9633C01302_2" | cut -d'_' -f1 ..But... (2 Replies)
I just have a couple of quick questions.
I am having trouble with this cut. I am basically trying to cut the string so that i can insert the users guess at the appropriate point in the string.
$letters is the character count of the $word.
What it seems to do is cut the character into the... (0 Replies)
Hello,
I have records like below that I want to remove any five characters from the end of the string before the double quotes unless it is only an asterik.
3919,5020 ,04/17/2012,0000000000006601.43,,0000000000000000.00,, 132, 251219,"*"
1668,0125 ... (2 Replies)
helloo
I wonder if there's a way to cut characters out of a string and keep only
the last 2 by using sed.
For example if there's the todays' date:
2012-05-06
and we only want to keep the last 2 characters which are the day.
Is there a quick way to do it with sed? (2 Replies)
Hi all.. I have several unique files that contain one thing in common, and that is acct#. For all files in the directory, I want to append the 10 characters following the word "ACCOUNT:" to the end of the filename.
for example:
I have file 111_123 that contains ACCOUNT:ABC1234567
The file... (5 Replies)
Hello All
I have a file like this
abc.tpt.ctl
bdc.tpt.ctl
cdw.tpt.ctl
I have looped every line using the for Loop, now I want to take each line and cut the .tpt.ctl part of it and store it in a variable and use the variable in same loop.
The part I am stuck at is how do I cut the last... (9 Replies)
Hello All,
I have to write a shell logic inside my ANT Script , the data from my ANT is in the string like
string a = "test1.props,test2.props,*,test3.props,?,test4,props"
how do i remove this wild card characters from my string a and assign them to an other string , like i only want to... (9 Replies)
Hi,
So basically I have this file containing query output in seperated columns.
In particular column I have the below strings:
news
news-prio
I am trying to grep the string news without listing news-prio aswell.
I tried
grep "$MSG_TYPE" ,
grep -w "$MSG_TYPE" ,
grep... (4 Replies)
Discussion started by: nms
4 Replies
LEARN ABOUT CENTOS
symbol
Symbol(3pm) Perl Programmers Reference Guide Symbol(3pm)NAME
Symbol - manipulate Perl symbols and their names
SYNOPSIS
use Symbol;
$sym = gensym;
open($sym, "filename");
$_ = <$sym>;
# etc.
ungensym $sym; # no effect
# replace *FOO{IO} handle but not $FOO, %FOO, etc.
*FOO = geniosym;
print qualify("x"), "
"; # "main::x"
print qualify("x", "FOO"), "
"; # "FOO::x"
print qualify("BAR::x"), "
"; # "BAR::x"
print qualify("BAR::x", "FOO"), "
"; # "BAR::x"
print qualify("STDOUT", "FOO"), "
"; # "main::STDOUT" (global)
print qualify(*x), "
"; # returns *x
print qualify(*x, "FOO"), "
"; # returns *x
use strict refs;
print { qualify_to_ref $fh } "foo!
";
$ref = qualify_to_ref $name, $pkg;
use Symbol qw(delete_package);
delete_package('Foo::Bar');
print "deleted
" unless exists $Foo::{'Bar::'};
DESCRIPTION
"Symbol::gensym" creates an anonymous glob and returns a reference to it. Such a glob reference can be used as a file or directory handle.
For backward compatibility with older implementations that didn't support anonymous globs, "Symbol::ungensym" is also provided. But it
doesn't do anything.
"Symbol::geniosym" creates an anonymous IO handle. This can be assigned into an existing glob without affecting the non-IO portions of the
glob.
"Symbol::qualify" turns unqualified symbol names into qualified variable names (e.g. "myvar" -> "MyPackage::myvar"). If it is given a
second parameter, "qualify" uses it as the default package; otherwise, it uses the package of its caller. Regardless, global variable
names (e.g. "STDOUT", "ENV", "SIG") are always qualified with "main::".
Qualification applies only to symbol names (strings). References are left unchanged under the assumption that they are glob references,
which are qualified by their nature.
"Symbol::qualify_to_ref" is just like "Symbol::qualify" except that it returns a glob ref rather than a symbol name, so you can use the
result even if "use strict 'refs'" is in effect.
"Symbol::delete_package" wipes out a whole package namespace. Note this routine is not exported by default--you may want to import it
explicitly.
BUGS
"Symbol::delete_package" is a bit too powerful. It undefines every symbol that lives in the specified package. Since perl, for performance
reasons, does not perform a symbol table lookup each time a function is called or a global variable is accessed, some code that has already
been loaded and that makes use of symbols in package "Foo" may stop working after you delete "Foo", even if you reload the "Foo" module
afterwards.
perl v5.16.3 2013-02-26 Symbol(3pm)