advanced code snippet search

Posted By

noah on 07/03/07


Tagged

jpg file html images write slideshow create gallery 2003


Versions (?)

Who likes this?

1 person have marked this snippet as a favorite

wirenaught


Make a list of JPEGs into a slide show

 / Published in: Perl
 

Show jpegs one-per-page on a series of hyperlinked web pages. Purpose was to provide a linear viewing mechanism for jpegs on my Palm Tungsten C.

Expand | Embed | Plain Text 
  1. #! /usr/bin/perl -w
  2. use strict;
  3.  
  4. ############################################################
  5. #                                                          #
  6. #                                                          #
  7. #                                                          #
  8. #                  NOAH SUSSMAN                            #
  9. #                                                          #
  10. #                  showserial.pl                           #
  11. #                                                          #
  12. #                Created 10/8/3 at 1.41am                  #
  13. #                                                          #
  14. #    Show jpegs one-per-page on a series of hyperlinked    #
  15. #    web pages.  Purpose is to provide a good _linear_     #
  16. #    viewing mechanism for jpegs on the palm.              #
  17. #    Adapted from showsm.pl                                #
  18. #                                                          #
  19. #                                                          #
  20. ############################################################
  21.  
  22.  
  23. my @images;
  24.  
  25. while (<*\.jp*>) {
  26.     push @images, $_;  #read image filenames into a list
  27. }
  28.  
  29. shift @images;  #first image is never the subject of  a "next" hyperlink
  30.  
  31. while (<*\.jp*>) {  #regex captures any filename with extension beginning "JP"
  32.  
  33.     my $next_file;
  34.     $next_file = $images[0]; #read the next filename into $next_file
  35.     shift @images; #manually discard the value we just read into $next_file
  36.  
  37.     my $out="$_";
  38.     $out =~ s/jpeg/html/gio;
  39.     open OUT, ">$out" or die "Cannot open $out for write :$!";
  40.  
  41.  
  42.     if ($next_file){
  43. 	#print $next_file;
  44. 	$next_file =~ s/jpeg/html/gio;
  45. 	print OUT "<a href=\"$next_file\">";
  46.     }
  47.  
  48.     print OUT "<html><head><title>$_</title></head><body>\n";
  49.     print OUT "<img src=\"$_\" >\n";  #an image tag points to each file name
  50.     print OUT "</body></html>";
  51.  
  52.  
  53.     if ($next_file){
  54. 	print OUT "</a>";
  55.     }
  56. }

Report this snippet  

You need to login to post a comment.