Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
use Cwd;
...

warn "saved $out\n";
  2. or download this
    #!/usr/bin/perl
use strict;
use Cwd;
...
print DATEI ($image1->jpeg($jpeg_quality));
close(DATEI);
warn "saved $out\n";
  3. or download this
    [leo@mescaline ~]$ perl test2.pl
panic: malloc at test2.pl line 15.