Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[gelöst]](/battie/theme/default/icons/tick.png "gelöst"){kind=icon}
+23 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Homepage]](/battie/theme/default/homepage.gif)
+2 replies
1 2 3 4 5 6 7 8 9 10
my $v=$magick->Get('width')/$magick->Get('height'); if($v > 1) { # breiter als hoch } elsif($v < 1) { # höher als breit } else { # quadratisch }
+19 replies
Image::ExifTool, Imager können diese EXIF-Tags auslesen.
+18 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Tk;
use GD;
use Image::Magick;
use Image::Size;
my $imageFile = "/home/student/Dokumente/Sonic_4_hero_version_2.jpg";
my $image = new Image::Magick;
$image->Read("$imageFile") or die;
$image->Scale('100 x 100');
+4 replies
$image->Read($imageFile) ...
+3 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
use Tk;
use GD;
use Image::Magick;
use Image::Size;
my $imageFile = "/home/student/Sonic_4_hero_version_2.jpg";
my $image = new Image::Magick;
my ($x, $y) = imgsize($imageFile);
printf "$x..$y";
+2 replies
+2 replies
+11 replies1
2
3
4
5
6
my $imageFile = "/home/student/Dokumente/Sonic_4_hero_version_2.jpg";
my $image = new Image::Magick;
my $res = $image->Read($imageFile);
warn $res if $res;
$res = $image->Scale('100 x 100');
warn $res if $res;
+10 replies
+9 replies
1
2
3
4
5
6
7
8
my $imageFile = "/home/student/Dokumente/Sonic_4_hero_version_2.jpg";
my $image = new Image::Magick;
my $res = $image->Read($imageFile);
warn $res if $res;
$res = $image->Scale('100 x 100');
warn $res if $res;
my ($x, $y) = imgsize($res);
printf "$x...$y";
+7 replies
+6 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
my $imageFile = "/home/student/Dokumente/Sonic_4_hero_version_2.jpg";
my $image =Image::Magick->new;
$image->ReadImage($imageFile);
$image->Set(geometry=>'100x100') or die "$!";
$image->Write('bild.png');
my $witdh = $image->Get('columns');
printf $witdh;
+5 replies
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
#! /usr/bin/perl use strict; use warnings; use Image::Magick; my $imageFile = "/dev/shm/test.jpg"; my $image = new Image::Magick; my $res = $image->Read($imageFile); warn $res if $res; $res = $image->Scale('100 x 100'); warn $res if $res; my ($x, $y) = $image->Get('width', 'height'); printf "$x...$y\n";
+4 replies
+3 replies
+2 replies
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Powered by Battie]](/battie/img/powered.png)
