Help for this page

Select Code to Download


  1. or download this
    # Cargo-cultish version with a temp variable.
my $_name  = param('name') || '';
my ($name) = $_name =~ /^([[:alpha:]]+)$/;
  2. or download this
    # BrowserUk's cargo-cultish only version.
my ($name) = (param('name') || '') =~ /^([[:alpha:]]+)$/;
  3. or download this
    # My preferred version.
my ($name) = param('name') =~ /^([[:alpha:]]+)$/;