declaration de variable

**vince2005** · 29/07/2016, 11h18

Je déclare une variable

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
 
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

**Philou67430** · 29/07/2016, 11h36

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}.

**Lolo78** · 29/07/2016, 14h13

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 :

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

1
2
 
print ${DirSql} ...

essaie plutôt ceci:

Code :

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

1
2
 
print $DirSql ...

**vince2005** · 31/07/2016, 09h32

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 :

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

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 :

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

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.

**Lolo78** · 31/07/2016, 10h46

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 :

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

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.

**vince2005** · 31/07/2016, 20h46

le probleme de doubler : c'est l'utilisateur qui saisie la ligne ou est situé le fichier

**Lolo78** · 01/08/2016, 11h20

Si tu demandes à l'utilisateur de saisir le répertoire, alors ceci fonctionne:

Code :

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

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 :

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

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

ou ceci:

Code :

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

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

**vince2005** · 01/08/2016, 16h16

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

Code :

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

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"

**JeanMi3000** · 01/08/2016, 16h31

Cet exemple fonctionne chez moi :

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
#!/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 :

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 :

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

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

**vince2005** · 01/08/2016, 18h51

c'est parfait !! ça fonctionne.

Merci encore

**abdou3058** · 12/11/2016, 01h20

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 :

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
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;
<>

**Lolo78** · 12/11/2016, 10h07

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

Code :

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

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";

**abdou3058** · 12/11/2016, 12h54

à 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

**Philou67430** · 14/11/2016, 14h46

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

**Lolo78** · 14/11/2016, 20h08

Envoyé par Philou67430

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

Effectivement. ++.

**abdou3058** · 15/11/2016, 15h58

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

declaration de variable

Langage Perl

Discussions similaires

Partager

Partager