hi all
i wrote a shell script which uses perl script my code is :
>cat filename | while read i
>do
>perl -e 'require "/home/scripts/abc.pl" ; abc("$i")'
>done
perl script used will simply check syntax of Cobol programs but it didn't work for me so i asked my colleague he suggested... (1 Reply)
hi all
i was going through some perl code i came across this line and i am not getting what is exactly going on ..
$$this{localtion} = GetName->GetVarName("EXE_DIR") ;
what is the red part doing in above code (2 Replies)
This is taken from perlop. I can't understand what's going on, please can someone explain this for me?
$hexdigit = (0 .. 9, 'a' .. 'f');
to get a hexadecimal digit (2 Replies)
Hi,
I am trying to extract data from output files.
I have three awk commands that can be used. All the three commands works separately. The second and third are similar as it outputs 'line 3' and 'line 13' after
the common 'string' (I do not know how to combine them). I would like to get the... (4 Replies)
I am using this line of perl code to change the file format and remove ^M at the end of each line in files:
perl -i -pe's/\r$//;' <name of file here>
Can you explain to me what this code does, and translate it into bash/awk/sed? (2 Replies)
sub uniq {
my %h;
return grep { !$h{$_}++ } @_
}
The above code is to remove duplicates from array.
I am having hard time understanding below things (basically around highlighted code in bold)-
when was the value inserted in hash?
and are we only adding a key in Hash not... (1 Reply)
I wish to generate output of two commands in the same line separated by a single white-space.
Below is my command and output in the same line.
ls -ltr fname1.out | awk '{$2=$4=$5=x; print}' | tr '\n' '\t' | tr -s ' '; cksum<fname1.out | cut -d' ' -f1
Output:
-rw-r--r--. root Aug 26 16:57... (6 Replies)
Discussion started by: mohtashims
6 Replies
LEARN ABOUT DEBIAN
je::code
JE::Code(3pm) User Contributed Perl Documentation JE::Code(3pm)NAME
JE::Code - ECMAScript parser and code executor for JE
SYNOPSIS
use JE;
$j = new JE;
$code = $j->compile('1+1'); # returns a JE::Code object
$code->execute;
METHODS
$code->execute($this, $scope, $code_type);
The "execute" method of a parse tree executes it. All the arguments are optional.
The first argument will be the 'this' value of the execution context. The global object will be used if it is omitted or undef.
The second argument is the scope chain. A scope chain containing just the global object will be used if it is omitted or undef.
The third arg indicates the type of code. 0 or undef indicates global code. 1 means eval code (code called by JavaScript's "eval"
function, which has nothing to do with JE's "eval" method, which runs global code). Variables created with "var" and function
declarations inside eval code can be deleted, whereas such variables in global or function code cannot. A value of 2 means function
code, which requires an explicit "return" statement for a value to be returned.
If an error occurs, "undef" will be returned and $@ will contain the error message. If no error occurs, $@ will be a null string.
$code->set_global( $thing )
You can transfer a JE::Code object to another JavaScript environment by setting the global object this way. You can also set it to
"undef", if, for instance, you want to serialise the compiled code without serialising the entire JS environment. If you do that,
you'll need to set the global object again before you can use the code object.
FUNCTIONS
JE::Code::add_line_number($message, $code_object, $position)
WARNING: The parameter list is still subject to change.
This routine append a string such as 'at file, line 76.' to the error message passed to it, unless it ends with a line break already.
$code_object is a code object as returned by JE's or JE::Parser's "parse" method. If it is omitted, the current value of
$JE::Code::code will be used (this is set while JS code is running). If $JE::Code::code turns out to be undefined, then $message will
be returned unchanged (this is subject to change; later I might make it use Carp to add a Perl file and line number).
$position is the position within the source code, which will be used to determine the line number. If this is omitted, $JE::Code::pos
will be used.
EXPORTS
"add_line_number" can optionally be exported.
SEE ALSO
JE
perl v5.14.2 2012-03-18 JE::Code(3pm)