declaration de variable

Version imprimable

Je déclare une variable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
my (@Tableau,$SqlUser,$PassWord,$Machine,$DataServer,$UneBase,$DirSql);
 
##celle-ci est saisi directement par l'utilisateur et intégrer dans un tableau pour ensuite etre géré dans mon programe
 
@Tableau = (@ARGV);
#print "@Tableau\n";
 
	if ( $Tableau[0] eq "-u" && $Tableau[2] eq "-p" && $Tableau[4] eq "-h" && $Tableau[6] eq "-d" && $Tableau[8] eq "-b" && $Tableau[10] eq "-i") {
		$SqlUser=$Tableau[1];
		$PassWord=$Tableau[3];
		$Machine=$Tableau[5];
		$DataServer=$Tableau[7];
		$UneBase=$Tableau[9];
		$DirSql=$Tableau[11];	
	}
	else
	{
	print "Erreur d'utilisation parametre\n";
	fct_what;
	exit -1;
	}

Cette variable saisie par le user, ressemble à cela : c:\user\titi\script.sql

lorsque je fais un print de ${DirSql}, j'ai l'erreur suivante:

Can't use string (" c:\user\titi\"...) as a SCALAR ref while "strict refs" in use at c:\user\programme.pl line 111.

Merci pour votre aide

29/07/2016, 11h36
Philou67430

Il faut que tu nous montres le code "exact" où tu fais appel à cette variable (ligne 111 de c:\user\programme.pl). Tu as probablement écris un double déréférencement, comme ${$DirSql}.
29/07/2016, 14h13
Lolo78
Difficile de t'aider si tu ne montres pas le bout de code qui provoque l'erreur.

A tout hasard, si tu fais un truc du genre:
Code:

1 2 print ${DirSql} ...
essaie plutôt ceci:
Code:

1 2 print $DirSql ...
31/07/2016, 09h32
vince2005
Bonjour,

En effet, j'ai résolu mon problème.
Cependant si mon utilisateurs déclare dans sa variable :
-i C:\test\repertoire40\toto.sql
Et don que ma variable aura donc l'affectation :
Code:

1 2 3 4 5 my $DirSql1="C:\test\repertoire40\toto.sql" # Or si je fais un print de cette variable print "${DirSql1]
j'ai l'erreur suivante :
Code:

1 2 3 Unrecognized escape \t passed through at Useless use of \r at ....
Par contre si je mets des "/" à la place des "\", il me l'interpréte correctement.

Comment faire ?

Merci pour votre aide.
31/07/2016, 10h46
Lolo78
Citation:

Le patient: "Docteur, quand je fais cela, ça fait mal."
Le docteur: "Eh bien, ne le faites pas."

Autrement dit, utilise des "/", pas des "\". ;)

Bon, si tu as vraiment besoin d'utiliser des "\", alors il faut les doubler:
Code:

1 2 my $DirSql1="C:\\test\\repertoire40\\toto.sql";
Jette aussi un coup d’œil a la fonction quotemeta, qui s'occupe d'ajouter les barres obliques inverses nécessaires. Il est fort possible qu'elle suffise à résoudre ton problème.
31/07/2016, 20h46
vince2005

le probleme de doubler : c'est l'utilisateur qui saisie la ligne ou est situé le fichier
01/08/2016, 11h20
Lolo78
Si tu demandes à l'utilisateur de saisir le répertoire, alors ceci fonctionne:
Code:

1 2 3 4 5 6 7 use strict; use warnings; print "Répertoire?"; my $rep = <STDIN>; print "$rep \n";
Si tu passes le répertoire sous la forme d'argument de la ligne de commande, alors les "\" sont sans doute retirés de l'argument par le shell avant même que Perl puisse les voir. Dans ce cas, essayer de le passer entre guillemets ou entre apostrophes.

Note: je ne peux pas tester sous Windows, c'est peut-être un peu différent.

Essaie éventuellement ceci:
Code:

1 2 $rep =~ s/\\/\\/g;
ou ceci:
Code:

1 2 $rep =~ s/\\/\\\\/g;

Je ne sais pas comment je m'y prends, mais je n'arrive pas :

Code:

1
2
3
4
5
6
7
8
 
 
my $DirSql1="C:\TEST\EXP\repertoire1\toto\script.sql";
#$DirSql1 =~ s/\\/\\/g;
$DirSql1 =~ s/\\/\\\\/g;
$Ligne =~ s/[\s]//g;
#$DirSql1=quotemeta($DirSql1);
print "${DirSql1}\n"

Cet exemple fonctionne chez moi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 #!/usr/bin/perl use warnings; use strict; my $DirSql1; if( scalar(@ARGV) >= 2 ){ if( $ARGV[0] eq "-i" ){ $DirSql1= "$ARGV[1]"; } } if( defined( $DirSql1)){ $DirSql1 =~ s/\\/\\\\/g; print "$DirSql1\n"; }
j'appelle le code avec la ligne de commande suivante :

Citation:

test_chemin.PL -i c:\toto\slq.txt

Le chemin est correctement affiché.

En résumé, j'ai juste rajouté des doubles quotes lors la valorisation de $Dirsql1, ce qui semble protéger la variable d'une quelconque interprétation.

Sinon, pour éviter l'interprétation d'un chemin, il faut utiliser ses simples quotes (ou apostrophes)

Code:

$DirSql1= 'C:\TEST\EXP\repertoire1\toto\script.sql';

01/08/2016, 18h51
vince2005

c'est parfait !! ça fonctionne.

Merci encore

calculer la moyenne

bonsoir tous le monde
j'ai un probleme dans mon script perl afin de calculer la moyenne , j'ai d'abord commencé par crée une fonction qui calcule la somme , ca fonctionne parfaitement avec les tableau et tous , mais avec mes données à moi ca marche pas , ca me donne tous une série de valeurs alors que j'attend à la fin qu'une seule valeur , voilà le script que j'ai fait :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
use strict;
use warnings; 
use diagnostics ;
open(FILE ,'<','fragments1000.faa');
my $ligne = <FILE>;
my @lignes= <FILE>;
my %table;
%table=@lignes;
 
 
while( my ($k,$v) = each(%table) ) {
#print "Clef : $k Valeur : $v\n";
 
}
 
foreach my $k (keys(%table)){
 
#print"Clef : $k \n";
}
my $nombre = keys(%table);
#print " le nombre total contenu dans le fichier est : $nombre\n";
 
my @values= values (%table);
#print "@values\n";
#print "$values[3]\n";
my @keys= keys (%table);
#print "$keys[3]\n";
sub somme
{
    my $num= @_ ;       
    my $somme;
 
    foreach my $nombre (@_)
    {
 
        $somme += $nombre;
 
    }
 
    return $somme;       
 
}
 
foreach my $long(@values)
{
my @longueur=();
my $daf=length($long);
push(@longueur,$daf);
 
#print "@longueur\t";
 
 
}
print somme(@longueur);
 
 
 
my @y=(5,6,8,9);
 
#print"cest bon pour ca \n";
#print somme (@y);
close FILE;
<>

Mon dieu que c'est compliqué. Une fois que tu as tes valeurs dans un tableau @tab:
Code:

1 2 3 4 5 6 my $sum; $sum += $_ for @tab; my $nombre_elem = scalar @tab; my $moyenne = $sum / $nombre_elem; print "Moyenne : ", $moyenne, "\n";

12/11/2016, 12h54
abdou3058

à merci c'est bcp plus simple ton code, le probleme est que je traite un fichier de 1000 sequences d'ADN , je travaille alors sur un de tableau de hachage , je vais essayer ton code sur mes données je te répondrai
bonne journée
14/11/2016, 14h46
Philou67430

Il aurait sans doute été préférable de créer une nouvelle discussion...
14/11/2016, 20h08
Lolo78

Citation:

Envoyé par Philou67430

Il aurait sans doute été préférable de créer une nouvelle discussion...

Effectivement. ++.
15/11/2016, 15h58
abdou3058

moyenne

bonjour
merci bcp , en faie je me rappellle plus de ce que j'ai fait mais ce a marché , je crois que c'est juste j'ai modifie une position des variable je crois je penserai à mettre le code à la fin de mon projet