home *** CD-ROM | disk | FTP | other *** search
/ European Smalltalk User Group 2004 September / esugcd.iso / Books-Tutorial-Lectures / Tutorials / ibm / pic / xbm / LINK_IMG_HTML < prev    next >
Encoding:
Text File  |  2002-05-06  |  906 b   |  28 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # this script who create a html file name dummy.html when is 
  4. # exercuted.  It will link all the readable and non text file
  5.  
  6. open(FIND, "find . -print |") || die "Couldn't run find: $!\n";
  7. open (OPENFILE, "> dummy.html");
  8.  
  9. FILE:
  10. while ($filename = <FIND>) {    
  11.     chop $filename;
  12.     #next FILE if -T $filename;      #don't want text file
  13.     next FILE if -d $filename;      #don't want sub directory
  14.     next FILE unless -r $filename;  #loop again unless readable file
  15.     if (!open(BINFILE, $filename)){
  16.         print STDERR "can't open $filename--continuing...\n";
  17.         next FILE;
  18.     }
  19.     while (<BINFILE>) {             #if readable file found
  20.         open(FIZZLE, ">> dummy.html");  #append to file
  21.         print $filename, "\n";
  22.         printf FIZZLE "<img src=\"$filename\">"; #print to file
  23.         printf FIZZLE " <a href=\"$filename\">";
  24.         printf FIZZLE " $filename</a><p> \n";
  25.         next FILE;
  26.     }
  27. }
  28.