Help for this page

Select Code to Download


  1. or download this
    if ( $control eq $code ) { warn("+++ $name: strings DO match\n"); }
if ( $control lt $code ) { warn("+++ $name: control lt code\n"); }
if ( $control gt $code ) { warn("+++ $name: control gt code\n"); }
  2. or download this
    $ perl -Mstrict -Mwarnings -e '
my $code = q{M};
...
M equal M
Z more M
$