Problème avec foreach en perl

**zn415** · 30/05/2008, 21h11

Bonjour, je souhaiteraus utiliser un foreach dans mon programme mais il semble que je fais une erreur de syntaxe, pour le moment je cherche mais je ne trouve pas d'explication.

Voici mon code qui bug:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
 
 
#!/usr/bin/perl 
 
use strict;
use CGI;
use Image::Magick;
 
 
print "Content-Type: text/html\n\n"; # On affiche l'en-tête HTML indispensable
print "";
print "<HTML><HEAD><TITLE>test.cgi</TITLE></HEAD>";
print "<BODY bgcolor=#ffffff>";
print "<Font color=#000000>";
print "<center><H1>Test.cgi</H1></center><br><br>";
 
 
$ENV{"TMPDIR"} = "/home/www/c66ef50fc42507952be1ce0e90544e5/web/data/tmp/";
 
 
@tab=("test1-1.gif","test1-2.gif");
 
foreach $var (@tab) {
 
my $status;
$status = $magick->Read($var); 
warn "Read failed: $status"  if $status;
 
$status = $magick->Resize(geometry => '300x300');
warn "Read failed: $status" if $status;
 
$status = $magick->Write("jpg:".$var);
warn "Read failed: $status" if $status;
 
 
 
 
}