Perl built-in functions source code

prat7434 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Perl built-in functions source code by davido (Cardinal) on Feb 06, 2015 at 07:32 UTC
http://perl5.git.perl.org/perl.git/blob/4f62cd62aef0fcb9cc527c8aea4d04423189cfd5:/pp.c#l5181 Enjoy! Dave	[reply]
Re^2: Perl built-in functions source code by prat7434 (Acolyte) on Feb 06, 2015 at 08:30 UTC
Thanks a Lot. It helped!!	[reply]
Re: Perl built-in functions source code by Happy-the-monk (Canon) on Feb 06, 2015 at 07:19 UTC
I don't know if the sources are available for reading and searching on the web, but they are available for downloading: Look for the current Perl source code here. Cheers, Sören Créateur des bugs mobiles - let loose once, run everywhere. (hooked on the Perl Programming language)	[reply]
Re: Perl built-in functions source code by salva (Canon) on Feb 06, 2015 at 07:44 UTC
See `pp_reverse` in pp.c, line 5508.	[reply] [d/l]
Re: Perl built-in functions source code by ikegami (Patriarch) on Feb 06, 2015 at 17:48 UTC
Use `perl -MO=Concise,-exec -e'...code...'` to find the name of the operators into which your code compiles. Then grep the Perl source for `pp_``name`. For example, you asked about `reverse`. $ perl -MO=Concise,-exec -e'@b = reverse @a' 1 <0> enter 2 <;> nextstate(main 1 -e:1) v:{ 3 <0> pushmark s 4 <0> pushmark s 5 <#> gv[a] s 6 <1> rv2av[t4] lK/1 7 <@> reverse[t5] lK/1 <----------- 8 <0> pushmark s 9 <#> gv[b] s a <1> rv2av[t2] lKRM/1 b <2> aassign[t6] vKS c <@> leave[1 ref] vKP/REFC -e syntax OK $ grep -nR pp_reverse . ./lib/B/Deparse.pm:3130:sub pp_reverse { listop(@_, "reverse") } ./opcode.h:1143: Perl_pp_reverse, ./pp.c:5508:PP(pp_reverse) <----------- ./pp_proto.h:215:PERL_CALLCONV OP Perl_pp_reverse(pTHX); $ perl -ne'print if 5508 .. /^}/' pp.c PP(pp_reverse) { dSP; dMARK; ... RETURN; } [download]	[reply] [d/l] [select]
Re: Perl built-in functions source code by Anonymous Monk on Feb 06, 2015 at 07:49 UTC
Interesting, what are you trying to learn? Do you speak C?	[reply]
Re^2: Perl built-in functions source code by prat7434 (Acolyte) on Feb 06, 2015 at 08:27 UTC
I do know to read C, but not speak!! I did not know that code of core functions are written in C. Now I know. Are there any core functions which are written in Perl (some simpler functions!!).	[reply]
Re^3: Perl built-in functions source code by Anonymous Monk on Feb 06, 2015 at 08:45 UTC
um, sure, see http://perl5.git.perl.org/perl.git/tree/HEAD:/lib, anything from glob to dbmopen to perl -V loads up some perl module to do stuff	[reply]
Re^4: Perl built-in functions source code by prat7434 (Acolyte) on Feb 06, 2015 at 09:41 UTC
Re^3: Perl built-in functions source code by ikegami (Patriarch) on Feb 06, 2015 at 17:33 UTC
Perl is written in C. All of the operators ("core functions") are implemented in C. It was said that `glob` was written in Perl, but it's `pp_glob` in `pp_sys.c`. (Sometimes, this does result in Perl getting executed, but not always.) It was said that `dbmopen` was written in Perl, but it's `pp_dbmopen` in `pp_sys.c`. (Granted, this does result in Perl code getting executed.) There are many core and non-core modules written in Perl, but the functions in perlfunc are necessarily written in C.	[reply] [d/l] [select]