Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Getting Started with Inline::C

by derby (Abbot)
on Mar 12, 2002 at 13:52 UTC ( [id://151114] : perltutorial . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
    void hello_inline( ) {
            printf( "Hello World. Best Regards from Inline\n" );
    }
    
  2. or download this
    #!/usr/bin/perl
    
    ...
      serv_destroy(serv_list);
      return 1;
    }
    
  3. or download this
    #!/usr/bin/perl -w
    
    ...
      serv_destroy(serv_list);
      Inline_Stack_Done;
    }
    
  4. or download this
    #!/usr/bin/perl -w
    
    ...
      serv_destroy(serv_list);
      Inline_Stack_Done;
    }
    
  5. or download this
    Benchmark: timing 500 iterations of inline, pure...
        inline:  3 wallclock secs ( 2.67 usr +  0.38 sys =  3.05 CPU) @ 16
    +3.93/s (n=500)
    ...
    Benchmark: timing 500 iterations of inline, pure...
        inline:  3 wallclock secs ( 2.63 usr +  0.41 sys =  3.04 CPU) @ 16
    +4.47/s (n=500)
          pure:  8 wallclock secs ( 8.62 usr +  0.15 sys =  8.77 CPU) @ 57
    +.01/s (n=500)