Help for this page

Select Code to Download


  1. or download this
    chdir("$contentdir") or die "Couldn't chdir ..., ";
opendir THISDIR, '.' or die "Couldn't opendir ..., ";
my @submenu = readdir THISDIR or die "Nothing to readdir, ";
close THISDIR; # really need a die here too :)
  2. or download this
    ($sub1, $sub2, $sub3) = split (/\_/, $_,3);
  3. or download this
    $sub3 = sort { $b <=> $a } $sub3;