Discussion :

[jasmer51]

Bonjour ,


je suis nouvelle dans Perl mais je dois l'utiliser car je prépare mon projet de Master recherche et je suis sur une partie ou je dois tester sous windows un programme Perl conçu sous l'unix

il m'affiche une erreur ! Can't modify single ref constructor in scalar assignment at c:\...fichier.pl line 192, near "$tname;"
Execution of c:\...fichier.pl aborted due to compilation errors

et voici le code:

Code :

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

1
2
3
4
5
6
7
sub setup_lst_hash {
    my ($tname, @hlst) = @_;a 
    $typename[$ntype]= $tname;  <= ligne 192
    foreach $line (@hlst) {
	&setup_item($ntype,$line);
    }
    $ntype++;

si quelqu'un a une idée
Merci d'avance

[Jedai]

Code :

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

my ($tname, @hlst) = @_;a

Le 'a' à la fin de la ligne est d'origine ?

--
Jedaï

[jasmer51]

Code :

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

my ($tname, @hlst) = @_;a

Le 'a' à la fin de la ligne est d'origine ?

--
Jedaï

ah oui ! tu as raison merci beaucoup !!

en tt cas j'ai 5500 lignes de code

j'aurai surement besoin de vous

[jasmer51]

un autre problème :

il me dit : cannot open c:\...fichier.txt at c:\...deid.pl ligne 822

le code :

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
sub deid {
 
    $allText = ""; 
    $allallText = "";
    [open DF, $data_file or die "Cannot open $data_file";
 
    my $paraCount = 0;
 
    my $stpos = 0;
 
 
    my %deids; #key = start index, value = array of (end index, ID)
    my %phiTerms; #key = lc(word), value = # of occurrences
    my %phiT; 
    my %phiTT;
    my $noteDate;
    my $line;

suite du code ..........................................



merci d'avance

[Jedai]

Es-tu certain que le fichier existe et que ton script a les droits nécessaire pour le lire ? Vérifie soigneusement que le chemin du message d'erreur correspond bien au chemin réel, il est facile de faire de petites erreurs sur ce plan.

--
Jedaï