[perl]Variable avant et après "use strict;&qu

kepon - 20 févr. 2006 à 12:34
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 21 févr. 2006 à 23:43

Bonjour, voilà j'ai un script perl auquelle je veu ajouter une fonction de création de base de donnée suivant un utilisateur... la variiable $user1 est valide dans la 1er partie du script mais pas dans la 2de... (use strict;)... donc voilà mon bute est de que $user1 = $user2 mais comment faire???

voilà un bout de mon code :

#!/usr/bin/perl

#1er PARTIE DU SCRIPT
#tous le début du script
$user1 = "toto";
#tous le rest de mon script...

#2ème partie du script
  use strict;
  use DBI();
  # Connect to the database.
  my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost",
                         "root", "passroot",
                         {'RaiseError' => 1});
my $user2 = $user1;
$dbh->do("CREATE DATABASE $user2");
  # Disconnect from the database.
  $dbh->disconnect();

A voir également:

[perl]Variable avant et après "use strict;&qu
Avant browser - Télécharger - Navigateurs
503 use auth first - Forum Réseau
Comment remettre ma page d'accueil comme avant - Guide
Comment revenir à ma page d'accueil "google.fr" ? ✓ - Forum Google Chrome
Impossible de créer le fichier de travail. vérifiez la variable d'environnement temp ✓ - Forum Word

3 réponses

Réponse 1 / 3

kepon
20 févr. 2006 à 13:36

personne ne peut m'aider?

Réponse 2 / 3

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
21 févr. 2006 à 21:51

Salut,

  # Connect to the database.
 my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost",
                        "root", "passroot",
                        {'RaiseError' => 1});
my $user2 = $user1;
$dbh->do("CREATE DATABASE $user2");
 # Disconnect from the database.
 $dbh->disconnect();

Donc tu as le descripteur de ta base de donnée mysql dans la variable $dbh.

Ensuite tu fait un $dbh->do("CREATE DATABASE $user2) qui n'est pas logique.

Dans une base de donnée on peut créer une table mais pas une autre base.

En ce qui concerne les variables $user1 et my $user2, je ne vois pas la raison pour laquelle tu n'utilise pas use strict au début de ton script. Tu peut entourré avec des accolades {} les parties de script pour limiter la portée de tes variables.
Mais tu fais comme tu veux.

Voilà une solution pour ton problème avec les variables $user1 et my $user2

#! /usr/bin/perl

$user1="toto";
sub var { return $user1 }

use strict;

# my $user2=$user1 ne fonctionne pas à cause de use strict
#Global symbol "$user1" requires explicit package name

my $user2=var;# en revanche la fonction var nous retourne $user1
print "$user2\n";# maintenant $user2 vaut toto

Réponse 3 / 3

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
21 févr. 2006 à 23:43

Re,

Voilà encore 2 façon de le faire
1. utilisation de our

#! /usr/bin/perl
our $user1="toto";

use strict;
my $user2=$user1;
print "$user2\n";

2. utilisation de my

#! /usr/bin/perl
my $user1="toto";

use strict;
my $user2=$user1;
print "$user2\n";

Discussions similaires

je voudrais accéder à mon compte copains d'avant

Bonjour,
je voudrais acceder à mon compte copains d'avant

Configuration: Windows Vista / Chrome 40.0.2214.111

Copains d'avant, qui a visité notre profil

Bonjour,

J'ai trouvé beaucoup de sujets sur ce forum contenant la même question, mais ils datent tous de plusieurs années. Ils disent tous que non, qu'un membre de copains d'avant ne peut pas voir si son profil a été visité. Est-ce toujours valable depuis toutes ces années ? J'ai compris que le membre ne peut pas savoir qui a visité. Mais est-ce qu'il reçoit une notification toute simple comme sur le boncoin, du genre ''vous avez eu 3 visites sur votre profil aujourd'hui''? Merci d'avance.

Perte de mes anciens accès pour Copain D'Avant

Bonjour*

Comment retrouver et le mail et le mot de passe que j’avais utiliser pour ouvrir mon compte et donc me connecter?????

recupération compte copain

Bonjour,
Comment puis je récupérer mon compte pour lequel par négligence je n'ai pas suivi .
Cordialement
Stephan ******

Comment savoir qui a visité notre profil copain d'avant et facebook ?

Votre réponse

Discussions similaires