Sponsored Content
Top Forums Shell Programming and Scripting How to use bench mark module for sub routines in perl? Post 302517699 by DGPickett on Wednesday 27th of April 2011 01:08:52 PM
Old 04-27-2011
Not that I know PERL much, but Benchmark - perldoc.perl.org says:
cmpthese - print results of timethese as a comparison chart
and:
Code:
    # cmpthese can be used both ways as well
    cmpthese($count, {
'Name1' => '...code1...',
'Name2' => '...code2...',
    });
 
    cmpthese($count, {
'Name1' => sub { ...code1... },
'Name2' => sub { ...code2... },
    });
 
    # ...or in two stages
    $results = timethese($count, 
        {
    'Name1' => sub { ...code1... },
    'Name2' => sub { ...code2... },
        },
'none'
    );
    cmpthese( $results ) ;

I suggest the first form with no & and in single quotes.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Replace Perl Module name in all Perl scripts

I want to replace a Perl module name in all my Perl Scripts in the cgi-bin directory. How is it possible? I have the following statement in my scripts use myUtil; I want to change it to use myUtil777; Regards, Rahul (2 Replies)
Discussion started by: rahulrathod
2 Replies

2. Shell Programming and Scripting

Brain Bench Certification

Hi, Can anybody provide me Pointers to Practice tests or any Material to prepare for Brainbench certification in Unix Shell Scripting? Also how good is this Certification for UNIX programmers. Is it worth it? I'm planning to take this certification in 2 weeks. Kindly let me know all the pros... (0 Replies)
Discussion started by: pavan_emani
0 Replies

3. Shell Programming and Scripting

Perl Module Help

Hi All, I am using a perl module Win32::AdminMisc in my perl script. When i running in activestate perl v5.10.0 it shows folling error --- Can't locate loadable object for module Win32::AdminMisc in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at example.pl Please reply. ... (7 Replies)
Discussion started by: suprcool
7 Replies

4. Shell Programming and Scripting

Help with Perl Module

I dont know if this is a dumb question, but I am unable to move ahead and need help - There is a perl module called Header.pm which was written by someone else. I am trying to write a simple perl script which uses a function provided by the module. The function has been exported by the module... (9 Replies)
Discussion started by: NewDeb
9 Replies

5. Shell Programming and Scripting

Perl Module

Hi, Please help me!! Im wondering if anyone can help me with a problem i have with some perl modules. My problem is: I'm trying to connect remote host to a unix box from a windows machine. So i'm developing an application to do this. I'm programming it in perl with tcl/tk Gui interface.... (13 Replies)
Discussion started by: Phi01
13 Replies

6. Shell Programming and Scripting

Which Perl Module to use?

Hi, I need to read an excel binary file and write the data to a text file. Is it possible using Spreadsheet-ParseExcel-0.58 ? If not, is there any module available in CPAN to do this? Thanks, Js (1 Reply)
Discussion started by: jisha
1 Replies

7. Shell Programming and Scripting

calling perl subroutine from perl expect module

All, Is it possible to call a subroutine from the perl expect module after logging to a system that is within the same program. My situation is I need to run a logic inside a machine that I'm logging in using the expect module, the logic is also available in the same expect program. Thanks,... (5 Replies)
Discussion started by: arun_maffy
5 Replies

8. Linux Benchmarks

ga 970a ud3 bench

fx6100 4.0ghz | BYTE UNIX Benchmarks (Version 3.11) | System -- Linux nick-GA-970A-UD3 2.6.35-32-generic #66-Ubuntu SMP Mon Feb 13 21:04:32 UTC 2012 x86_64 GNU/Linux | Start Benchmark Run: Sun Mar 18 16:59:29 CDT 2012 | 2 interactive users. Dhrystone 2 without register... (1 Reply)
Discussion started by: thirnick
1 Replies

9. Shell Programming and Scripting

Perl SSH without a perl module

I'm trying to create a perl script that will do 1 SSH session, but be able to write multiple commands to the session and receive multiple outputs. I know there are modules out there like Net:SSH::Perl, but I'm not allowed to use it. I was thinking of doing something like an open3 on an ssh... (4 Replies)
Discussion started by: mrwatkin
4 Replies

10. Shell Programming and Scripting

Perl module

I am recieiving an out of memory issue in my perl module while updating the records in the oracle table. Let me know what are the check or troubleshoot steps need to be done from my end to fix the issue. (1 Reply)
Discussion started by: ramkumar15
1 Replies
Gtk2::SourceView2::PrintCompositor(3pm) 		User Contributed Perl Documentation		   Gtk2::SourceView2::PrintCompositor(3pm)

NAME
Gtk2::SourceView2::PrintCompositor HIERARCHY
Glib::Object +----Gtk2::SourceView2::PrintCompositor METHODS
printcompositor = Gtk2::SourceView2::PrintCompositor->new ($buffer) o $buffer (Gtk2::SourceView2::Buffer) printcompositor = Gtk2::SourceView2::PrintCompositor->new_from_view ($view) o $view (Gtk2::SourceView2::View) string = $compositor->get_body_font_name $compositor->set_body_font_name ($font_name) o $font_name (string) double = $compositor->get_bottom_margin ($unit) o $unit (Gtk2::Unit) $compositor->set_bottom_margin ($margin, $unit) o $margin (double) o $unit (Gtk2::Unit) buffer = $compositor->get_buffer $compositor->draw_page ($context, $page_nr) o $context (Gtk2::PrintContext) o $page_nr (integer) string = $compositor->get_footer_font_name $compositor->set_footer_font_name ($font_name) o $font_name (string or undef) $compositor->set_footer_format ($separator, $left, $center, $right) o $separator (boolean) o $left (string or undef) o $center (string or undef) o $right (string or undef) string = $compositor->get_header_font_name $compositor->set_header_font_name ($font_name) o $font_name (string or undef) $compositor->set_header_format ($separator, $left, $center, $right) o $separator (boolean) o $left (string or undef) o $center (string or undef) o $right (string or undef) boolean = $compositor->get_highlight_syntax $compositor->set_highlight_syntax ($highlight) o $highlight (boolean) double = $compositor->get_left_margin ($unit) o $unit (Gtk2::Unit) $compositor->set_left_margin ($margin, $unit) o $margin (double) o $unit (Gtk2::Unit) string = $compositor->get_line_numbers_font_name $compositor->set_line_numbers_font_name ($font_name) o $font_name (string or undef) integer = $compositor->get_n_pages boolean = $compositor->paginate ($context) o $context (Gtk2::PrintContext) double = $compositor->get_pagination_progress boolean = $compositor->get_print_footer $compositor->set_print_footer ($print) o $print (boolean) boolean = $compositor->get_print_header $compositor->set_print_header ($print) o $print (boolean) integer = $compositor->get_print_line_numbers $compositor->set_print_line_numbers ($interval) o $interval (integer) double = $compositor->get_right_margin ($unit) o $unit (Gtk2::Unit) $compositor->set_right_margin ($margin, $unit) o $margin (double) o $unit (Gtk2::Unit) integer = $compositor->get_tab_width $compositor->set_tab_width ($width) o $width (integer) double = $compositor->get_top_margin ($unit) o $unit (Gtk2::Unit) $compositor->set_top_margin ($margin, $unit) o $margin (double) o $unit (Gtk2::Unit) wrapmode = $compositor->get_wrap_mode $compositor->set_wrap_mode ($wrap_mode) o $wrap_mode (Gtk2::WrapMode) PROPERTIES
'body-font-name' (string : default undef : readable / writable) Name of the font to use for the text body (e.g. "Monospace 10") 'buffer' (Gtk2::SourceView2::Buffer : default undef : readable / writable / construct-only) The GtkSourceBuffer object to print 'footer-font-name' (string : default undef : readable / writable) Name of the font to use for the page footer (e.g. "Monospace 10") 'header-font-name' (string : default undef : readable / writable) Name of the font to use for the page header (e.g. "Monospace 10") 'highlight-syntax' (boolean : default true : readable / writable) Whether to print the document with highlighted syntax 'line-numbers-font-name' (string : default undef : readable / writable) Name of the font to use for the line numbers (e.g. "Monospace 10") 'n-pages' (integer : default -1 : readable) The number of pages in the document (-1 means the document has not been completely paginated). 'print-footer' (boolean : default false : readable / writable) Whether to print a footer in each page 'print-header' (boolean : default false : readable / writable) Whether to print a header in each page 'print-line-numbers' (Glib::UInt : default 1 : readable / writable) Interval of printed line numbers (0 means no numbers) 'tab-width' (Glib::UInt : default 8 : readable / writable) Width of a tab character expressed in spaces 'wrap-mode' (Gtk2::WrapMode : default "none" : readable / writable) Whether to wrap lines never, at word boundaries, or at character boundaries. ENUMS AND FLAGS
enum Gtk2::Unit o 'pixel' / 'GTK_UNIT_PIXEL' o 'points' / 'GTK_UNIT_POINTS' o 'inch' / 'GTK_UNIT_INCH' o 'mm' / 'GTK_UNIT_MM' enum Gtk2::WrapMode o 'none' / 'GTK_WRAP_NONE' o 'char' / 'GTK_WRAP_CHAR' o 'word' / 'GTK_WRAP_WORD' o 'word-char' / 'GTK_WRAP_WORD_CHAR' SEE ALSO
Gtk2::SourceView2, Glib::Object COPYRIGHT
Copyright (C) 2009 by Emmanuel Rodriguez perl v5.14.2 2011-11-16 Gtk2::SourceView2::PrintCompositor(3pm)
All times are GMT -4. The time now is 05:47 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy