Discussion :

[africanwinners]

Bonjour à tous

Je veux faire une simple fonction qui calcule le nombre de mots dans un fichier, j'ai fait un programme, mais il y a un problème de référence

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
 
#!/usr/bin/perl
open(FIC, $ARGV[0]);
 
while (<FIC>) {   #ici je met chaque ligne du fichier dans une case du tableau
my $ligne=$_;
chomp $ligne; 
 
@a[$i]=$ligne;
 
$i++;
 
}
 
 
# Appel de la fonction calcul avec un argument
# qui est une référence pour un tableau.
print calcul(\@a);
 
 
 
sub calcul
{
my $res=0;
my $reftab=$_;
foreach my $c(@$reftab){  #ici on déréférence le tableau 
print "$res";
$res++;
}
return($res);
}

ça compile et ça rend comme résultat 0
merci pour votre aide

[Lolo78]

Pourquoi faire simple quand on peut faire compliqué?

Voici un petit script uniligne qui compte le nombre de mots (en considérant que les mots sont séparés par des espaces) du fichier data.txt:

Code :

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

1
2
$ perl -e '$a += split while <>; print "$a\n";' data.txt
14

[africanwinners]

je peux faire simple avec un simple script, mais j'ai besoin de le faire avec une fonction.
Je dois comprendre mon erreur

[Lolo78]

La principale erreur est cette ligne:

Code :

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

 my $reftab=$_;

Les arguments de la fonction sont dans le tableau @_, pas dans la variable $_. Du coup, $reftab n'est pas défini. Remplace cette ligne par la suivante:

Code :

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

 my $reftab = shift;

Ensuite, une fois cela corrigé, ton code décompte au mieux le nombre de lignes en entrée, et non le nombre de mots.

Sinon, si tu tiens à passer par un tableau, tu peux simplifier l'alimentation de ton tableau:

Code :

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

1
2
3
4
5
open FIC, @ARGV[0];
@a = <FIC>;
# @a contient maintenant toutes les lignes du fichier
print calcul(\@a);
...

Enfin, tu devrais utiliser les directives:

Code :

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

1
2
use strict;
use warnings;

[africanwinners]

Merci pour votre réponse
ça marche bien maintenant j'ai juste fait:

Code :

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

$reftab=shift;

au lieu de

Code :

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

my $reftab=$_;

encore une question j'ai pas compris l’utilité de la fonction SHIFT, car d'après ce que j'ai compris elle prend le premier élément d'un tableau, mais dans notre exemple on veut tous les éléments du tableau

Merci

[Lolo78]

Bonjour,

shift prend le premier élément du tableau passé en argument. Utilisé seul, sans argument, comme ici, dans une fonction, il prend par défaut le premier élément du tableau @_, qui contient les paramètres passés à la fonction.

A la place de:

Code :

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

my $reftab = shift;

Tu aurais pu écrire:

Code :

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

my $reftab = shift @_;

ou

Code :

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

my $reftab = @_[0];

ou encore

Code :

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

my ($reftab) = @_;

cela aurait eu le même effet: dans les quatre cas, tu récupères le premier élément du tableau @_ (sauf que les deux premières syntaxes, avec shift, retirent le premier élément du tableau @_ en même temps qu'elles le lisent, alors que les deux dernières ne font que lire le premier élément sans le retirer du tableau @_, mais ça ne change rien pour ce que tu veux faire, car tu n'a plus besoin de lire ce tableau @_ ensuite).

Shift te permet donc de récupérer le premier paramètre passé à la fonction (dans ton cas, il n'y en a qu'un seul: la référence au tableau @a que tu as alimenté précédemment).

Cette référence te permet ensuite d'accéder au contenu du tableau @a alimenté précédemment et la déréférençant.

Sinon, c'est une mauvaise idée que d'avoir retiré le "my". A l'exception des scripts unilignes ou programmes simple de 3 ou 4 lignes, je te conseille vraiment de déclarer toutes tes variables lexicales avec "my" et d'utiliser les instructions

Code :

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

1
2
use strict;
use warnings;

car cela permettra au compilateur de t'informer de certains bugs (par exemple, une faute de frappe sur le nom d'une variable, une valeur indéfinie, etc.) et te facilitera le travail de mise au point de ton programme.