Help for this page

Select Code to Download


  1. or download this
    open (INF,"sortby_list.dat");
@file=<INF>;
close(INF);
  2. or download this
    @file = (a..z);
  3. or download this
      if (-e $fitem_pathname) {
    if (-d $fitem_pathname) {
...
      }
    }
  }
  4. or download this
      if (-e $fitem_pathname  && -d $fitem_pathname) {
      unless ($_ eq ".." || $_ eq ".") {
...
        }
      }
  5. or download this
    
if($_ =~ m/^[$FORM{'sortby'}]/
  6. or download this
    
if($_ =~ m/^$FORM{'sortby'}/i)