Help for this page

Select Code to Download


  1. or download this
    my $i=0;
map {$keywordhash{$_}=(++$i);} @keywords;
  2. or download this
    %keywordhash = map {$_ => 1} @keywords;
  3. or download this
    do {$keywordhash{$_}=(++$i);} for @keywords;
  4. or download this
    %keywordhash = map { $_ => ++$i } @keywords;
  5. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/