Variable et fonction ?

Version imprimable

Bonjour à tous,

Je me demande comment on fait pour passer les variables à une fonction, par exemple:

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
 
 
my @text_output = ();
my @files = ("testfichier1.txt","testfichier2.txt","testfichier3.txt");
my @count = (0,0);
 
verification_fichier(@files,0,@text_output);
 
sub verification_fichier {
        my (@v_files,$v_count,$v_sortie) = @_ ;
        my $v_count_tot = $v_count + 1;
 
        foreach(@v_files) {
                if ( -e $_ ){
                        $count[$v_count]++;
                        $count[$v_count_tot]++;
                        push($v_sortie, "OK \t $_");
                        }
                else {
                        $count[$v_count_tot]++;
                        push($v_sortie, "ERREUR \t $_");
                        }
                }
}

Comme vous voyez, j'effectue un push, comme ajouter une ligne vers la variable @text_output via $v_sortie.

Est ce que c'est bien correct ce code?

Merci pour les infos.

Bien à vous

Il faut utiliser des références:

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
 
use strict;
use warnings;
 
 
my @text_output = ();
my @files = ("testfichier1.txt","testfichier2.txt","testfichier3.txt");
my @count = (0,0);
 
verification_fichier(\@files,0,\@text_output);
 
sub verification_fichier {
        my ($v_files,$v_count,$v_sortie) = @_ ;
        my $v_count_tot = $v_count + 1;
 
        foreach(@$v_files) {
                if ( -e $_ ){
                        $count[$v_count]++;
                        $count[$v_count_tot]++;
                        push(@$v_sortie, "OK \t $_");
                        }
                else {
                        $count[$v_count_tot]++;
                        push(@$v_sortie, "ERREUR \t $_");
                        }
                }
}

19/03/2007, 15h20
SkyDev

Ca y est, ça marche.

Merci bcq ;-)