Help for this page

Select Code to Download


  1. or download this
      if (($fname =~ /\./) && !($fname =~ /\.$/)) {
    $fname = lc($fname);
...
  else {
    $hash{"no ext"}++;
  }
  2. or download this
        if ($#temp >0)
        {$hash{@temp[-1]}++}
    else
        {$hash{""}++}