Größe von Bildern bestimmen (Allgemeines zu Perl)

renee

2005-04-12 13:25

User since
2003-08-04
14371 Artikel
ModeratorIn

Gibt es eine einfache Möglichkeit die Höhe von .gif- und .jpg-Bildern zu bestimmen?

Vielleicht auch ohne extra Module...

Wie wandle ich am besten .tiff und .png in .jpg oder .gif um?

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Crian

2005-04-12 13:47

User since
2003-08-04
5872 Artikel
ModeratorIn

Image::Size zur Größenbestimmung.
Ich "wandle" die Dateien meist per Grafikprogramm, aber die üblichen Verdächtigen wären GD und image (oder wie das jetzt genau heißt).

Image::Size ist pure Perl soweit ich das sehe. Du kannst den Code (viel pack und unpack...) ja sonst einfach so zu Deinem Projekt hinzufügen.\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Froschpopo

2005-04-12 13:49

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

use Image::Size;

my ($width, $height) = imgsize("bild.gif");

Crian

2005-04-12 13:53

User since
2003-08-04
5872 Artikel
ModeratorIn

es gibt neben imgsize auch noch andere nützliche Ausgabemöglichkeiten:

Code: (dl )

1
2

$size = html_imgsize("globe.gif");
# $size == 'width="60" height="40"'

und

Code: (dl )

1
2

@attrs = attr_imgsize("globe.gif");
# @attrs == ('-width', 60, '-height', 40)

(vgl. perldoc Image::Size)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Strat

2005-04-12 13:55

User since
2003-08-04
5246 Artikel
ModeratorIn

Image::Info muesste das auch koennen...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

renee

2005-04-12 14:03

User since
2003-08-04
14371 Artikel
ModeratorIn

@Crian: Mit Grafikprogramm ist schlecht möglich, da das ein Modul zur automatischen PDF-Erzeugung aus Twiki-Artikeln wird und deshalb nichts händisch gemacht werden kann...
Aber GD schaue ich mir mal an...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

renee

2005-04-12 14:08

User since
2003-08-04
14371 Artikel
ModeratorIn

Danke, mit CPAN:

Image::Size haut es wunderbar hin!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

ptk

2005-04-12 22:05

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Image::Size and Image::Info may be used to get information about an image file (like size, mime format etc.). I had some exotic jpegs which did not work with Image::Info, but worked with Image::Size.

Zum Konvertieren benutze ich meistens netpbm oder convert aus ImageMagick.

renee

2005-04-12 23:52

User since
2003-08-04
14371 Artikel
ModeratorIn

ich bin noch nicht zum Konvertieren gekommen, aber mit convert und GD habe ich ja jetzt zwei Alternativen...

Dann muss ich mich nur noch ums "Tabellenproblem" kümmern, dann werde ich alle nötigen TWiki-Artikel in PDFs wandeln ;)

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Strat

2005-04-13 18:17

User since
2003-08-04
5246 Artikel
ModeratorIn

wenn die qualitaet von GD zu schlecht sein sollte, kannst du auch auf die Schnittstelle zu ImageMagick (heisst, glaube ich, PerlMagick oder so aehnlich) ausweichen...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/