Help for this page

Select Code to Download


  1. or download this
    #define PERL_NO_GET_CONTEXT
    #include "EXTERN.h"
    ...
            exit(1);
        }
    
  2. or download this
    package XHVKC;
    
    ...
    
    1;
    __END__
    
  3. or download this
    use 5.010000;
    use ExtUtils::MakeMaker;
    ...
        # Un-comment this if you add C files to link with later:
        # OBJECT            => '$(O_FILES)', # link all the C files too
    );
    
  4. or download this
    #!/usr/bin/perl -w
    use XHVKC;
    ...
         for (int(rand 6)+1) {$o->getKC($_);}
    }
    print "time was ".(time-$time)."\n";