Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
...
print "\nBrowserUk's fix:\n\n";
$hash->{name} = ($i eq 'one') ? "hello" . "world" : 'nothing';
printf "name: %s, i: %s\n", $hash->{name}, $i;
  2. or download this
    22:46 >perl 801_SoPW.pl
Useless use of a constant ("nothing") in void context at 801_SoPW.pl l
+ine 21.
...
name: helloworld, i: one

22:46 >