Help for this page

Select Code to Download


  1. or download this
    $ cat 645310.pl
use strict;
...
            Rate Name7 Name8
Name7  9442579/s    --  -74%
Name8 35826879/s  279%    --
  2. or download this
    $ perl -MO=Deparse,-x,-p -e 'use constant VERBOSE => 0; if ( VERBOSE )
+ { v_print3( "foo" ) }; '
use constant ('VERBOSE', 0);
'???';
-e syntax OK