Need help on awk for printing the function name inside each function Post: 303012059

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

calling function inside awk

Hi All, My 1.txt contains some functions fun1() .... .... fun2() .... .... I can call these fun from 2.txt inside awk as below value="`fun1 "argument1"`" awk 'BEGIN {printf ("%s", "'"$value"'")}' I need to modify the above code so that without using the variable to store...

2. Shell Programming and Scripting

value inside a function

i have a script like this #!/bin/ksh initialize() { x=20 } ... ... ... x=10 initialize; echo $x

3. Programming

Inline function inside Classes

#include <iostream> using namespace std; class A { public: int Getvalue() { return i;} private: int i; }; int main() {} The above code compiles properly in g++ or in any other C++ compiler. BUT, the variable 'i' is used (in 'return i' statement) before it is...

4. Shell Programming and Scripting

Function's return value used inside awk

I have a file with the record of person: cat > $TMP/record.txt John Torres M Single 102353 Address Mark Santos M Maried 103001 Address Carla Maria F Maried 125653 Address #!/bin/ksh ManipulateID(){ ... return 0; ... #or return 1; } cat $TMP/record.txt | awk 'BEGIN {printf...

5. Shell Programming and Scripting

Troubles inside an envelope function

Hi all! I have a function (named "orig") that analyze web sites given from an argument, it works very well when by itself: #!/bin/bash chain="$1" echo chain $chain curl "$chaine" -o prop.txt ... and then it perform some analysis on the prop.txt It works flawlessly if I type: orig...

6. Shell Programming and Scripting

Call function inside CASE

i have a case statement which branches to different sections based on an input. Each branch needs to call a function. below is the code. FOr some reason, the code inside the function is not getting executed. the code is below for reference. in the below code echo "Function 1" which is there...

7. Programming

Changing value inside function

I have the following code and want to update shiftDesc inside the function. Is it correct to declare the argument as: int shiftDesc void prValue_vd( FILE* stream, // name of output stream int shift, // amount of shift to the right const char* value,...

8. Shell Programming and Scripting

If loop inside function not working.

check_deplver () { dir=/abc/def/ghi if ssh -o StrictHostKeychecking=no $1 "" 2> /dev/null then echo " output is " ssh -o StrictHostKeychecking=no $1 "ls -lrt $dir | grep -i abc" 2> /dev/null else echo " directory not presnt" fi } This is not working. But...

9. Shell Programming and Scripting

Getopts inside a function is not working

Hi All, I am using geopts inside a function in shell script. But it is doesnt seem to read the input args and I always gt empty value in o/p. my code is http://sparshmail.ad.infosys.com/owa/14.2.318.4/themes/base/pgrs-sm.gif This message has not been sent. #!/bin/ksh IFS=' '...

10. Shell Programming and Scripting

Using echo to print arguments inside a function

I am using echo in bash. Have created a function prargv which takes a number of arguments. Example: prargv "-e" "--examples" Inside prargv, I want to print all the arguments using echo echo "$@" This returns --examples rather than -e --examples" This problem can be fixed...

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)