subroutine

Given a Perl package Foo.pm, e.g. package Foo; use strict; sub bar { # some code here } sub baz { # more code here } 1; How can I write a script to extract the textual source code for each sub, resulting in a hash: $VAR1 = { 'bar' => 'sub bar { # some code here }', 'baz' => 'sub baz { # more code here }' }; I'd like to have the text exactly as it appears in the package, whitespace and all. Thanks. PPI is kind of a pain to work with at the very first; the documentation is not good at telling you which class documents which methods shown in the examples. But it works pretty well: use strict; use

I am new to Fortran. I am working on a research project where I am using an open source project that has several files distributed in multiple folders. i found the dependency of each programs but could not figure out how to compile them. I have source code distributed in three folders. a)modules b)interfaces c)subroutines I would like to run a program named as 'Main.f90' in subroutines folder, this program has dependency of source codes from modules and interfaces folders. I am using eclipse for folder structure and makefile to compile. Any help with this is appreciated. UPDATE: I followed the

I want to pass several parameters, one of which is optional, to a function. The only way to do it that I know is using a list (@) as a parameter. Thus, it contents nothing or 1 element (will never be undef), so that I can use the following code: sub someFunction($$@) { my ( $oblig_param1, $oblig_param2, $option_param ) = @_; ... } This code works, but I feel that maybe it's not the best workaround. Are there any other ways to do it? Thank you. You can use a semicolon in the prototype to indicate the end of the required parameters: sub someFunction($$;$) { my ( $oblig_param1, $oblig_param2,

I'm writing Perl for quite some time now and always discovering new things, and I just ran into something interesting that I don't have the explanation to it, nor found it over the web. sub a { sub b { print "In B\n"; } } b(); how come I can call b() from outside its scope and it works? I know its a bad practice to do it, and I dont do it, I use closured and such for these cases, but just saw that. Ven'Tatsu Subroutines are stored in a global namespace at compile time. In your example b(); is short hand for main::b(); . To limit visibility of a function to a scope you need to assign an

I'm just curious why one would choose to use an anonymous subroutine, versus a named one, in Perl. Thanks. innaM You can store anonymous subs in arrays, hashes and scalars. You can build them at runtime You can pass them as arguments to other functions. You get to keep variables in the surrounding scope. The last point is probably the most important, because it's often the most unexpected facet of named vs. anonymous subroutines in Perl. Example: sub outer { my $a = 123; sub inner { print $a, "\n"; } # At this point, $a is 123, so this call should always print 123, right? inner(); $a = 456; }