Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]575[/thread]

* interpretieren



<< >> 4 Einträge, 1 Seite
Strazke
 2005-09-18 04:08
#5625 #5625
User since
2005-07-11
120 Artikel
BenutzerIn
[default_avatar]
Hallo, ich habe jetzt einen kleinen Thumbnailgenerator:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#! /usr/bin/perl -w

use strict;
use Image::Magick;

my $img = Image::Magick->new;
my $filename="";
my $num_frames=0;
my (@pfad,$pfad);

foreach (@ARGV) {
@pfad = split("/",$_);
$filename = pop(@pfad);
$pfad = join("/",@pfad);
$img->Read($pfad."/".$filename);
$num_frames = scalar @$img;
print "Number of frames: $num_frames\n";
$#$img = 0;
my ($w,$h) = $img->Get("width","height");
print "Width: $w\nHeight: $h\n";
my $x=$w/80;
if(($h/$x) > 80) {
$x = $h/80;}
print "New size:\nWidth: ".($w/$x)."\nHeight: ".($h/$x)."\n";
$img->Resize(width=>($w/$x),height=>($h/$x));
$img->Write($pfad."/thm_".$filename);
}


Das Problem ist, dass ich nicht einfach sagen kann: /dir/*.gif
oder sowas.
betterworld
 2005-09-18 05:19
#5626 #5626
User since
2003-08-21
2614 Artikel
ModeratorIn

user image
[quote=Strazke,18.09.2005, 02:08]oder sowas.[/quote]
Hilft Dir eventuell "perldoc -f glob"?
esskar
 2005-09-18 06:19
#5627 #5627
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
oder, perldoc -f opendir
Strazke
 2005-09-18 15:20
#5628 #5628
User since
2005-07-11
120 Artikel
BenutzerIn
[default_avatar]
danke
<< >> 4 Einträge, 1 Seite



View all threads created 2005-09-18 04:08.