Help for this page

Select Code to Download


  1. or download this
    if($filename ne "." && $filename ne ".." &&
 substr($filename,length($filename)-4,4) eq ".jpg")
  2. or download this
    
print FIL "<pic$t name=\"$nfile\"></pic$t>\n";
  3. or download this
    
print FIL qq(<pic$t name="$nfile"></pic$t>\n)";