Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -lw
use strict ;
...
print "keys = $keys" ;

printf "keys=%d\n", keys(%r) ;
  2. or download this
    keys = 3
Argument "c" isn't numeric in printf at ./t12.pl line 12.
keys=0
  3. or download this
    printf "keys=%d\n", (my $sc = keys(%r)) ;