Help for this page

Select Code to Download


  1. or download this
    #!perl
use strict;
...
is( sprintf('%0.5f',1-"$ev") , '0.00000', '(1-"$ev") is approx. 0' );

cmp_ok( $ev, '!=', 0, '$ev should not equal 0');
  2. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/