what you want I mean! thanks On Fri, Jan 27, 2012 at 5:45 PM, timothy adigun <2teezp...@gmail.com> wrote:
> Hi Satya, > > On Fri, Jan 27, 2012 at 5:29 PM, Nemana, Satya <snem...@sonusnet.com>wrote: > >> Hi Rob >> >> All I got from this exercise is >> >> ./startAutomation syntax OK >> >> and a complete print of the startAutomation perl file with the fully >> qualified function names, all the variables used in the program at the >> beginning of the program. >> >> From the time command output, as used in the command "time /ats/bin/perl >> -w -MO=Deparse ./startAutomation " >> I have >> 92.765u 110.414s 3:24.11 99.5% 0+0k 0+0io 0pf+0w >> >> How do I know module wise, how much time perl is taking for compiling >> each of the modules and where perl is spending time in the compilation? >> > > I think the module you need is Benchmark. > Please do on CLI: perldoc Benchmark. Am sure you get want to want! > >> >> How do I enable more verbose in the compilation or execution of the >> program? >> >> Thanks, >> Satya >> >> -----Original Message----- >> From: Rob Dixon [mailto:rob.di...@gmx.com] >> Sent: 27 January 2012 15:19 >> To: beginners@perl.org >> Cc: Nemana, Satya >> Subject: Re: How to compile just the current perl module, ignoring all >> the other included modules >> >> On 27/01/2012 12:58, Nemana, Satya wrote: >> > Hi Shawn >> > >> > How do I use this option of -MO=Deparse when executing a perl script >> > with an embedded #! Prompt? >> > >> > Our scripts start with the line >> > #!/ats/bin/perl -w >> > >> > I tried adding the parameters here, but got the following errors >> > >> > Too late for "-MO=Deparse" option at ./startAutomation line 1. >> > BEGIN { $^W = 1; } >> > >> > Then there are a host of other environment variables set before >> > executing the functions in the modules by a call to >> > >> > unless ( my $return_val = do $test_suite_list_file ) { >> > die "ERROR: Couldn't parse test suite file >> \"$test_suite_list_file\": $@\n" if $@; >> > die "ERROR: Couldn't 'do' test suite file >> \"$test_suite_list_file\": $!\n" unless defined $return_val; >> > die "ERROR: Couldn't run test suite file >> > \"$test_suite_list_file\": $!\n" unless $return_val; >> > >> > is there other way of using the option -MO=Deparse?? >> >> No, the module has to be mentioned on the comnmand line, but you can say >> >> /ats/bin/perl -w -MO=Deparse prog.pl >> >> which will have the desired effect. You can also add the additional files >> in the same command if necessary using the -f option like this >> >> /ats/bin/perl -w -MO=Deparse -f file1.pl -f file2.pl prog.pl >> >> Also you should be using >> >> use warnings; >> >> instead of -w in the #! line. >> >> HTH, >> >> Rob >> > > > > -- > Tim > > -- Tim
