Help for this page

Select Code to Download


  1. or download this
    if ("\U$listaccountlocked[1]" eq 'TRUE') {
  2. or download this
    if (uc($listaccountlocked[1]) eq 'TRUE') {
  3. or download this
    $ perl -MO=Concise,-exec -e'my $y = "\U$x";'
1  <0> enter 
...
6  <2> sassign vKS/2
7  <@> leave[1 ref] vKP/REFC
-e syntax OK