Comment utiliser correctement les variables Globales en perl

Perl n'a pas mondiale variables. Ce que Perl a sont:

• Variables de Package.
• Lexicalement portée des Variables.

Un package est un espace de noms. En Perl, un espace de noms est parfois appelé une paquet. Votre package par défaut le nom est main. Par exemple. C'est parfaitement légal:

use strict;
use warnings;

$main::variable = "What? Where's my 'our' or 'my' declaration?";

print "Look, I can print $main::variable without using 'my' or 'our'!";

J'ai simplement préfixe mon paquet de noms de variables avec un paquet, et paf! Ils existent!

Ceci me cause la consternation:

use strict;
use warnings;

$variable = "What? Where's my 'our' or 'my' declaration?";

print "I'm not going to print 'cause you're going to get a compilation error";

Avec le use strict;, vous devez déclarer une variable comme our ou my, ou faites-le précéder du nom de la paquet.

Variables de Package sont les plus faciles à comprendre. Les variables de Package sont en fait stockées dans une variable Perl structure, de sorte qu'ils sont toujours disponibles une fois déclaré:

use strict;
use warnings;

if ( 1 == 1 ) {  #Yes, I know this is always true
    our $foo = "I have a value!";
}

say "Looks like $foo has a value";

Lexicalement d'étendue variables sont plus difficiles à comprendre. Fondamentalement, un lexicalement d'étendue variable est dans la portée de la bloc il est défini, mais hors de portée une fois que vous quittez le bloc. Il est également disponible dans les sous-blocs:

use strict;
use warnings;

my $foo = "Foo has a value";

if ( $foo ) {   #Always true
    my $bar = "bar has a value";
    print "$foo\n";    # $foo has a value. This is a sub-block
    print "$bar\n";    # $bar has a value. It was defined in this block
}

print "$foo\n";    # $foo still has a value.
print "$bar\n";    # You'll get en error here. $bar out of scope here

Voici quelques suggestions:

• Vous n'avez pas besoin de predeclare des sous-routines. C'est juste des ennuis.
• Si vous définir vos variables au début de votre programme, vous pouvez utiliser my variables, et ils seront disponibles dans votre sous-routines depuis qu'ils sont encore dans le champ d'application.
• Quitter le & hors de sous-programme d'appels. Ils provoquer des changements subtils dans la façon dont le sous-programme de travaux et de ces changements subtils sont probablement pas ce que vous voulez. La norme, c'est juste pour appeler le sous-programme.
  • Éviter la ? ... : ..., surtout si vous n'utilisez pas d'espaces. Il rend votre programme plus difficile à lire, et ne pas enregistrer les temps d'exécution.
  • Tirer la sous-routine de paramètres dans des variables dès que vous appelez votre sous-routine.
• Perl interpolation des variables pour vous. Il y a beaucoup de problèmes avec Perl. Il n'a pas de vrais orientation de l'objet. Ce n'est pas une exception langage orienté. Il a plein de trucs. Un des gros avantages est que vous n'avez pas à passer par toutes sortes de machinations pour imprimer la valeur d'une variable. Utiliser et garder votre tête dans la fierté quand vous accrocher autour de Python fanboys.
• Utilisez des espaces pour rendre votre code plus facile à lire.
• Peut-être ce que vous voulez vraiment sont constantes. my variables de travail, mais les constantes de vous assurer que ces valeurs ne sera pas accidentellement changé dans votre programme.

Voici votre code réécrit. Notez que les constantes de ne pas avoir un sceau en face. Ces ne peuvent normalement pas être interpolées dans les chaînes. Toutefois, si vous entourent avec @{[...]}, vous pouvez interpoler trop. J'ai fait les deux méthodes ci-dessous:

use 5.16.3;
use strict;
use Getopt::Long;
use constant {
SQL_USER => "root",
SQL_PASS => "mypassword",
};
Getopt::Long::Configure qw(bundling no_getopt_compat);
sub ArgParser {
print "Username is " SQL_USER . " Password is " . SQL_PASS . "\n";
my $crt;
my $delete;
GetOptions (
'create|c=s' => \$crt,
'delete|d=s' => \$delete,
);
if ( $crt ) {
DatabaseExec( "create", $crt );   
}
elsif ( $delete ) {
DatabaseExec( "delete", $delete );    
}
else {
print "No options chosen\n";
}
}
sub DatabaseExec {
use DBI;
my $comand = shift;
my $dbname = shift;
print "Username is @{[SQL_USER]} Password is @{[SQL_PASS]}\n";
my $dbh = DBI->connect(
"dbi:mysql:",
SQL_USER,
SQL_PASS
);
if ( $command eq "create" ) {
my $db_com = "create database $dbname";
if ( $dbh->do( $db_com ) ) {
print "Database created\n"
}
else {
print "An error occured while creating database. Maybe it exists?\n";
}
} elsif ( $command eq "delete" ) {
my $db_com = "DROP DATABASE $dbname";
#print "Executing: ".$db_com."\n";
if ( $dbh->do($db_com) ) {
print "Database deleted\n";
}
else {
print "An error occured while creating database. Maybe it exists?\n";
}
}
}

OriginalL'auteur David W.