En Perl, comment puis-je concise de vérifier si une variable $est définie et contient une chaîne de longueur zéro?

J'utilise actuellement le Perl suivante pour vérifier si une variable est définie et contient du texte. Je dois vérifier defined d'abord pour éviter une "valeur non initialisée" avertissement:

if (defined $name && length $name > 0) {
    # do something with $name
}

Est-il mieux (sans doute plus concis) méthode pour écrire cela?

InformationsquelleAutor Jessica | 2009-09-26
  1. 72

    Vous voyez souvent le vérifier definedness de sorte que vous n'avez pas à traiter avec l'avertissement pour l'utilisation d'une valeur undef (et en Perl 5.10, il vous indique la délinquance de la variable):

     Use of uninitialized value $name in ...

    Donc, pour se autour de cet avertissement, les gens viennent avec toutes sortes de code, et que le code commence à ressembler à une partie importante de la solution plutôt que du bubble-gum et du ruban adhésif qu'il est. Parfois, il est préférable de montrer ce que vous faites explicitement à la désactivation de l'avertissement que vous essayez d'éviter:

     {
 no warnings 'uninitialized';

 if( length $name ) {
      ...
      }
 }

    Dans d'autres cas, utiliser une sorte de valeur null à la place des données. Avec Perl 5.10 définies ou opérateur, vous pouvez donner length explicite d'une chaîne vide (définis, et de donner en retour de longueur zéro) au lieu de la variable qui va déclencher l'alerte:

     use 5.010;

 if( length( $name // '' ) ) {
      ...
      }

    En Perl 5.12, c'est un peu plus facile parce que length sur une valeur non définie également retourne undefined. Cela peut sembler un peu de la bêtise, mais ce qui plaît le mathématicien que je l'aurais voulu être. Qui n'a pas d'émettre un avertissement, qui est la raison de cette question existe.

    use 5.012;
use warnings;

my $name;

if( length $name ) { # no warning
    ...
    }
    • Aussi, dans v5.12 et, plus tard, length undef retourne undef, au lieu de l'alerte et de retour 0. Dans boolean contexte, le fnud est tout aussi faux que de 0, donc si vous êtes ciblage v5.12 ou version ultérieure, vous pouvez simplement écrire if (length $name) { ... }
    InformationsquelleAutor brian d foy
  2. 23

    Comme mobrule l'indique, vous pouvez utiliser les éléments suivants à la place pour une petite épargne:

    if (defined $name && $name ne '') {
    # do something with $name
}

    Vous pourriez fossé de la définition de vérifier et d'obtenir quelque chose d'encore plus court, par ex.:

    if ($name ne '') {
    # do something with $name
}

    Mais dans le cas où $name n'est pas défini, alors que la logique de flux de travail comme prévu, si vous utilisez warnings (et vous devriez), vous obtiendrez alors le suivant avertissement:

    Utilisation de la valeur non initialisée dans le string ne

    Donc, si il ya une chance que $name peut pas être défini, vous avez vraiment besoin de vérifier pour definedness d'abord et avant tout, afin d'éviter que d'avertissement. Comme Sinan Ünür points, vous pouvez utiliser Scalar::MoreUtils pour obtenir le code qui fait exactement cela (vérifie definedness, puis vérifie la longueur zéro) hors de la boîte, via le empty() méthode:

    use Scalar::MoreUtils qw(empty);
if(not empty($name)) {
    # do something with $name 
}
    InformationsquelleAutor Adam Bellaire
  3. 15

    Tout d'abord, depuis length retourne toujours un nombre non négatif,

    if ( length $name )

    et 

    if ( length $name > 0 )

    sont équivalentes.

    Si vous êtes OK avec le remplacement d'une valeur indéfinie avec une chaîne vide, vous pouvez utiliser Perl 5.10 de l' //= opérateur qui affecte le membre de droite à GAUCHE, à moins que le membre de GAUCHE est définie:

    #!/usr/bin/perl

use feature qw( say );
use strict; use warnings;

my $name;

say 'nonempty' if length($name //= '');
say "'$name'";

    Note l'absence de mises en garde sur une variable non initialisée comme $name est affecté à la chaîne vide si elle n'est pas définie.

    Toutefois, si vous ne voulez pas dépendre de l'5.10 être installé, utilisez les fonctions fournies par Scalar::MoreUtils. Par exemple, le ci-dessus peut être écrite comme:

    #!/usr/bin/perl

use strict; use warnings;

use Scalar::MoreUtils qw( define );

my $name;

print "nonempty\n" if length($name = define $name);
print "'$name'\n";

    Si vous ne voulez pas pour les fringues $name, utilisez default.

    • +1 pour le "//=" mention (comment je sais que j'avais de Sinan réponse 🙂
    • Je ne voudrais pas utiliser //= dans ce cas car elle modifie les données comme un effet secondaire. Au lieu de cela, utilisez le légèrement plus courte length( $name // '' ).
    • d'foy je pense que cela dépend de ce qui est fait dans la fonction.
    • +1 Le // et //= opérateurs sont peut-être le plus utile opérateurs spécialisés dans l'existence.
    • Comme @rjbs indiqué dans ma réponse, avec v5.12 et, plus tard, length pouvez maintenant retourner quelque chose qui n'est pas un nombre (mais pas NaN 😉
    InformationsquelleAutor Sinan Ünür
  4. 6

    Dans le cas où je ne me soucie pas de savoir si la variable est undef ou égale à '', j'ai l'habitude de le résumer ainsi:

    $name = "" unless defined $name;
if($name ne '') {
  # do something with $name
}
    • En Perl 5.10, cela peut être raccourcie à $name //= ""; qui est exactement ce que Sinan posté.
    • Et même si vous n'avez pas de perl 5.10, vous pouvez toujours écrire $name ||= "";
    • vous ne pouvez pas utiliser l'opérateur || ici, car il remplace la chaîne " 0 " avec ". Vous devez vérifier si elle est définie, pas vrai.
    • Chris, RET: Ouais, je sais. J'étais précisément en train de suggérer que si Jessica n'était pas concerné par la différence entre undef et "", elle devrait juste changer de l'un à l'autre et à l'utilisation d'un seul test. Cela ne fonctionnera pas dans le cas général, pour lesquelles les autres solutions sont affichées de manière mieux, mais dans ce cas précis conduit à neat code. Dois-je reformuler ma réponse à faire de ce plus clair?
    InformationsquelleAutor Gaurav
  5. 1

    On pourrait dire

     $name ne ""

    au lieu de

     length $name > 0
    • Cela va vous donner un avertissement. La raison pour laquelle les gens vérifier definedness premier est d'éviter la "valeur non initialisée' avertissement.
    InformationsquelleAutor mob
  6. 1

    Il n'est pas toujours possible de faire des choses répétitives dans une façon simple et élégante.

    Il suffit de faire ce que vous faites toujours quand vous avez le bon code qui obtient répliqués dans de nombreux projets:

    De recherche CPAN, quelqu'un en a déjà le code pour vous. Pour cette question j'ai trouvé Scalar::MoreUtils.

    Si vous ne trouvez pas quelque chose que vous aimez sur le CPAN, faire un module et de mettre le code dans un sous-programme:

    package My::String::Util;
use strict;
use warnings;
our @ISA = qw( Exporter );
our @EXPORT = ();
our @EXPORT_OK = qw( is_nonempty);

use Carp  qw(croak);

sub is_nonempty ($) {
    croak "is_nonempty() requires an argument" 
        unless @_ == 1;

    no warnings 'uninitialized';

    return( defined $_[0] and length $_[0] != 0 );
}

1;

=head1 BOILERPLATE POD

blah blah blah

=head3 is_nonempty

Returns true if the argument is defined and has non-zero length.    

More boilerplate POD.

=cut

    Puis dans votre code appeler:

    use My::String::Util qw( is_nonempty );

if ( is_nonempty $name ) {
    # do something with $name
}

    Ou si vous vous opposez à des prototypes et ne s'opposent pas à l'extra parens, passez le prototype dans le module, et de l'appeler comme: is_nonempty($name).

    • N'est-ce pas, comme à l'aide d'un marteau pour tuer une mouche?
    • Pas de. L'affacturage code comme ceci beats ayant une maladie complexe reproduits dans de nombreux endroits différents. Ce serait comme à l'aide de piqûres d'aiguille pour tuer un éléphant. @daotoad: je pense que vous devriez réduire votre réponse à l'accent sur l'utilisation de Scalar::MoreUtils.
    • Scalar::MoreUtils est une très légère module sans dépendances. Sa sémantique sont également bien connus. Sauf si vous êtes allergique à CPAN, il n'y a pas beaucoup de raisons d'éviter de l'utiliser.
    • Depuis que vous avez à produire un prototype de votre is_nonempty à ($) Perl avertira au moment de la compilation lorsque la fonction est appelée avec le mauvais nombre d'arguments. Vous ne devriez pas en avoir besoin lors de l'exécution.
    • Lutz, ouais, je ne devrais pas. Mais les prototypes sont semi-cassé--il y a des moyens faciles à briser prototype de l'application. Par exemple, de merde et/ou obsolètes tutoriels de continuer à encourager l'utilisation de la & sigil lors de l'appel de fonctions. J'ai donc tendance à ne pas compter sur des prototypes de faire tout le travail. Je suppose que je pourrais ajouter "et de cesser d'utiliser le & sigil sur sous les appels, sauf si vous dire vraiment" à la message d'erreur.
    • Il est plus facile de penser à des prototypes que des conseils pour le compilateur perl, donc il sait comment analyser quelque chose. Ils ne sont pas là pour valider les arguments. Ils peuvent être divisés en termes d'attentes, mais tant de choses sont. 🙂
    • L'OP a demandé pour un concis moyen de le faire, et dans ce cas il y en a un. Moins de code est usuaully mieux que plus de code, tant que c'est compréhensible. Cette solution est tout simplement inutile.
    • est concis. Zut, j'ai ajouté un prototype de sorte que vous n'avez pas à taper de la parenthèse. Il cache la complexité de la case à l'intérieur d'une fonction. Dans ce cas, une fonction définie dans une bibliothèque (idéalement un qui est déjà écrit). Certaines choses ne peuvent jamais être concis, sauf si vous ajoutez de l'abstraction. L'ajout de l'abstraction ajoute une surcharge, donc si vous êtes en évitant de taper quelque chose seulement 2 ou 3 fois, c'est pas une bonne affaire. Mais si vous faites is_empty vérifie tous sur la place, c'est une grande victoire pour simplifier vos chèques ET de les garder cohérente en même temps.
    • Je suis d'accord qu'une bibliothèque doit être utilisé (je me rends compte que j'ai aussi raté votre référence à Scalar::MoreUtils::vide) car votre réponse rapidement glisse sur le module CPAN et recommande une autre solution personnalisée, qui, je persiste à dire est inutile, et inférieur au CPAN solution parce qu'il n'a pas reçu le bénéfice de CPAN tests.
    • Sheppard, malheureusement, beaucoup de gens se retrouvent à la merci de l'employeur, qui interdit l'utilisation de CPAN ou dont la gestion de la dépendance processus est donc byzantine qu'il est en fait préférable de BRICOLAGE pour les choses simples plutôt que de vous battre pour les installer. C'est pourquoi je fournir un exemple de code pour comment le faire sans le CPAN.

    InformationsquelleAutor daotoad
  7. 1

    L'excellente bibliothèque Type::Minuscule fournit un cadre qui permet de construire la vérification de type dans votre code Perl. Ce que je montre ici est seulement la plus fine pointe de l'iceberg et est de Type::Minuscule dans la plus simpliste, et de façon manuelle.

    Être sûr de vérifier le Type::Minuscule::Manuelle pour plus d'informations.

    use Types::Common::String qw< NonEmptyStr >;

if ( NonEmptyStr->check($name) ) {
    # Do something here.
}

NonEmptyStr->($name);  # Throw an exception if validation fails
    InformationsquelleAutor
  8. -2

    Comment sur

    if (length ($name || '')) {
  # do something with $name
}

    Ce n'est pas tout à fait équivalent à votre version d'origine, car elle retourne false si $name est la valeur numérique de 0 ou de la chaîne '0', mais se comporte de la même dans tous les autres cas.

    En perl 5.10 (ou plus tard), la meilleure approche serait d'utiliser la défini-ou l'exploitant de la place:

    use feature ':5.10';
if (length ($name // '')) {
  # do something with $name
}

    Ce sera décider ce que pour obtenir la longueur de base que $name est défini, plutôt que de savoir si c'est vrai, donc 0/'0' permettra de traiter les dossiers correctement, mais il nécessite une version plus récente de perl que beaucoup de gens ont à disposition.

    • Pourquoi partent avec une fracture de la solution que de dire qu'il est cassé?
    • Parce que, comme je l'ai dit également, 5.10 est "une version plus récente de perl que beaucoup de gens ont à disposition." YMMV, mais "c'est dans 99% des cas la solution que je sais que vous pouvez utiliser, mais il y a un meilleur que peut-être que vous pouvez utiliser, vous pouvez peut-être pas" me semble mieux que le "voici la solution parfaite, mais vous ne pouvez probablement pas l'utiliser, voici donc une alternative vous pouvez probablement vous en tirer avec une solution de repli."
    • Même avec plus tôt perls, vous pouvez avoir une solution de travail au lieu d'une rupture de l'un.
    InformationsquelleAutor Dave Sherohman
  9. -3
    if ($nom ) 
{ 
#depuis le fnud et " les deux la valeur false 
#cela doit fonctionner que lorsque la chaîne est définie et non-vide... 
#sauf si vous vous attendez à quelque chose comme $nom="0" ce qui est faux. 
#notez bien que $nom="00" n'est pas faux 
}
    • Malheureusement, ce sera la valeur false lorsque $nom = 0;
    InformationsquelleAutor Joseph