Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • by jcavanaugh (1007) on 2004.02.12 12:01 (#28366)
    Are you using it for digital photos & auto rotation?? If so can you post the script, it will save me from writing the same thing myself. -- John Cavanaugh
    • This was my simple test script for GD. Ultimately it'll be included in a CGI upload facility I wanted to use, but it gives an idea of what I was after:

      #!/usr/bin/perl -w use strict; use GD; my $start = 'D_00a.jpg'; my $image = 'D_00b.jpg'; my $thumb = 'D_00b.png'; my $rotate = 90; # read in current image my $i = GD::Image->newFromJpeg($start) ; print("read image error: [$start]\n") unless $i; return 1 unless $i; # rotate clockwise by $angle degrees my $p = $i->copyRotate90() if($rota

    • Ignore that last one, I've just discovered that the submit and preview buttons for comments are in a different order to that of journal entries. Bugger!

      Here's the real script:

      #!/usr/bin/perl -w
      use strict;

      use GD;

          my $start = 'D_00a.jpg';
          my $image = 'D_00b.jpg';
          my $thumb = 'D_00b.png';

          my $rotate = 90;

          # read in current image
          my $i = GD::Image->newFromJpeg($start) ;
          print("read image error: [$start]\n")