Re^2: How to write macro in perl

Hi Monks! Thanks for your questions. Please find the answers below. A macro to do what? -I want macro do following activity - To check whether the variable are define before using - Log the value passed to the variable entering/leaving a function i.e. to printing the trail of Input and output variable. - Memory statistic before entering and leaving the function to have idea about the memory status. I don't want that code to be part of the final product. I need those things for development/debugging purpose. What are your inputs? Input is .pl file What processing do you need to do? - To check whether the variable are define before using - Log the value passed to the variable entering/leaving a function i.e. to printing the trail of Input and output variable. - Memory statistic before entering and leaving the function to have idea about the memory status. What is your expected output? Expected output that all the above should be control with #ifdef , so that these things help in debugging but i don't want that to be part of the final product. What have you tried so far? I am trying to learn ExtUtils::PerlPP but i have not comprehand it properly. I hope, I have explained my situation. Please let me know , if you need more input from me. Regards, Mihir

Comment on Re^2: How to write macro in perl

Replies are listed 'Best First'.
Re^3: How to write macro in perl by TGI (Parson) on Jan 11, 2008 at 18:34 UTC
It looks to me like you are trying to do some profiling of your code as it runs in a test environment. Take a look at the Devel modules, you may be able to find a profiler that does what you want. If you want to inject code into subroutines for testing, you might find Hook::LexWrap useful. Update: I'd find it a lot easier to read your posts if you added some formatting to your nodes. When you have long lists of things, us an ordered or unordered list. Keep you paragraphs short. Whitespace helps improve readability. TGI says moo	[reply]
Re^3: How to write macro in perl by BrowserUk (Patriarch) on Jan 11, 2008 at 18:49 UTC
Take a look at Smart::Comments for debug support with macro-like abilities that disappears completely when disabled. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply]
Re^3: How to write macro in perl by apl (Monsignor) on Jan 11, 2008 at 11:02 UTC
It sounds like you want to learn Perl. I'd suggest you go to the O'Reilly web-site and look at their offerrings.	[reply]
Re^3: How to write macro in perl by McDarren (Abbot) on Jan 11, 2008 at 18:24 UTC
mihirjha, I'm afraid that I'm still not clear about what it is that you are trying to do. You mention checking whether or not a variable is defined. Well, Perl has an inbuilt function for this, called defined. A very simple example of its usage is as follows: `#!/usr/bin/perl -l use strict; use warnings; my $foo = 1; my $bar; print '$foo is ', defined $foo ? "defined" : "not defined"; print '$bar is ', defined $bar ? "defined" : "not defined";` [download] Which prints: `$foo is defined $bar is not defined` [download] You also mention that you want to track the value of a variable. The easiest way to do this is with print, or perhaps something like Data::Dumper. If, as apl suggests, you are new to Perl and want to learn, then I would suggest that a good place to start would be the Tutorials section of the Monastery. In any case, welcome to PerlMonks. Darren :)	[reply] [d/l] [select]