PPT Slide

• print “<select name=“fname”>\n”;

• foreach $ftmp (sort @fnames) {

• if ($ftmp =~ /(.*)\.cgi/ || $ftmp =~ /^\.(.*)/ ||

• $ftmp =~ /(.*)\.gif/ || $ftmp =~ /(.*)\.jpg/ ||

  • $ftmp =~ /(.*)\.gz/ || $ftmp =~ /(.*)\.z/ ||

• $ftmp =~ /(.*)\.exe/ || $ftmp =~ /(.*)\.class/) {

• next;

• }

• print “<option>$ftmp\n”;

• }

• print “</select>\n”; # end of scroll list under form

Previous slide

Next slide

Back to first slide

View graphic version