Problème avec foreach en perl
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:
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;
} |
